VBA入门到进阶常用知识代码总结69

最新推荐文章于 2023-02-12 10:10:31 发布

tiansdk320

最新推荐文章于 2023-02-12 10:10:31 发布

阅读量532

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.youkuaiyun.com/tiansdk320/article/details/104366749

版权

本文通过实例介绍了VBA中类模块处理不同事件的方法，包括按钮点击事件、工作表图片点击事件、命令菜单点击事件以及取消隐藏列的处理。通过创建类模块为控件绑定事件，实现更灵活的交互功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

第69集类模块事件
340、按钮事件
Dim mycombar(1 To 6) As New Combarclass
Private Sub UserForm_Initialize()
Dim x As Integer
For x = 1 To 6
Set mycombar(x).com = Me.Controls(“CommandButton” & x)
Next x
End Sub
插入类模块：Combarclass
Public WithEvents com As MSForms.CommandButton '表示窗体的按钮对象
Private Sub com_Click()
MsgBox com.Caption
End Sub
341、工作表事件
模块中代码：
Dim p(1 To 4) As New 工作表控件
Sub 创建图片类()
Dim x As Integer
For x = 1 To 4
Set p(x).im = Sheet1.OLEObjects(“image” & x).Object '表示工作表的图片控件
Next x
End Sub
插入类模块：工作表控件
Public WithEvents im As Image
Private Sub im_Click()
MsgBox “你点击了” & im.Name
End Sub
342、命令菜单事件
窗体中代码：
Dim c(1 To 4) As New 菜单命令类
Sub 添加快捷菜单()
Dim mypup As CommandBar
Dim com As CommandBarButton
Dim x

最低0.47元/天解锁文章