특정 값을 기반으로하는 Excel의 색상 셀

Excel에서 200 개의 셀 목록이 있습니다. 나는 이름을 넣고 쓰여진 이름에 따라 셀의 텍스트 색이나 셀의 배경을 바꿀 것입니다. 약 25 개의 이름을 사용합니다.

microsoft-excel

조건부 서식 사용

— Jook

우리가 뭔가를 알아낼 수 있도록 좀 더 명확히하십시오.

— CustomX

이것은 확실히 프로그래밍 문제가 아닙니다. 엑셀 내장 조건부 서식 이 시나리오에서는 작성할 코드보다 기능이 훨씬 뛰어납니다.

— psubsee2003

@ psubsee2003 4 색으로도 한도 조건부 서식?

— pnuts

@pnuts 컴퓨터에서 Excel 2007을 확인하지 못했지만 Excel 2007에서 4 가지 이상의 조건과 4 가지 색상이 있다는 것을 상기 한 것 같습니다. 따라서이 기사에 회의적입니다.

— psubsee2003

답변:

Excel의 조건부 서식 기능을 사용하는 것이 좋습니다. 당신은 이것을 어떻게하는지 알아 내기 위해 도움을 볼 수 있습니다. 당신은 또한 다양한 찾을 수 있습니다 문서화 된 예

예: SU488776 example

— bwDraco
소스

조건부 서식이 가장 좋지만 VBA 대안을 원한다면 개발자 탭에 매크로를 기록하고 "프로젝트"사이드 바의 "모듈"아래에서 편집 할 수 있습니다. 그런 다음 ThisWorkbook 프로젝트 사이드 바에서 코드를 SheetChange 행사.

텍스트 영역 위의 두 개의 드롭 다운 메뉴를 변경해야하며, 왼쪽의 드롭 다운 메뉴는 Workbook (일반적으로 옵션 만) 올바른 것이 필요합니다. SheetChange 그런 다음이 간단한 코드를 원하는만큼 많은 이름에 사용할 수 있습니다. 이 작업을 수행하는 방법은 여러 가지가 있음을 명심하십시오.

당신은 많은 것을 넣을 수 있습니다. ElseIf's 사이에 if 과 else 당신이 원하는대로.

Sub Macro

Dim i As Integer
i = 1

    Range("A" & i).Select

    If ActiveCell = "Name1" Then

        ActiveCell.Interior.ColorIndex = 12

    ElseIf ActiveCell = "Name2" Then

        ActiveCell.Interior.ColorIndex = 4

    ElseIf ActiveCell = "Name2" Then

        ActiveCell.Interior.ColorIndex = 11

    Else 

        ActiveCell.Interior.ColorIndex = 15

    End If

End Sub

select in 코드를 사용하는 것이 최고의 프로그래밍 습관은 아니지만이 코드는 소량의 데이터이므로 괜찮습니다. 희망이 도움이!

— Mike Kellogg
소스

시트가 변경되면 색상이 자동으로 업데이트되도록 워크 시트 변경 이벤트를 처리하여 자동으로이 옵션을 선택하는 것이 좋습니다.

— psubsee2003

@ psubsee2003은 좋은 지적입니다. 이 코드는 워크 시트 변경 이벤트에서 훨씬 더 효과적입니다.

코드를 코드에 삽입하는 방법에 대한 몇 가지 추가 지침을 추가했습니다. SheetChange 시트에서 변경이 발생하면 포함 된 코드를 자동으로 실행하는 이벤트입니다.