处理单元格的事件类

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 工作表事件 这是 forum.ozgrid.com 上分享的一个与 Range 相关的工作表事件的通用处理程序类，名为 EventRange 。 这个类能够处理事件 Sheet_BeforeDoubleClick 、 Sheet_BeforRightClick 、 Sheet_Change 和 Sheet_SelectionChange 。 示例中，双击时表格标题会改变颜色，输入数据后，一些随机整数会被有趣地添加到输入的值中。 插入一个标准模块，输入下面的代码： Public clsHeaderEvents As EventRange Public clsDataAreaEvents As EventRange Sub Auto_Open() '初始化对象 Set clsHeaderEvents = New EventRange Set clsDataAreaEvents = New EventRange '为要处理的对象赋给单元格区域 clsHeaderEvents.Handle Sheet1.Rows(1)  clsDataAreaEvents.Handle Sheet1.Rows("2:100") '标题单元格区域双击和右击前运行的过程  clsHeaderEvents.BeforeDoubleClick  = "ChangeRandomColor"  clsHeaderEve ………………………………