作者：绿色风
分类：
时间：2022-08-18
浏览：113
楼主
liuguansky |
类事件。
在确认收录成员前进行事件弹出提示确认。
类模块代码：无敌战队类- Private col As New Collection, i%, j%, k&'定义变量，引用集合对象
- Public Event BeforeAdd(ByRef cancel As Boolean)'类事件申明
- Public Sub add(rng As Range) 'ADD方法
- Dim addbo As Boolean
- RaiseEvent BeforeAdd(addbo)'激活事件
- If addbo Then Exit Sub'对事件的反映进行处理
- col.add rng'添加单元格对象
- Application.ScreenUpdating = False'对单元格对象进行处理
- rng.Interior.Color = i
- rng.Font.Size = j
- rng.Font.Color = k
- Application.ScreenUpdating = True
- End Sub
- Private Sub Class_Initialize()
- i = 192: j = 14: k = 13995347'初始化类参数
- End Sub
窗体与模块代码。- Sub df()
- UserForm1.Show 0'激活窗体
- End Sub
- Dim WithEvents v As 无敌战队'申明事件类
- Private Sub CommandButton1_Click()
- v.add Worksheets(1).Range(TextBox1.Text)'添加单元格至类实例
- End Sub
- Private Sub UserForm_Initialize()
- Set v = New 无敌战队'初始化类实例
- End Sub
- Private Sub v_BeforeAdd(cancel As Boolean)'实例事件
- If MsgBox("确认添加此成员单元格？", vbYesNo) = vbNo Then cancel = True'弹出信息框，确认是否确认加入。
- End Sub
 桌面.rar
|
2楼
avel |
学习了。 感谢分享 |
3楼
水星钓鱼 |
学习下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一