(接上讲)
这一讲我们先继续上一讲类模块代码的讲解:
6 Private Sub mySht_Change(ByVal Target As Range)
RaiseEvent mySelectRanA(myHS, myLS)
End Sub
这段代码是一个Change过程,这个也就是说当响应类对象的mySht发生改变时将要执行这个过程,这个过程的执行中会有一个参数传递进来,这个参数就是Target ,是一个按照值来传递的单元格。
在执行这个过程中会触发mySelectRanA事件。关键字是RaiseEvent,就是触发事件。触发这个事件的时候,同时会传递两个参数myHS, myLS。关于这个事件的详细讲解会在之后进行,我现在先把每个过程给大家讲一下。
7 Private Sub mySht_SelectionChange(ByVal Target As Range)
myHS = Target.Row
myLS = Target.Column
If Mid(Target.Address, 2, 1) = "A" Then
RaiseEvent mySelectRan
End If
End Sub
这个过程和上一个过程相类似,是一个工作表发生改变时候将要执行的过程,这个过程中会有两个动作:
第一 给宿主参数赋值myHS = Target.Row myLS = Target.Column。myHS和myLS是类属性的两个宿主,在这里当工作表发生改变时,给这两个宿主赋值,赋值的意义就是取得当前点击单元格的行数和列数。
第二 触发mySelectRan事件。触发这个mySelectRan事件是有条件的,就是Mid(Target.Address, 2, 1) = "A",这个条件如何理解呢?就是点击的是A列的单元格,由于Target.Address返回的单元格地址是一个绝对的引用,所以我们用的是Mid(Target.Address, 2, 1),当然,这里的逻辑不是十分的严谨,当单击“AB”单元格时也会同样认为是A列的单元格,大家可以想一想有没有更好的方法,精确地返回A列,对的,只要再加上一个判断条件,判断一下第三个字符应该是“$”即可。触发这个事件是没有参数传递的。
8 Public Property Get HS() As Integer '属性: 读
HS = myHS
End Property
Public Property Get LS() As Integer '属性: 读
LS = myLS
End Property
上面的过程是一个属性值的读取过程,也就是将宿主的值传递给属性值。这个过程是比较容易理解的,不再多说了。
到这里,整个类模块的内容就讲解完成了,下面我们要让类模块发挥作用了。类的作用是什么呢?我们在之前的讲解中讲过,类是一个魂,是没有肉身的,只有具有了肉身即实例化之后,才能占用内存。那么类的魂是如何赋给肉身呢?
看我们的工作表代码,首先看工作表“51”的代码:
Private WithEvents MyS As mysheet
Private Sub MyS_mySelectRan()
MsgBox "你单击了A列单元格"
End Sub
Private Sub Worksheet_Activate()
Set MyS = New mysheet
Set MyS.mySht = Sheets("51")
End Sub
Private Sub Worksheet_Deactivate()
Set MyS = Nothing
End Sub
代码的截图:
代码讲解,大家要留意我上面代码过程中圈的重点:
1 代码是写在了工作表的代码中,是这个工作表的私有代码,所以每个过程都有标识Private Sub。
2 代码的头部即声明部分我给出了一个非常重要的声明:
Private WithEvents MyS As mysheet
这个声明是什么意义呢?我来给大家详细地分析。这里的关键字是WithEvents,这个关键字是说将要声明一个对象用来响应我们的mysheet类的事件,什么对象呢?就是MyS ,将这个对象声明为什么呢?要声明为mysheet类。大家要留意这种写法。
(待续,下一讲我们继续讲解)
今日内容回向:
1 触发事件的关键字是什么?
2 声明对象相应类事件的关键字是什么?
备注:本讲代码参考程序文件:VBA-CLASS(下51-56).xlsm
在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。
学习VBA是个过程,这个过程是自己忍受孤独的过程。
“水善利万物而不争”,你看她绵绵密密,微处则无声,巨则汹涌。学习亦如此,把握现在,为达千里,需要默默耕耘,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时去自欺欺人。要在当下,用一颗充满生机的心灵,努力提高自己,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。一杯茶,满也好,少也好,不要去计较;浓也好,淡也好,其中都有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。一切众生的心都在变化,像时间一样,永远不会停留,把握现在就是福报。
VBA是利用Office实现自己小型办公自动化的有效手段,我记得前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。过去了,为了不让学习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人,
暗夜中,悄声寻梦,盼却天明。
怎无凭!
分享成果,随喜正能量