vba - 尝试 MsgBox 单元格引用地址时出现运行时错误 '424'

Question

我正在尝试将单元格引用地址作为字符串返回。

1   Sub Test()
2       minLoc = Worksheets("Skills").Range("C2")
3       Dim Loc As String
4       Loc = minLoc.Address(RowAbsolute:=False, ColumnAbsolute:=False)
5       MsgBox (Loc)
6   End Sub

错误“运行时错误 '424':”出现在第 4 行。

Answer 1

将 minLoc 更改为一个范围并设置它。正如您所写的那样，VBA 将其用作字符串。该字符串将没有 .Address 属性。

Sub Test()
    Dim minLoc As Range
    Set minLoc = Worksheets("Skills").Range("C2")
    Dim Loc As String
    Loc = minLoc.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    MsgBox (Loc)
End Sub