使用 VBA 中的 ActiveCell.Offset 函數將范圍分配給范圍變量

Question

我試圖從 Excel 中的當前活動單元格中偏移來定義一個范圍並將其分配給一個變量，以便我可以更改它的一些屬性。 這不起作用：

Public Sub tester()
    Dim myRange As Range
    myRange = Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 7))
    myRange.Font.Color = RGB(200, 100, 0)
End Sub

在調試器中：

雖然這確實有效：

Public Sub tester()
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 7)).Font.Color = RGB(200, 100, 0)
End Sub

這里發生了什么？ myRange 不是一個范圍嗎？ 它似乎不想分配。 如何執行這種操作，即將范圍放入變量中，然后使用該變量來引用它？

Answer 1

分配不包含可靠地通知我的“設置”運算符。 這將起作用：

Public Sub tester()
    Dim myRange As Range
    Set myRange = Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 7))
    myRange.Font.Color = RGB(200, 100, 0)
End Sub