北京大兴网站建设公司宜丰做网站的

《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。

类，是非常抽象的，更具研究的价值。随着我们学习、应用VBA的深入，有必要理解这些抽象的理论知识。对象，类，过程，方法，属性，事件，接口，接口如何实现等等。掌握了这些理论，不仅对于VBA这种寄生语言的实质有所深入的理解，也对自然界的很多事物将同样有所感悟。目前，这套教程程序文件已经通过32位，64位两种office系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA中类的解读及应用第二十一讲:利用类方法，判断任意单元格的类型-4

【分享成果，随喜正能量】这个世界,总有你不喜欢的人,也总有人不喜欢你。不管别人怎么对待你，都要珍视自己。刻意去讨人喜欢,折损的,只能是自我的尊严。不要用无数次的折腰,去换得一个漠然的低眉。我们终其一生，不是为了满足所有人，而是只需要找到和自己同频共振的那一部分人。。

第二十一讲 利用类方法，判断任意单元格的类型-4

在虚无缥缈的类世界中,我们看到了事物的本质，体会到了从简单到复杂，以及实现目的的过程。任何事物都是一样的，当我们把握了具体事物的灵魂,就不难理解事物的行动了，在VBA中这种行动就是方法。

在之前的几讲中,我们讲了类MYCTPE的构建,这个类中有属性,有方法。当对象和这个类进行关联后，对象将成为类的对象，为了类的目标而行动。当类筹建工作完成，就是佛主的取经命令下达完成，一些要求体现在类的筹建中。

7 将对象与类进行的关联

如何理解对象与类进行的关联呢?这个过程就相当于观音菩萨奉命去寻找取经人了，是一个把佛主的命令落实到具体人选的过程，这个时候要确定具体的对象了，我们看下面的代码,这个代码是在工作表事件中:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim MyCell As MyCTYPE

If Range("A1") = "QQ" Then

Set MyCell = New MyCTYPE

Set MyCell.Cell = ActiveCell

MyCell.PD

MsgBox MyCell.CType

'MsgBox MyCell.Cell

'MsgBox MyCell.CellType

End If

End Sub

代码的截图:

8 对象与类进行关联代码的解读

相对来说,代码比较简单,我们首先要声明一个类的变量MyCell，然后要用set 语句来实例化变量：

Dim MyCell As MyCTYPE

Set MyCell = New MyCTYPE

上述语句达到了实例化MYCTPE的目的。然后用 Set MyCell.Cell = ActiveCell语句来关联到实际的ActiveCell对象。这样一系列的操作就将ActiveCell这个对象和类MyCTYPE关联在一起了，这时的ActiveCell就是有组织的对象了，可以为了组织的任务而奋斗了。这时的MyCell拥有类的三个属性，一个方法。

基本的组织框架到这里就搭建完成，也就是说整个取经的团队筹建完成了，当取经的团队筹建完成，这时的团队是有生命力的，有着自己的行动方针，行动的目标。目标是：到达西天，求取真经；方针是：不畏艰难，不言放弃。

在我们的VBA代码中，搭建到这里的目标：当点击一个单元格时，判断出类型。方针：利用可利用的方法达到目的。

我们将在下一讲讲解团队的运行过程。看看团队是如何贯彻目标和方针的。

本讲内容参考程序文件：VBA-CLASS（1-28）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：