假设有一张包含一组值的工作表。目标是让 Excel使整行的背景颜色呈现不同的色调对于每一组不同的征用。
颜色并不重要。可能有 500 种不同的颜色变化。我怀疑正常用例是手动选择颜色。鉴于颜色变化的数量未知,可能很难实现自动化。
如何才能最好地显示 Excel 中行的逻辑分组?我首次尝试的是按行颜色分组,但也许有更好的方法?
答案1
如果您想保留颜色,您可以通过使用两种不同的颜色来实现自动化,一种颜色用于一个组,另一种颜色用于下一组。
您可以使用一个小宏来实现这一点。
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