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

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

2 个答案: