如何使用VBA更改数组内容的字体颜色

Question

这是宏的简化版本。 基本上，我只是想更改数组中包含的所有范围的字体颜色。 在“ GreyArea（）。选择，出现错误：限定符无效。

Sub Color()
Dim GreyArea() As Variant

    GreyArea = Sheets("A").Range("D2:F500,G2:N1000")

    GreyArea().Select
    With Selection.Font
        .Color = 8421504
    End With

End Sub

Answer 1

那就是因为您要声明一个数组变量而不是“ Range”变量。

这应该为您工作。

Sub Color()
    Sheets("A").Range("D2:F500,G2:N1000").Select
    With Selection.Font
        .Color = 8421504
    End With
End Sub

或简单地

Sheets("A").Range("D2:F500,G2:N1000").Font.Color = 8421504

Answer 2

您确实知道您无法轻易选择任何内容，而实际上只是去：

Sub Color()

    Dim ws As Worksheet

    Set ws = Sheets("Sheet1")
    ws.Range("D2:F5000,G2:N1000").Font.Color = 8421504

End Sub