《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程，现在依然是初版改良了。这套教程定位于最高档，是学完低级，中级后的教程。

类，曲直常概述的，更具磋议的价值。跟着咱们学习、应用VBA的深远，有必设施略这些概述的表面常识。对象，类，经过，门径，属性，事件，接口，接口奈何杀青等等。掌抓了这些表面，不仅关于VBA这种寄生说话的本色有所深远的贯通，也对当然界的好多事物将相同有所感悟。现在，这套教程程小引件依然通过32位，64位两种office系统测试。

这套教程共两册，八十四讲，今后一段时间会给全球不时推出改良后的教程内容。本日的内容是：VBA中类的解读及应用第二十讲:哄骗类门径，判断任性单位格的类型-3

【共享遵循，随喜正能量】喝茶是一项纵脱娇傲，很简单的事，先把水烧开，再加入茶叶，然后用稳妥的方法来喝，便是这样简单的手脚，一种单纯的糊口方法。。

伸开剩余83%第二十讲 哄骗类门径，判断任性单位格的类型-3

由于内容较多，为了让全球冉冉地消化，讲得较慢。今天这讲赓续。

5 类MYCTPE的构建，迪士尼国际彩乐园美女CellType属性和Ctype属性

1） 底下是类MYCTPE的另一个属性CellType， 这个是什么属性呢？咱们望望代码的内容：

Property Get CellType() As MyCellType

CellType = TT

End Property

代码截图：

代码讲明注解：上头代码界说了CellType，这是一个只读的属性，只读，也便是说莫得SET经过。咱们领先找一找这个用于纪录这个属性的变量，很赫然是TT， 在读属性的时候，将把这个TT值传递给CellType。 那么莫得SET经过，这个TT是从那里来了？别急，咱们看底下MYCTPE类的另一个属性CType。

2）MYCTPE类的另一个属性Ctype

Property Get CType() As String

Select Case TT

Case T1

CType = "空值"

Case T2

CType = "公式"

Case T3

CType = "数值"

Case T4

CType = "其他"

End Select

End Property

代码的截图：

这个属性亦然一个只读的属性,咱们仍是先要找到这个用于存储这个属性值的变量,这个变量是哪个呢? 不是一个,而是一组:T1,T2,T3,T4中的一个,每个值对应了一个不同的属性复返值。

在履行哄骗中属性的值唯有一个,用四个值中的哪一个呢?这里哄骗了一个select, end select 语句，由于T1,T2,T3,T4 是罗列变量TT的一个值，当点击笃定了单位格时，这个惟一的TT将被说明，从而复返一个惟一的属性复返值。那么是奈何笃定TT的值呢？这是哄骗了底下的门径。

6 类MYCTPE门径的构建

1） 对门径的贯通

底下我看PD门径是奈何说明TT值的？咱们先温习一下什么是门径：

门径：对象本身的手脚便是门径。咱们贯通一下：领先条件是对象，八成绑定对象；其次是对象本身的手脚。

2） PD门径的杀青

咱们来望望底下的代码：

Public Sub PD()

If IsEmpty(mrng) Then

TT = T1

ElseIf mrng.HasFormula Then

TT = T2

ElseIf IsNumeric(mrng.Formula) Then

TT = T3

Else

TT = T4

End If

不过，从考研的第一天开始，好彩妹就有陆续接到考研初试后的同学说：今年政治十年最难，英语也是难爆了，上岸的机会怕是不大，但不想gap，耽误年龄，也不想痛苦二战了，想知道现在去申请25fall留学还有没有机会？

End Sub

代码截图：

这是一个PD的门径，对象是什么呢？是绑定了类的单位格对象，什么手脚呢？当是空值的时候复返TT=T1,当是公式的时候复返TT=T2,等等。

通过这个门径就给TT进行了惟一的赋值。

好了，就讲到这里，由于内容比拟无聊，全球要提防跟紧程度。

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

共享遵循，随喜正能量

我20多年的VBA膨胀教悔，一齐浓缩鄙人面的各个教程中：

发布于：河北省

• 迪士尼彩乐园2
• 英勇
• 解读
• 种类
• VBA