답변:
색상을 유지하려면 한 그룹에 대해 하나씩, 다음 그룹에 대해 서로 다른 두 가지 색상을 사용하여 자동화 할 수 있습니다.
작은 매크로를 사용하여이 작업을 수행 할 수 있습니다.
Sub SetCustomColors()
Dim color As OLE_COLOR
Dim color1 As OLE_COLOR
Dim color2 As OLE_COLOR
Dim currentRequisition As Integer
color1 = &HF0F0F0 ' RR GG BB
color2 = &HF0F000 ' RR GG BB
currentRequisition = -1
For r = 3 To 16
If currentRequisition <> ActiveSheet.Cells(r, 1).Value Then
currentRequisition = ActiveSheet.Cells(r, 1).Value
color = IIf(color = color1, color2, color1)
End If
ActiveSheet.Range(ActiveSheet.Cells(r, 1), ActiveSheet.Cells(r, 4)).Interior.color = color
Next
End Sub