尝试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