셀 색상을 기반으로 Excel에서 셀의 값을 변경하십시오.

Question

다음 VBA 코드를 사용하여 색상에 따라 셀 값을 변경하지만 채색 된 셀을 포함하여 선택한 모든 셀이 변경됩니다. 이 점에서 제발 도와주세요 : -

Sub ChangeValueBasedOnCellColor() 
    Dim rg As Range 
    Dim xRg As Range 
    Set xRg = Selection.Cells 
    Application.DisplayAlerts = False 
    For Each rg In xRg 
     With rg 
      Select Case .Interior.Color 
       Case Is = 16777215 
        .Value = "OFF" 

      End Select 
     End With 
    Next 
    Application.DisplayAlerts = False 
End Sub 

Answer 1

당신이 겪고있는 문제는 더/해제/기본 ^* 배경 색상과 명시 적으로 흰색으로 설정 배경 색상 셀과 셀 모두 을 가지고있다 동일.Interior.Color 속성 값 (16777215).

두 셀을 구별하려면 각 셀의 .Interior.ColorIndex 속성을 대신 확인해야합니다. 배경색이없는 셀은 .Interior.ColorIndex이 xlNone (-4142)이고 흰색 배경색이 설정된 셀은 과 같습니다. 기본 경우
^* :

Sub ChangeValueBasedOnCellColor() 
    Dim rg As Range 
    Dim xRg As Range 
    Set xRg = Selection.Cells 
    Application.DisplayAlerts = False 
    For Each rg In xRg 
    With rg 
     Select Case .Interior.ColorIndex 
     Case Is = 2 
      .Value = "OFF" 
     End Select 
    End With 
    Next 
    Application.DisplayAlerts = False 
End Sub 

참고 :

따라서, 귀하의 코드는 제대로 OFF에 "화이트"색상 셀의 값을 설정하기 위해 다음과 같이 변경해야 배경색이 흰색이 아니면 .Interior.Color 속성 값은 이고 여전히 흰색입니다. 기본 셀 색상을 "변경"하는 유일한 방법은 컬러 배경 이미지를 추가하는 것입니다. 기본 셀의 배경색은 설정되지 않은 상태로 유지됩니다.