[已解决]按一下，使行一个宏然后暂时一下，再按下在使行下个宏。

爷们679 · 发表于 2017-10-7 07:33

本帖最后由爷们679 于 2017-10-11 21:35 编辑

按一下，使行一个宏然后暂时一下，再按下在使行下个宏。

最佳答案

砂海

2017-10-7 08:46

参考这个:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "程序1" Then
      Call 程序1
      CommandButton1.Caption = "程序2"
Else
      Call 程序2
      CommandButton1.Caption = "程序1"
End If
End Sub

跳转到最佳答案楼层

爷们679 · 发表于 2017-10-7 08:17

补充一句。每按一次宏暂时一下。并把按钮中的文字也跟着改。

砂海 · 发表于 2017-10-7 08:46

参考这个:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "程序1" Then
      Call 程序1
      CommandButton1.Caption = "程序2"
Else
      Call 程序2
      CommandButton1.Caption = "程序1"
End If
End Sub

爷们679 · 发表于 2017-10-7 09:41

本帖最后由爷们679 于 2017-10-7 20:37 编辑

砂海发表于 2017-10-7 08:46
参考这个:

Private Sub CommandButton1_Click()

.....

		自动登录	找回密码
密码			注册

[已解决]按一下，使行一个宏然后暂时一下，再按下在使行下个宏。

评分