VBA - 在用戶類內存儲有到一系列房產

Question

我有一個具有以下定義的類：

Private pvtRngTest1 As Range 

Public Property Get RngTest1() As Range 
    Set RngTest1 = pvtRngTest 
End Property 

Public Property Set RngTest1(ByVal rng As Range) 
    Set pvtRngTest1 = rng 
End Property 

當我使用這個類，我想：

Sub FindAllTablesOnSheet(oSh As Worksheet) 
    Dim oLo As ListObject 
    For Each oLo In oSh.ListObjects 
     MsgBox "Table found: " & oLo.Name & ", " & oLo.Range.Address 
     Dim sr As SheetRanges 
     Set sr = New SheetRanges    
     Set sr.RngTest1 = oLo.Range    
     MsgBox sr.RngTest1.Address 
    Next 
End Sub 

我收到一個錯誤：Object Required（在Next語句內的最後一行）

有人可以幫忙解釋一下嗎？我相信我正確設置了Range屬性，當我設置時沒有錯誤，但是我無法訪問該屬性的地址。

Answer 1

由於https://stackoverflow.com/users/3598756/user3598756上面說過，這是錯字。自從我看了VBA並且忽略了Option Explicit的好處已經過去了大約10年。 ：S