excel自定义枚举常量

excel自定义枚举常量

VBA提供了一些内置枚举常量，例如MsgBox函数的buttons参数成员vbOkOnly、vbOkCancel等，可以在程序中方便使用，并且这些常量可读性好，便于程序维护。当然，你可以创建自已的枚举常量，用于自已的代码。

使用Enum语句来创建枚举常量。Enum语句用于定义常量的名称、其内部各常量成员的名称以及对应的值。其语法为：

[Public Private] Enum 常量名

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

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

…

End 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

Case 5

strText = “excelperfect”

End Select

MsgBox strText

End Sub

Sub CallExcelPerfect()

ExcelPerfect MyExcel

ExcelPerfect MyPerfect + MyExcel

End Sub

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。