excel自定义枚举常量
时间:2023-09-02 10:28:07
VBA提供了一些内置枚举常量,例如MsgBox函数的buttons参数成员vbOkOnly、vbOkCancel等,可以在程序中方便使用,并且这些常量可读性好,便于程序维护。当然,你可以创建自已的枚举常量,用于自已的代码。
使用Enum语句来创建枚举常量。Enum语句用于定义常量的名称、其内部各常量成员的名称以及对应的值。其语法为:
[Public Private] Enum 常量名
常量成员名 [ = 常量数值 ]
常量成员名 [ = 常量数值 ]
…
End Enum
说明:
Enum语句只能放置在代码模块的声明部分
常量数值必须为Long型,可以是一个正数或负数
如果从一开始就省略了常量数值,那么其常量成员名被赋值为0,后面依次加1。如果省略的不是第一个成员名,那么后面的比前面的数值大1
创建枚举常量后,就可以将变量声明为枚举常量,也可以作为自定义函数返回值的类型
枚举中的常量数值可以叠加,例如MsgBox函数中buttons参数值可以设置为vbCritical + vbYesNo
示例
下面的代码创建自定义枚举常量,并在程序中使用。
Enum MyText
MyExcel = 1
MyPerfect = 2
MyExclaim = 4
End Enum
Sub ExcelPerfect(eText AsMyText)
Dim strText As String
Select Case eText
Case 1
strText = “Excel”
Case 2
strText = ” ”
Case 3
strText = ” Excel”
Case 4
strText = “微信 ”
Case 5
strText = “excelperfect”
End Select
MsgBox strText
End Sub
Sub CallExcelPerfect()
ExcelPerfect MyExcel
ExcelPerfect MyPerfect + MyExcel
End Sub
运行CallExcelPerfect过程后的结果如下和所示。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Word中快速设置字体一法
![](https://img.aspxhome.com/file/2023/4/19654_0s.jpg)
tmp是什么文件_后缀是tmp能否删除介绍
![](https://img.aspxhome.com/file/2023/3/a299040_0s.jpg)
在excel中如何用简便地方法处理换行符?
![](https://img.aspxhome.com/file/2023/1/42181_0s.jpg)
win10红警2鼠标一闪一闪的怎么办_win10红警2鼠标无效解决方法
![](https://img.aspxhome.com/file/2023/4/a312864_0s.jpg)
搜狗浏览器怎么设置自动保存账号密码?
![](https://img.aspxhome.com/file/2023/8/a340017_0s.jpg)
神奇证件照片打印软件怎么使用替换背景功能?
![](https://img.aspxhome.com/file/2023/7/a330795_0s.jpg)
win102004无法安装怎么办-win102004无法安装解决方法
![](https://img.aspxhome.com/file/2023/3/a297399_0s.jpg)
win10打开我的电脑出现不支持此接口怎么办?
![](https://img.aspxhome.com/file/2023/30/a264967_0s.jpg)
Win10/Win8.1/Win7全方位性能评测大揭秘(2):综合测试
![](https://img.aspxhome.com/file/2023/28/a248305_0s.jpg)
如何自定义创建Photoshop工作区?
如何解决Win10/Win11硬盘时常写入100%电脑假死问题?
![](https://img.aspxhome.com/file/2023/1/a281508_0s.png)
在EXCEL表格中如何使用ACCRINT函数?
![](https://img.aspxhome.com/file/2023/4/41524_0s.jpg)
wps怎么设计简单的流程图?
![](https://img.aspxhome.com/file/2023/2/a166212_0s.png)
2022年11月最新3000元电脑配置推荐
![](https://img.aspxhome.com/file/2023/30/a267783_0s.png)
如何将JPEG图片转换成可编辑的Word文档
![](https://img.aspxhome.com/file/2023/9/23829_0s.jpg)
雨林木风win10安装教程u盘_U盘安装雨林木风win10系统图文教程
![](https://img.aspxhome.com/file/2023/2/a290927_0s.jpg)
Win8.1多次蓝屏错误代码0x0000013a的修复方法
![](https://img.aspxhome.com/file/2023/4/a303579_0s.jpg)
炫龙笔记本u盘安装win11系统教程
![](https://img.aspxhome.com/file/2023/30/a268488_0s.png)
在excel中用自定义函数获取合并单元格内的行数
wps的ppt有画笔功能吗,wps ppt的画笔工具在哪里?
![](https://img.aspxhome.com/file/2023/10/a351243_0s.png)