在另一个工作表中的另一个按钮上运行(单击)的命令按钮

时间:2019-05-03 13:57:36

标签: excel vba

第4页(名称1)具有一个按钮,该按钮会将用户带到带有图形Sheet3(Graph)的另一个工作表

Private Sub CommandButton1_Click()

ThisWorkbook.Sheets("Graph").Activate
End Sub

目标:在工作表4(名称1)中也具有一个按钮,也可以在另一个工作表1(基本)中单击另一个按钮,这将导致更新图形。

我知道,仅具有按钮也可以执行代码听起来比较容易,但在这种情况下不是这样。

1 个答案:

答案 0 :(得分:2)

“其他按钮”可能看起来像这样:

Private Sub CommandButton42_Click()
    'do stuff...
End Sub

将其更改为此:

Private Sub CommandButton42_Click()
    DoStuff
End Sub

DoStuff过程放入标准模块中(请注意Public访问修饰符):

Public Sub DoStuff()
    'do stuff...
End Sub

如果您不希望将DoStuff作为宏公开显示,请在放置Option Private Module的位置附近的顶部添加Option Explicit:)

然后您的按钮可以执行以下操作:

Private Sub CommandButton1_Click()
    DoStuff
End Sub

请勿从用户代码中调用Click处理程序-事件处理程序应为Private并由事件提供程序对象调用。