VBA 检查按钮是否被点击答案

【问题标题】：VBA Check if button has been clickedVBA 检查按钮是否被点击
【发布时间】：2013-07-26 21:05:47
【问题描述】：

我认为这是一个简单的解决方法，但我已经被困在这个问题点好几个小时了。

基本上在 excel 工作表中，我有两个按钮分配给宏：1 和 2。如果用户先单击 1，然后单击 2，则 2 会从 1 中运行一些变量。但我需要 2 才能如果先单击 2，则独立操作。因此，我需要在 2 代码中询问是否单击了 1 个按钮。

1 和 2 都是公共子。我认为定义中缺少一些东西，但我不确定。

简单示例：

Public Sub 1()
do this
End Sub

Public Sub 2()
If 1 clicked then
   process a
Else
   process b
End if
End Sub

【问题讨论】：

标签： vba button click

【解决方案1】：

设置一个公共布尔值并使用它

例如

Dim ButtonOneClick As Boolean 'Make sure this is before all subs

Sub Button1_Click()
ButtonOneClick = True
End Sub

Sub Button2_Click()
If ButtonOneClick Then
    MsgBox "Button 1 Was Clicked"
Else
    MsgBox "Button 1 Was NOT Clicked"
End If

ButtonOneClick = False
End Sub

【讨论】：