색상이 지정된 셀에 값이 포함되어 있고 채우기가없는 셀이 비어있는 Excel 스프레드 시트가 있습니다. 채우기 색상이없는 모든 셀에 값이 있기를 바랍니다 0. 검정색과 노란색 셀 값 1을 2각각 제공하는 데 사용한 코드가 있습니다.
Sub changeValuesBasedOnColour()
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 = 0 'Black
.Value = 1
Case Is = 65535 'Yellow
.Value = 2
Case Is = xlNone
.Value = 0
End Select
End With
Next
Application.DisplayAlerts = False
End Sub
이 섹션을 포함하기 위해 채우기 색상을 기반으로 셀 값을 변경하는 데 사용한 코드를 편집했습니다.
Case Is = xlNone
.Value = 0
그러나 내 스프레드 시트에는 변경 사항이 없습니다. 채우기 색상이없는 셀을 참조하도록 코드를 편집하려면 어떻게해야합니까?
사용 vbWhite또는 16777215.
xlNone.Interior.ColorIndex와 동일하지 않은 셀의에 적용 할 수 .Interior.Color있습니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다