VBA/VB中的類方法

Question

當試圖在VBA中使用一個類時，我總是得到一個下標超出範圍錯誤，並且可以在這裏使用一些幫助！

這是類 -

Option Explicit 
Private buildWs As String 
Public Property Get affBuild() As String 
    affBuild = buildWs 
End Property 

Public Property Let affBuild(value As String) 
    buildWs = affBuild 
End Property 

Public Function activate() 
    Sheets(buildWs).activate 
End Function 

這是呼叫 -

Sub SetWs() 
    Dim current As CBuildSheet 
    Set current = New CBuildSheet 
    current.affBuild = "Resource Entry" 
    current.activate 
End Sub 

Answer 1

這是錯誤的...

Public Property Let affBuild(value As String) 
    buildWs = affBuild 
End Property 

，應該是...

Public Property Let affBuild(value As String) 
    buildWs = value 
End Property 

見。 http://ramblings.mcpher.com/Home/excelquirks/snippets/classes開始上課。

布魯斯

Answer 2

你Let方法應該是使用value參數：

Public Property Let affBuild(value As String) 
    buildWs = value 
End Property 

你Public Function activate()沒有返回任何值。可能你應該使用Public Sub activate()。