Question

vba多个按钮如何用同一个click事件表示

在一个表中我有10个按钮active控件，每个按钮执行的代码是一样的，请问能不能只用一个click事件来表示啊？如果可以的话，能附上代码举例吗？谢谢！

Answer 1

比如上面的例子，就可以不用那么多按钮，只用1组就好。

先选中待计时的单元格所在行的任一单元格，这样就可以用ActiveCell.Row确定当前单元格的所属行号，然后点开始按钮，停止时点结束按钮。设开始时间为A列，结束时间为C列，分别为两个按钮编写以下过程：
Sub 开始按钮_单击()
    Range("A" & ActiveCell.Row).Value = Time()
End Sub
Sub 结束按钮_单击()
    Range("C" & ActiveCell.Row).Value = Time()
End Sub

追问

Sub 结束按钮_单击() Range("C" & ActiveCell.Row).Value = Time()End Sub
这个事件中不用指定是哪个结束按钮吗？按你的思路，只需要一个开始按钮和一个结束按钮就好了

追答

对。用当前单元格（ActiveCell）的属性足以获取其他信息。

Answer 2

可以，定义一个带参数的通用过程即可

然后每次单机按钮，调用该次命令到参数进通用过程，

追问

请问有例子吗？谢谢

追答

你上面的例子太过简单，你说清楚目的我给你搞代码

追问

比如我有十个按钮，每个按钮按下后都是调用同一个过程，只是每个按钮都带有不同参数，处理过程是一样的，比如按钮1的参数为1，调用一个计算过程，最后显示结果

追答

这个好简单
比如
type dtb
x as integer
y as integer'
end type
sub add(dtb1 as dtb)
msgbox dtb.x+dtb.y
end sub
sub button1_click() call add(d)
end sub

追问

这样button2、button3、button4...不是各要写一个click事件吗？我想所有button都用同一个事件

追答

控件数组会不会

Answer 3

解决这个问题最好的方法是用类模块

追问

这个我还没了解过哦，请问有例子或者教程吗?谢谢

追答

如附件所示，所有的CommandButton的click都用类模块，你可以在工作表中任意增加多个CommandButton，增加后保存重新打开本表，增加后的CommandButton按钮会自动调用类模块的代码，