excel自定义枚举常量 _知识经验

VBA提供了一些内置枚举常量，例如MsgBox函数的buttons参数成员vbOkOnly、vbOkCancel等，可以在程序中方便使用，并且这些常量可读性好，便于程序维护。当然，你可以创建自已的枚举常量，用于自已的代码。
使用Enum语句来创建枚举常量。Enum语句用于定义常量的名称、其内部各常量成员的名称以及对应的值。其语法为：
[Public Private] Enum 常量名
常量成员名 [ = 常量数值 ]
常量成员名 [ = 常量数值 ]
…
End Enum
说明：
Enum语句只能放置在代码模块的声明部分
常量数值必须为Long型，可以是一个正数或负数
如果从一开始就省略了常量数值，那么其常量成员名被赋值为0，后面依次加1 。如果省略的不是第一个成员名，那么后面的比前面的数值大1
【excel自定义枚举常量】创建枚举常量后，就可以将变量声明为枚举常量，也可以作为自定义函数返回值的类型
枚举中的常量数值可以叠加，例如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过程后的结果如下和所示。

文章插图

excel自定义枚举常量

推荐阅读

养蚕的蚕沙有什么作用

美女春季流行搭配攻略

灵仙狗脊当归茶

彩色半调怎么做怎么用PS做彩色半调

京东健康11.11优惠活动规则是什么？

豆沙馅|一生一柿，健康好柿花生馒头礼盒

梭子蟹的做法红烧家常红烧梭子蟹的做法

京东快车的费用在哪里查看？怎样降低费用？

怎样看江苏教育电视台直播

大闸蟹买回来死了一两个小时可以吃吗？

关于春天的现代诗歌有哪些（描写春天的现代诗歌）

天猫优惠券怎么领取？如何使用呢？

微信怎么取消风险提示

单纯舒张压高不可小觑

日本胶囊酵素怎么吃？

膝盖寒凉应该怎么办？

描写音乐喷泉的句子描写音乐喷泉优美的文字

平安树怎么养?家中种植平安树一定要注意这几点！

药材沙参的种植方法（沙参怎么种好）

女生如何自我保护，女生自我保护的方法