学习Excel技术,关注微信公众号:
excelperfect
在Excel应用程序中,经常使用类模块来创建自已的对象,用于:
1.封装VBA和Windows API代码,使之更易于使用或重用。
2.捕获事件。
3.引发事件。
4.创建自已的对象和对象模型。
创建自已的对象——CCell类模块示例
假设要使用代码来分析单元格,将其中的内容分为下面4种类型:
1.空值
2.标签
3.数值
4.公式
在VBE中插入一个类模块,将其命名为CCell,输入代码:
'创建枚举常量Public Enum anlCellType anlCellTypeEmpty anlCellTypeLabel anlCellTypeConstant anlCellTypeFormulaEnd Enum '声明模块变量Private muCellType As anlCellTypePrivate mrngCell As Excel.Range '为属性赋值Property Set Cell(ByRef rngCell AsExcel.Range) Set mrngCell = rngCellEnd Property '获取属性值Property Get Cell() A