作者：绿色风
分类：
时间：2022-08-17
浏览：120
楼主
amulee |
Q：如何创建VBA事件？
A：创建VBA事件需要定义一个类模块，在类模块中用Event来定义一个事件。然后编写代码，通过RaiseEvent来触发事件。在本例中，要创建一个独立的SelectionChange事件，当用户选择了A1单元格时触发该事件。创建一个类模块，命名为MySht，输入以下代码：
- Public Event SelectA1()
- Public WithEvents Sht As Worksheet
- Private Sub Sht_SelectionChange(ByVal Target As Range)
- If Target.Address = "$A$1" Then
- RaiseEvent SelectA1
- End If
- End Sub
在Sheet1中输入以下代码：
- Private WithEvents MyS As MySht
- Sub Test()
- Set MyS = New MySht
- Set MyS.Sht = Sheet1
- End Sub
- '单击A1事件代码
- Private Sub MyS_SelectA1()
- MsgBox "你单击了A1单元格"
- End Sub
在运行了Test之后，就完成了Sheet1和自定义类示例的绑定，当选择A1单元格的时候会触发SelectA1事件，从而运行该事件过程中的语句。我们还可以加上一个SelectionChange事件来体会一下区别。可以继续在Sheet1中添加如下代码：
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- MsgBox Target.Address
- End Sub
 创建自己的事件.rar
|
2楼
水星钓鱼 |
学习下。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一