《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。
类，是非常抽象的，更具研究的价值。随着我们学习、应用VBA的深入，有必要理解这些抽象的理论知识。对象，类，过程，方法，属性，事件，接口，接口如何实现等等。掌握了这些理论，不仅对于VBA这种寄生语言的实质有所深入的理解，也对自然界的很多事物将同样有所感悟。目前，这套教程程序文件已经通过32位，64位两种office系统测试。
【分享成果，随喜正能量】沉默，可以让混乱的心，变得清澈。沉默，是城府，是睿智，是内涵；沉默，是最后的清高，也是最后的自由。。
第十二讲 限制复选选择（上）类是VBA的魂，如果理解了类，那么很多VBA的理论会很容易理解。所以我们要理解类，在理解的基础上掌握它的应用。
今日课题需求：在做选择题时1） 对于单选这种类型，一共多个答案，如果选择了一个那么其他的将不被选择。
2） 对于多选题，可以选择三个答案，如果选中了三个，那么其他的将不被选择。
需求分析：
这类需求是很普通的，在一个窗体上有若干个答案，我们要通过类来实现我们的需求，这里将涉及到类的命名，类对象的关联，类事件的命名与响应。
下面的几个单元我们讲解这个需求的实现：
1 类模块的搭建我们先建立一个类模块（mydati）【注释：汉语拼音，答题】,并在类模块中实现事件对象的声明，事件的过程。
类模块代码：
Public WithEvents xuanzhe As MSForms.OptionButton
Public WithEvents yemian As MSForms.UserForm
Private Sub xuanzhe_Click() '类的数据改变事件
Dim index As Long
yy = xuanzhe.Name
index = Mid(xuanzhe.Name, 13) '取出OptionButtonN中的数字N
If yemian.Controls("OptionButton" & index).Value = True Then
Sheets("12.13.14").Cells(1, 1) = yemian.Controls("Label" & index + 1).Caption
For i = 1 To 5
If i <> index Then
yemian.Controls("OptionButton" & i).Enabled = False
End If
Next
End If
End Sub
我们看看类模块的代码截图：
【待续】
今日内容回向：
1 类模块中需要建立的内容是什么？
2 WithEvents是声明什么的？
（待续）
今日内容回向：
1 如何理解正则函数？
2 在窗体的构建构成中，执行了哪些动作？
本讲内容参考程序文件：VBA-CLASS（1-28）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
