jqgrid 单元格绑定点击事件_对EXCEL工作表监听后的事件响应

（接上讲）

大家好。我们继续在工作表中响应自定义事件的方法，这一讲我们仍是利用上一讲中提到的mysheet类来处理我们新的问题。新的问题是：当我们在A列单击时B列相应的单元格能自动根据A列的值加1。如下面的截图所示。

我们首先分析一下上述目的的实现思路：

首先我们要监听这个工作表，当单击时判断一下是否是A列的单元格，如果是，那么将触发一个自定义事件，这个自定义事件的过程就是让A列的值加上1。

思路有了，如何来完成这个思路呢？我这里直接给出我的代码，这里的代码仍是写在了工作表的代码窗口，说明代码是这个工作表的私有代码：

Private WithEvents MyS As mysheet

Private Sub MyS_mySelectRan()

Cells(MyS.HS, MyS.LS + 1) = Cells(MyS.HS, MyS.LS) + 1

End Sub

Private Sub Worksheet_Activate()

Set MyS = New mysheet

Set MyS.mySht = Sheets("52")

End Sub

Private Sub Worksheet_Deactivate()

Set MyS = Nothing

End Sub

代码截图：

代码讲解：

1 Private WithEvents MyS As mysheet在代码的头部仍是有这样的声明语句，这个语句的作用在前讲已经详细地讲解过，有两个作用，一是类对象的声明，一是让对象可以关联到对象的事件。

2 Private Sub Worksheet_Activate()

Set MyS = New mysheet

Set MyS.mySht = Sheets("52")

End Sub

在这几句代码中我们把类赋给了肉身MyS，同时让这个对象关联到工作表，以便这个对象可以很好地执行监听。

3 Private Sub Worksheet_Deactivate()

Set MyS = Nothing

End Sub

类的肉身在工作表Deactivate时候就失去了生命。

4 Private Sub MyS_mySelectRan()

Cells(MyS.HS, MyS.LS + 1) = Cells(MyS.HS, MyS.LS) + 1

End Sub

这里是被触发的mySelectRan过程，这个过程中让B列单元格的值等于A列单元格的值加上1。这里我们再看看这里利用的方法，MyS.HS是类对象MyS的HS属性，这个时候的HS属性是读取，将执行类代码中的：
Public Property Get HS() As Integer '属性: 读

HS = myHS

End Property

也就说将宿主myHS的值传递给HS，那么宿主的值myHS是在什么时候取得的呢？对的，是在mySht_SelectionChange 事件中取得的。没有弄明白的朋友可以再回头看看类模块的代码。

由于mySelectRan事件的触发条件是：

If Mid(Target.Address, 2, 1) = "A" Then

RaiseEvent mySelectRan

End If

所以这个时候myLS=1，这样就实现了B列单元格的值等于A列单元格的值加1。

最后我们看看代码的执行过程：

当点击A列单元格时，B列自动地实现了相应A列的值加1.

今日内容回向：

1 如何理解类对象失去生命？

2 整个过程是如何实现监听的？

3 监听的过程如何实现事件的触发？

备注：本讲代码参考程序文件：VBA-CLASS（下51-56）.xlsm

在取代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人，

暗夜中，悄声寻梦，盼却天明。

怎无凭！

分享成果，随喜正能量