database - 通过单击另一个命令按钮在另一个工作表中单击命令按钮

Question

我在不同的工作表中有几个命令按钮。现在我希望用户能够在需要时同时运行所有程序。因此，我想使用一个新的命令按钮来运行所有工作表中的所有命令按钮。但是我总是收到一条错误消息..我必须采取措施但没有为我解决问题:

运行潜艇:

Private Sub CommandButtonX_Click()


run CommandButtonY_Click

run CommandButtonZ_Click

etc.

end sub

..什么都没发生

我的另一种方法是选择所有工作表并“激活命令按钮”，它总是称为 CommandButton1_Click 但是我仍然不知道该怎么做

这是我的方法:

Sheets(Array("AA", "BB", "CC",etc.).Select
    Sheets("AA").ActivateCall 

Call CommandButton1_Click

End Sub

我是新手，非常感谢您的帮助!

谢谢!

延斯

Answer 1

这纯粹是一种设计意见，但我会尝试以不同的方式解决这个问题。

我的偏好是将我的子例程放在一个单独的模块中，并通过一个按钮简单地调用它们。也就是说，_Click 事件看起来像这样:

Private Sub Command1_Click()
    Call DoSomeStuff
End Sub

虽然在一个单独的模块中，我的所有潜艇都相应地分组:

Sub DoSomeStuff()
    Sheet1.Range("A1").Value = "Hooray for VBA"
End Sub

使用这种方法，您可以避免使用 VBA 有时不稳定(在我看来)的事件处理程序，并且如果它们被多个不同的按钮调用，您可以使用适当的参数重新使用 subs。

然后你的“主按钮”就会调用所有的子按钮:

Private Sub Command1_Click()
    Call DoSomeStuff
    Call DoSomeMoreStuff
    Call DoTheFinalStuff
End Sub