通過單個按鈕控制多個按鈕

-2

我創建了10個不同的按鈕，每個按鈕都有一個唯一的SUB（）分配給它。我現在想通過主按鈕在一次點擊中執行所有10個按鈕。那可能嗎？有人可以指導我嗎？通過單個按鈕控制多個按鈕

2017-01-16 Ford Harrison

顯示，到目前爲止，你已經嘗試了代碼，並在您有更改此子一個具體問題。 –

假設你的「主」按鈕以後被命名「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

這種方法是：

「穩健」
在
你不必擔心記住「列出」所有其他宏名稱
「可維護」
在
你不必無論你可能會多少添加按鈕或在您的進一步開發的編碼刪除

來源

2017-01-16 15:47:54 user3598756

是否可以將不同按鈕的子項添加到一個按鈕中並通過一個按鈕執行多個子按鈕？ –

對不起，我不明白你的意思。我會說你問這個OP的答案已經得到了相同的功能...... – user3598756

從「主按鈕」調用所有子執行。您可以使用CALL聲明調用另一個子項。

例子：

Sub MasterButton() 
    Call Button1 
    Call Button2 
End Sub

來源

2017-01-16 15:17:24 mrbubble456

你可以打電話給你的宏

無論宏名是

來源

2017-01-16 15:18:11 Davesexcel

您還可以通過改變其值來「點擊」按鈕「真「：

Sub clicking() 

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

End Sub

來源

2017-01-16 15:28:34 Wujaszkun

通過單個按鈕控制多個按鈕

回答

相關問題