VBA提供了一些内置的枚举常量，比如MsgBox函数的buttons参数成员vbOkOnly和vbOkCancel，在程序中很容易使用，这些常量可读性强，便于程序维护。当然，您可以为自己的代码创建自己的枚举常数。

使用枚举语句创建枚举常数。Enum语句用于定义常量的名称、内部常量成员的名称以及相应的值。它的语法是：

[公共/私有]枚举常量名称。

常量成员名称[=常量值]

常量成员名称[=常量值]

…

结束枚举

描述：

枚举语句只能放在代码模块的声明部分。

常量值必须是Long，可以是正数，也可以是负数。

如果从开始处省略常数值，则将其常数值成员名赋给0，后跟1。如果没有，则省略第一个成员名，然后后面的数字比前一个数字大1。

创建枚举常数后，可以将变量声明为枚举常数或自定义函数的返回值类型。

枚举中的常数值可以叠加，例如MsgBox函数中的buttons参数值可以设置为vbCritical vbYesNo。

例子

下面的代码创建一个自定义枚举常数，并在程序中使用它。

枚举MyText

MyExcel=1

MyPerfect=2

MyExclaim=4

结束枚举

子超越完美(eText AsMyText)

将文本作为字符串变暗

选择案例文本

案例1

strText="Excel "

案例2

strText=" "

案例3

strText=" Excel "

案例4

StrText="微信"

案例5

strText="excelperfect "

结束选择

MsgBox strText

末端接头

Sub CallExcelPerfect()

超越完美我的极限

超越完美我完美的我

末端接头

运行CallExcelPerfect流程后的结果如和所示。