Question

我正在尝试更改单元格组的颜色，但该组的范围将根据其他几个单元格中的值而变化。我已经学会了如何为公式做这个变化范围。该代码如下所示：

Dim T1Address As String

c1 = Sheets(2).Range("AQ3").Value
t1 = Sheets(2).Range("AR3").Value

T1Address = Cells(8, c1).Address(RowAbsolute:=False, _
                                             ColumnAbsolute:=False) & ":" & Cells(8, t1).Address(RowAbsolute:=False, _
                                             ColumnAbsolute:=False)

Range("AT3").Formula = "=COUNTA('" & Worksheets(1).Name & "'!" & T1Address & ")"

对于多个T1Address，c1，t1等（c2，c3，...，cn）。现在我需要改变组成该公式范围的单元格的颜色，例如，如果得到的公式为= COUNTA（A3：B4）我需要更改A3：B4的颜色以获得特定的RGB颜色。我将每个范围的RGB颜色作为列中单元格的值。我试图模仿这个：

Range("A1:A6").Interior.Color = RGB(127,187,199)

这样做：

Dim Color1 As String
Color1 = Sheets(2).Range("D50").Value 'The value of D50 is RGB(217, 225, 242)
Range("T1Address").Interior.Color = Color1

它告诉我有一个错误1004.我做错了什么？谢谢！

VBA使用Address变量更改单元格的颜色

0 个答案: