Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA/VB中的类方法_Excel_Vba - Fatal编程技术网

Excel VBA/VB中的类方法

Excel VBA/VB中的类方法,excel,vba,Excel,Vba,当我试图在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

当我试图在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
这是错误的

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

Public Property Let affBuild(value As String)
  buildWs = value
End Property
看。开始上课

布鲁斯这是错误的

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

Public Property Let affBuild(value As String)
  buildWs = value
End Property
看。开始上课


Bruce

您的
Let
方法应该使用
参数:

Public Property Let affBuild(value As String)
    buildWs = value
End Property
您的
公共函数activate()
未返回任何值


也许,您应该使用
Public Sub activate()

您的
Let
方法应使用
参数:

Public Property Let affBuild(value As String)
    buildWs = value
End Property
您的
公共函数activate()
未返回任何值


也许,您应该使用
Public Sub activate()

谢谢-我不知道我怎么会错过那个有价值的部分。谢谢-我不知道我怎么会错过那个有价值的部分。