ActiveWorkbook.Styles VBA

当我从下拉列表中select一个项目，我的代码进入调色板（包含100个项目单元格“B5”具有匹配公式，并命名为“Ref_rowOffset”。旁边的项目，我有4种颜色A，B，C，D ）find该项目并应用表格的颜色。 该表被引用为A，B，C，D。但是，因为我有一些工作表，其中包含许多数据透视表和切片机，所以代码将无法正常工作。 所以计划是将ActiveWorkbook.Styles命名为（“A”）并用作参考。 任何想法都会太棒了？

Public Function get_color(str_type As String) As String Dim iColOffset As Integer Dim strRange As Range Select Case str_type Case Is = "A" iColOffset = 1 Case Is = "B" iColOffset = 2 Case Is = "C" iColOffset = 3 Case Is = "D" iColOffset = 4 Case Else End Select iRowOffset = Sheets("Palette").Range("Ref_rowOffset").Value Set strRange = Sheets("Palette").Range("B5") get_color = strRange.Offset(iRowOffset, iColOffset).Interior.Color End Function Public Sub ABSD() Sheets("Dashboard").Range("A").Interior.Color = get_color("A") Sheets("Dashboard").Range("B").Interior.Color = get_color("B") Sheets("Dashboard").Range("C").Interior.Color = get_color("C") Sheets("Dashboard").Range("D").Interior.Color = get_color("D") End Sub