(接上讲)
这一讲我们先继续上一讲类模块代码的讲解:
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
这个过程和上一个过程相类似,是一个工作表发生改变时候将要执行的过程,这个过程中会有两个动作: