使用 VBA 的“With”语句来引用对象本身？

Question

如果我在 VBA 中使用“With”关键字，我必须访问“With”被锁定的对象中的属性/方法。但是，我可以在“With”语句中引用对象本身吗？

F.e.，假设我有一个函数将范围作为输入。我还将“With”锁定在特定范围内，用于编辑该范围内的多个属性：

Function ViewCellColor(inputrange As Range)
    ' This function takes a range as input
    MsgBox inputrange.Interior.Color
End Function

Sub Test()
    With Range("A1")
        .Select
        .Interior.Color = vbRed
        .Value = 10
        .Font.Bold = True
        Run ViewCellColor(Range("A1")) ' Use range as input to function
    End With
End Sub

在这里，我想将范围本身传递给函数，但在这里我必须重新编写范围引用（A1）以传递函数参数。是否可以避免在此处重复键入范围引用？

Answer 1

你不能，除非对象暴露了一个返回自身的成员。

Public Property Get Self() As WhateverThatClassIs
    Set Self = Me
End Property

对于Excel.Range，Cells 属性应该可以工作：

With ActiveSheet.Range("A1") '<~ always qualify Range with the sheet you're working with
    .Interior.Color = vbRed
    .Value = 10
    .Font.Bold = True
    Run ViewCellColor .Cells
End With

请注意，Range.Cells 属性没有任何参数 - 当我们执行 someRange.Cells(x) 时，(x) 下标与 Range 属性返回的 Range 对象的隐藏 Range.[_Default] 成员相冲突.

因为它没有返回任何东西，所以ViewCellColor 应该是一个Sub 过程，并且它的inputRange 参数应该被传递ByVal（隐式和不幸的隐式默认值是ByRef）因为那个范围没有业务重新分配特定的 Range 引用。