[已解决]vba如何将sheet本身和sheet中的ActiveX控件传给类的变量里

xq254369

如定义类cmd_Class
Public WithEvents cmd As MSForms.CommandButton
Public sh As Workbook

Sub cmd_Click()
    MsgBox "cmd_Click"
End Sub

然后在一个窗体按钮的click事件中将sheet1传给cmd_Class.sh
commandButton1是在sheet1中的一个ActiveX按钮

    Dim newclass As cmd_Class
    Set newclass = New cmd_Class
    newclass.sh = Worksheets("sheet1")
    newclass.cmd = Worksheets("sheet1").OLEObjects("commandButton1")

实际执行到给newclass.sh赋值时就报错，提示“运行时错误：91，对象变量或With块变量未设置”
该如何处理啊，谢谢！

最佳答案

月排行榜 / 总排行榜

Zipall

2014-1-12 15:32

大的错误有3处
1 工作表对象类型错误 应为 Public sh As Worksheet
2 将对象赋值给对象变量需要用set语句.所以模块里那两个赋值语句前都应加set
3 最后一个赋值语句还应加上一点OLEObjects("commandButton1").object

跳转到最佳答案楼层

Zipall

大的错误有3处
1 工作表对象类型错误 应为 Public sh As Worksheet
2 将对象赋值给对象变量需要用set语句.所以模块里那两个赋值语句前都应加set
3 最后一个赋值语句还应加上一点OLEObjects("commandButton1").object

xq254369

经过测试，发现此处用类实现比模块的执行效率慢，还是用模块吧。
多谢  Zipall

Zipall

xq254369 发表于 2014-1-12 16:09
经过测试，发现此处用类实现比模块的执行效率慢，还是用模块吧。
多谢  Zipall

sheet或按钮少时它没有优势.只有按钮多时才需要考虑类模块.

比如 有100个sheet,每个sheet上有10个按钮都要执行类似的click过程.
不用类模块你需要写1000个过程,如果用类模块,那么只需要2个过程(类模块里的click过程和将类实例化的过程).

xq254369

Thanks !