excel 在vba中用按钮调用子函数

k5ifujac 于 2023-01-31 发布在其他

关注(0)|答案(2)|浏览(233)

我有10个子函数宏在“这个工作簿”。而不是运行每个宏，每次我想要一个用户表单与按钮，当我点击，它应该执行所有的子函数在“这个工作簿”。
我创建了另一个类似于调用的函数，并使用了以下代码，

Sub calling()

Call lookup
Call RangeTest
 Call datecompare
Call AutoPivot
Call Autochart
 Call pivot
Call chart
Call pivot1
End Sub

所以，每当我去宏，我选择子调用（）和它执行10子函数。2我想有它通过一个按钮点击。3有人能建议我怎么做吗？

2条答案

你应该简单地从开发者功能区添加一个按钮，并将其分配给calling（）。但是，要确保你所有的宏都在同一个模块中，否则你必须指定它。如果你仍然得到一个错误，看看错误来自哪一行会很有趣。
谢谢

我假设混淆是因为你正在尝试使用ActiveX按钮。如果你正在使用窗体按钮，宏名称将出现在“分配宏”弹出框中。但ActiveX版本不提供对话框，并且因为按钮存在于页面上，所以不容易看到“此工作簿”中的宏。
以下是对我有效的方法。
表3内：

Private Sub CommandButton1_Click()
    Application.Run ("'ThisWorkbook.calling'")
End Sub