Question

我在“WBR45”表中有一个子程序（名为WBR），我在“Main”表中创建了一个按钮。我也已将宏指定给该按钮。

我已经在我的子WBR所在的module1中添加了以下代码：

Sub Button2_Click()
WBR
End Sub

My Sub我想通过按钮（在module1中）：

Sub WBR()

Dim Count1Criteria As Variant
Dim Count3Criteria As Variant
Dim test As Variant
Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
End Sub

（PS：代码太大，所以我刚开始）

但是当我点击按钮时，它不会运行或显示任何结果。

Answer 1

我怀疑您的代码未与您认为在Sub Button2_Click下的代码相关联，请尝试下面的代码＆＃34; debug＆＃34; （按下按钮时）

Sub Button2_Click()

MsgBox "Test here" ' <-- to test if you are getting here     
Sheets("WBR45").WBR

End Sub

Answer 2

您必须在WBR子例程示例中插入代码：

Sub WBR()
'do something
End Sub

按钮上的宏看起来应该是这样的

Sub Button2_Click()
WBR
End Sub

Answer 3

看起来你的宏没有分配给按钮，你发布的代码看起来是正确的。右键单击按钮＆gt;分配宏。然后选择正确的宏。

如果要调试，请在代码的左侧灰色条上放置一个红点，这将在宏执行时插入暂停。

（TS中的代码实际上并没有做任何事情，因此代码可能会被执行但你没有注意到任何事情）

将控制权传递给vba中的按钮

3 个答案: