枚举类的意义_第34讲：VBA类应用中枚举Enumeration的利用

大家好，今日继续类的讲解，到上一讲，我们的pigsy类的羽翼已经逐渐丰满，本篇的内容将让它变得更加专业。

不知道你注意到没有，pigsy类中对Gender（性别）属性的设计存在一点缺陷：我们用私有模块级字符串变量myGender宿主来保存性别数据，既然是一个字符串变量，那就可以往里面保存任何字符串数据，比如“女”，“女性”，“Female”，“男”，“男性”，“male”。虽然字面上都是可以理解的意思，但是写法上都不相同，你无法控制使用者会给myGender赋什么值，这样就会造成信息处理和判断上的混乱。作为一个较为专业的类的设计者，我们要提供一套规范的取值范围。

在上面的文字中，我提到了六个取值，这些值可以说是一个相对固定的常量，我们可以在类中使用像这种固定的常量名称，这种在类中使用常量的方式是非常普遍的。现在我们就来介绍如何在自己的类中使用这种常量。

这种常量实际上是枚举类型（Enumeration）中的一个值。我们在pigsy类的头部，为性别属性定义一个枚举类型pGender：

Public Enum pGender

Female

Male

End Enum

这里的枚举是pGender，其中“p”代表类名“pigsy”我们定义的是公有的（Public）枚举类型，这个枚举类型在整个项目范围内都是可见的，将类名缩写作为前缀有利于与其他类中的枚举类型相互区分。

特别注意点：一般的常量在定义的时候，需要给定一个常量值，可以为各种类型，比如Const PI As Double = 3.14，就是双精度型。但是枚举类型常量很特殊，它只能是长整形（Long）比如Female = 0。但是我们这里连“=0”都没有写。如果什么都没写，叫表示“从0开始，依次加1”，所以上述代码与下述代码是一样的：

Public Enum pGender

Female = 0

End Enum

Male = 1

好了，枚举类型的定义就介绍到这里。我们来看看如何使用它。

有了pGender这个类型，我们就可以将性别属性定义为这种类型了。我们将

Private myGender As String 改为Private myGenderA As pGender，将Gender的读写属性做相应修改，相关代码最后效果如下：

Private myGenderB As pGender

Public Enum pGender

Female

Male

End Enum

Public Property Get Gender() As pGender

Gender = myGenderA

End Property

Public Property Let Gender(inGender As pGender)

Static myFlag As Boolean

If myFlag = False Then

myFlag = True

myGenderA = inGender

Else

MsgBox "对不起，二师兄不能做性别修改"

End If

End Property

类修改枚举部分的代码截图：

有了这些修改以后，我们在类的测试代码中，就会发现不一样的效果了，如下图:

通过以上的修正，类的使用者（模块1中的测试代码）在给性别赋值的时候，IDE的智能提示就会自动显示出来，供其选择。

类中的枚举常量使用起来非常简单，但是它极大地增加了类的友好性，也是开发人员专业性的直观体现。是一项投资回报率非常高的技能。

本讲的实际测试代码读者可以参考随书的测试文件VBA-CLASS（上34）.xlsm 文件。

今日内容回向：

1 本讲中讲了枚举，读者是否明白了?

2 本讲的代码中类的属性是否发生了改变？

在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！学习VBA是个过程，如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。

“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，有一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。

VBA是利用Office实现自己小型办公自动化的有效手段，我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了五部VBA专门教程。

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备；

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，可以对促进自己理论的提高。

学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。我的上述教程是我多的经验的传递，大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。

最后将一阙词送给致力于VBA学习的朋友：

浮云掠过，暗语无声，唯有清风，惊了梦中啼莺。

望星，疏移北斗，奈将往事雁同行。

阡陌人，昏灯明暗，忍顾长亭。

多少VBA人，暗夜中，悄声寻梦，盼却天明。

怎无凭！

分享成果，随喜正能量