嘗試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