vba：在运行另一个命令时运行一个commund按钮

Question

我有两个像这样的命令按钮：

<5>

我想在CommandButton1运行时运行CommandButton2。

有人有什么想法吗？

Answer 1

尝试一下...

Private Sub CommandButton1_Click()
    CommandButton1.BackColor = vbRed
    For X=1 to 15
        Application.Wait (Now + TimeValue("00:00:01"))
        DoEvents
    Next X
    CommandButton1.BackColor = vbYellow
End Sub

如果您每次可以等待100毫秒而不是1秒钟，则您的应用程序将具有更高的响应速度。