在表单中调用Sub

我目前在工作簿中设置了一个表单.此表单包含一个按钮.点击按钮,我想调用位于"ThisWorkbook"部分内的Sub.我怎么能这样做呢？

表格内的按钮......

Sub CommandButton1_Click()
    Call Main("Test")
End Sub

需要在"ThisWorkbook"中调用的Sub

Sub Main(DPass As String)
    msgbox Dpass
End Sub

这将给我一个编译错误:Sub or Function not defined.为什么会这样？

基本上有两种类型的模块:

"标准/程序"模块

课程模块

"文档"模块(例如ThisWorkbook,Sheet1等)只是特殊类的类模块."UserForm"模块也是如此,它们基本上是具有默认实例和设计器的类.

类模块的成员在运行时不存在; 一类是只是一个蓝图,一个目标 -让你需要或者创建该类型的对象(类确定型),或使用现有的一个.

ThisWorkbook是一个实例的的Workbook类; Sheet1是Worksheet类的一个实例.Chart1是一个Chart类的实例; UserForm1是一个实例中的UserForm类.等等.

如果您创建一个新的类模块并调用它Class1,并向其添加一个公共过程:

Public Sub DoSomething()
    MsgBox "Something!"
End Sub

然后以打电话DoSomething,你需要一个实例的Class1:

Dim foo As Class1
Set foo = New Class1
foo.DoSomething

如果DoSomething在ThisWorkbook模块中,那么您可以通过使用它所存在的对象限定方法名称来调用它,如评论和其他答案中所述:

ThisWorkbook.DoSomething

如果DoSomething在标准/过程模块中实现,那么没有对象,该过程存在于全局范围内,您可以这样做:

DoSomething

但是,过程模块的公共成员也公开为宏(Public Sub)和用户定义的函数(Public Function),您可能不想这样做.

如果您需要具有公共成员的过程模块,您只能从VBA代码调用(而不是通过单击工作表上的按钮,或通过在单元格中输入公式),那么您可以Option Private Module在顶部指定:

Option Private Module

Public Sub DoSomething()
    ' DoSomething is not exposed as a macro, 
    ' but can be called from anywhere in the VBA project.
End Sub