大家好，在二师兄的成长之六----枚举的利用中，我们谈到了用枚举常量的方案来解决性别属性的赋值问题。那么通过这种方案给性别属性赋值的时候，是不是就一劳永逸了呢？我们回头找到第34讲的测试程序，在代码中做下面的修改，再仔细的测试一下：
在类代码性别枚举中，我们的代码如下：
这里我们把性别默认了两种值，这也是一般的常理，那么在标准模块中，我们把性别的属性赋值为3，是否可以通过呢？通过测试我们得到的答案和我们的初衷是不一致的，居然得到了通过！
为什么能编译通过？其实，枚举常量用起来是非常简单的，简单到什么程度？不负责任的程度。枚举类型，从本质上讲，是长整形（Long），你拿任何一个长整形的值赋给它，它都无条件接受。至于你在这个枚举类型下面，定义了多少个常量，它一概不管。
从上述的讲解及一系列的分析中，我们知道了类中枚举常量的底线轻易地就可以被人突破，导致类的属性被设置了不是我们期望的值，你说怎么办？既然是我们期望，那么我们就着手进行解决。
我们将原来性别赋值属性子程序（Public Property Let Gender）中的代码全部删掉，在其中按照上一篇的样式设置错误处理语句，如下面代码所示：
Public Property Let Gender(lenumGender As pGender)
On Error GoTo ErrHandler
If inGender <> Female And inGender <> Male Then
Err.Raise Number:=vbObjectError + 513, Source:="Person:Gender", Description:="性别必须为男或女"
Else
myGender = inGender
End If
ExitProcedure:
On Error Resume Next
'退出前的必要工作（略）
Exit Property
ErrHandler:
Err.Raise Err.Number, Err.Source, Err.Description
Resume ExitProcedure
End Property
代码截图：
代码解析：
性别属性被赋的值，是男或者女将作为一个合法的值来处理，如果既不是男，又不是女，那将是一个非法的值。
属性被赋了非法的值以后，怎么处理呢？这里我们用Err对象的Raise方法。
Err.Raise的第一个参数是错误代码（Number），可以理解为错误的类型。性别必须是男或者女，在VBA中没有这样的规定，所以这个错误的编号我们可以自己设定；这里我们把错误编号设置为vbObjectError+513，为什么弄这么一个奇怪的编号？因为vbObjectError+512之前的号码都被占用了。vbObjectError是一个系统常量。
另外，我们还在代码中设置了错误的来源（Source）和错误的描述（Description）。Source:="Pigsy:Gender", Description:="性别必须为男或女"。
在上述代码中对于错误的处理，语句是：
ErrHandler:
Err.Raise Err.Number, Err.Source, Err.Description
Resume ExitProcedure
大家注意，这里错误的执行语句没有做任何的处理，所以，上述代码我们可以简单些，也是一样的，代码如下：
Public Property Let Gender(inGender As pGender)
If inGender <> Female And inGender <> Male Then
Err.Raise Number:=vbObjectError + 513, Source:="Pigsy:Gender", Description:="性别必须为男或女"
Else
myGender = inGender
End If
End Property
标准模块代码，如下：
Sub mynz_38()
On Error GoTo ErrHandler
Dim objpigsy As pigsy
Set objpigsy = New pigsy
objpigsy.Name = "猪悟能"
objpigsy.Gender = 3
objpigsy.Speak
MsgBox "修改前性别:" & objpigsy.Gender
objperson.Gender = Male
MsgBox "修改后性别:" & objpigsy.Gender
ExitProcedure:
On Error Resume Next
Set objpigsy = Nothing
Exit Sub
ErrHandler:
MsgBox "错误代码：" & Err.Number & VBA.vbCrLf & _
"错误描述：" & Err.Description & VBA.vbCrLf & _
"错误来源: " & Err.Source, _
vbCritical, _
"MyNZ 报错"
Resume ExitProcedure
End Sub
代码截图：
代码解析：上述MYNZ过程，给二师兄性别属性赋给一个第三类属性，谁让他是神仙呢？但是二师兄在骨子里还是希望自己是男子汉的，以便将来可以再去高老庄，所以类模块魂的设置中会把这类不合常理的属性做错误处理。
F8逐步执行一下就会知道，虽然你将性别赋值为3，编译器没有检测出非法代码，运行的时候还是提示错误。
今日内容回向：
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人，暗夜中，悄声寻梦，盼却天明。
怎无凭！
分享成果，随喜正能量