请教如何用VBA实现多个命令按钮click功能

davidlian · 发表于 2009-2-26 00:59

我使用VBA设置了3个状态的click命令按钮，
如果我需要增加多个命令按钮，还具备以上3个状态，使用click进行切换
想请教各位大侠：如何用VBA实现多个命令按钮click功能，而不是需要每增加一个按钮就写一段代码
多谢各位了，请帮帮忙！！！！

Book1.rar (13.64 KB, 下载次数: 128)

LangQueS · 发表于 2009-2-26 02:24

给个参考先：

在两个宏中依次循环执行一个并相应修改按钮名称

Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "保护工作表" Then
   Call 保护工作表
      .Caption = "取消工作表保护"
   Exit Sub
End If
If .Caption = "取消工作表保护" Then
   Call 取消工作表保护
      .Caption = "保护工作表"
   Exit Sub
End If
End With
End Sub

davidlian · 发表于 2009-3-3 21:05

多谢！
这个问题的难点在于：
多个命令按钮实现的功能是一样，区别就在于需要点击逐个按钮才能实现，现在怎么样可以编一个代码就能够实现若干个命令按钮的功能，而不需要每个按钮都编一个click代码，我使用了1000个按钮，如果每个都写代码的话，很大工作量。
以上如果可以解决的话，将会简单很多。

maditate · 发表于 2009-3-3 21:07

如果一千个按钮功能是一样的就只要一个按钮。

jiulongpo · 发表于 2009-3-3 21:12

把哪三个按钮的click过程组合为一个sub过程,每个按钮调用同一个sub过程.
或干脆用类模块设置

LangQueS · 发表于 2009-3-3 21:14

为保密数据加或减误差.rar (10.32 KB, 下载次数: 186)

davidlian · 发表于 2009-3-4 19:43

多谢楼上几位仁兄！

我的困难是在于：CommandButton1设置了click循环，点击了之后可以在"空闲"、 "试验中、 "故障"三种状态循环；
然后CommandButton2也需要设置click循环，点击了之后可以在"空闲"、 "试验中、 "故障"三种状态循环；
CommandButton3也需要设置click循环，点击了之后可以在"空闲"、 "试验中、 "故障"三种状态循环；
……
我总共需要1000个命令按钮，总不能这样每个都设置一段代码。
不知道能不能够编一段代码，就可以实现上面的功能。
请大家帮帮忙，如果可以的话上传个附件，我对于VBA的理解还不够。

LangQueS · 发表于 2009-3-4 19:54

原帖由 davidlian 于 2009-3-4 19:43 发表
多谢楼上几位仁兄！
我的困难是在于：CommandButton1设置了click循环，点击了之后可以在"空闲"、 "试验中、 "故障"三种状态循环；
然后CommandButton2也需要设置click循环，点击了之后可以在"空闲"、 "试验 ...

如果需要过于复杂的按钮系列，建议使用代码，设置单元格作为按钮...

ljw990485 · 发表于 2009-3-4 20:35

原帖由 davidlian 于 2009-2-26 00:59 发表
我使用VBA设置了3个状态的click命令按钮，
如果我需要增加多个命令按钮，还具备以上3个状态，使用click进行切换
想请教各位大侠：如何用VBA实现多个命令按钮click功能，而不是需要每增加一个按钮就写一段代码
多谢 ...

这个应该回答了你的问题

yagi2008 · 发表于 2009-3-4 22:12

楼主的意思是需要一个三态按钮，实现三种状态转换的代码可能每个按钮都一样，但每个按钮可能还包括了不同的其他代码，对吧？
其实把相同的代码部分写成一个SUB，然后每次调用一下，不失为一个好的解决方法！

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

[求助] 请教如何用VBA实现多个命令按钮click功能