通过单个按钮控制多个按钮

问题描述：

我创建了10个不同的按钮，每个按钮都有一个唯一的SUB（）分配给它。我现在想通过主按钮在一次点击中执行所有10个按钮。那可能吗？有人可以指导我吗？通过单个按钮控制多个按钮

显示，到目前为止，你已经尝试了代码，并在您有更改此子一个具体问题。 –

答

假设你的 “主” 按钮以后被命名 “MasterBtn” 你只需要添加其下面的Click事件处理程序：

Private Sub MasterBtn_Click() 
    Dim ctrl As Control 

    For Each ctrl In Me.Controls 
     If TypeName(ctrl) = "CommandButton" Then If ctrl.name <> "MasterBtn" Then ctrl.Value = True 
    Next 
End Sub

这种方法是：

“稳健”
在
你不必担心记住“列出”所有其他宏名称
“可维护”
在
你不必无论你可能会多少添加按钮或在您的进一步开发的编码删除

是否可以将不同按钮的子项添加到一个按钮中并通过一个按钮执行多个子按钮？ –

对不起，我不明白你的意思。我会说你问这个OP的答案已经得到了相同的功能...... – user3598756

答

从“主按钮”调用所有子执行。您可以使用CALL声明调用另一个子项。

例子：

Sub MasterButton() 
    Call Button1 
    Call Button2 
End Sub

答

你可以打电话给你的宏

无论宏名是

答

您还可以通过改变其值来“点击”按钮“真“：

Sub clicking() 

yourButtonName1.Value = True ' <- click 
yourButtonName2.Value = True ' <- click 
yourButtonName3.Value = True ' <- click 

End Sub

通过单个按钮控制多个按钮

相关推荐