作者：绿色风
分类：
时间：2022-08-17
浏览：130
楼主
kevinchengcw |
Q: 如何利用vba的Type定义自定义类型，实现数据的快速提取？
A: 关于Type的一些准备知识：
Type 语句只能在模块级使用。使用 Type 语句声明了一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变量。可以使用 Dim、Private、Public、ReDim 或 Static 来声明用户自定义类型的变量。
在标准模块中，用户自定义类型按缺省设置是公用的。可以使用 Private 关键字来改变其可见性。而在类模块中，用户自定义类型只能是私有的，且使用 Public 关键字也不能改变其可见性。
在 Type...End Type 块中不允许使用行号和行标签。
Type用法架构：
在程序公共区域定义：- Type 您的自定义类型名
- 变量名1 as 类型
- ......
- 变量名n as 类型
- End Type
在程序中定义该类型变量：
'定义自定义类型单体变量- Dim 变量名 As 您的自定义类型名
'定义自定义类型的数组变量- Dim 数组变量名(数组维数信息) As 您的自定义类型名 '定义一个自定义类型的数组
参考实例：
六楼：
代码解说:- Type Level '定义自定义类型Type用来存储对应数据的名称，级别A，B，C的分级数据
- Name As String '定义自定义类型的子变量Name为字符串型
- A As String '定义自定义类型的子变量A为字符串型
- B As String '定义自定义类型的子变量B为字符串型
- C As String '定义自定义类型的子变量C为字符串型
- End Type
变量定义：- Dim Level(1 To 8) As Level '定义一个8个单元的一维数组（其中每个单元都具备自定义变量的各个类型）
赋值语句：- Level(N - 1).Name = Trim(.Cells(1, N).Value) '赋予当前数组变量的Name值为当前N列第一单元格去除两端空格后的值
总结：
利用type语句，我们定义一个自定义类型并为变量设置易读的变量名后，可以方便的提取对应的数据，同时提高代码的可读性，并免除了用循环列举对应变量的麻烦。
以上为个人经验，请高手斧正。 |
2楼
biaotiger1 |
TYPE定义用户自定义类型
|
3楼
水星钓鱼 |
学习了。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一