点击鼠标，利用VBA代码实现精准控制触发事件的第二方案

大家好，我们今日继续讲解VBA代码解决方案的第115讲内容：工作表事件中，根据Target参数不同，实现精准控制触发事件的VBA代码第二方案。在上一讲中我们讲了利用Address的属性实现控制触发事件的方案，今日讲解第二方案，就是利用Column属性和Row属性的方法，哪种方法好呢？这就要靠写代码人员的偏好了，有的人喜欢第一种，有的人喜欢第二种，我自己偏好第二种，就是今天讲的这种了。

使用单元格的Column属性和Row属性可以将触发条件限制在某一区域内，下面有一个程序供大家参考。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Columns('B:B').ClearContents

If Target.Column = 1 And Target.Row < 80 Then

Target.Offset(0, 1) = Val(Target)

End If

End Sub

代码窗口：

代码解析：当点击工作表的A1到A80单元格时，将在对应的B列显示A列的数值。

第3行代码使用Column属性将触发条件限制在第1列，使用Row属性将触发条件限制在第80行以内，也就是A1到A80的区域范围内。

运行，我们在工作表中A列和C列事先录入同样的数字，并把列的字体设置为白色隐藏，点击A列就会在B列出现A列的数字，类似于游戏效果。

二 为了实现根据单元格选中范围精准的控制选择触发事件，我们需要对代码进一步优化。例如：当我们选中的是两个或两个以上连续单元格，而且是在一列时才能执行后续的代码（可以为两个连续个单格，也可以是多个连续单元格，但必须是为同一列），其它情况时则 Exit Sub 跳出过程，该如何写代码呢？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then

If Target(1).Resize(Target.Count).Address = Target.Address Then

MsgBox '可以执行你的以下代码'

Else

Exit Sub

End If

End If

End Sub

代码窗口：

代码解析： Target(1).Resize(Target.Count).Address 为以Target(1)扩展后的区域；如果和 Target.Address 一样就可以说明是一列的连续区域了。

备考：利用Resize属性对单元格进行扩张时，是以原单元格为起始点但包括原单元格本身的扩张。Resize属性的语法为：

Range对象.Resize(RowSize,ColumnSize)扩展特定的单元格，返回一个由参数RowSize和ColumnSize指定行列数的单元格区域。

其中：参数RowSize指定新单元格区域的行数。若省略该参数，则新单元格区域的行数与原来相同。Range('A1').Resize(1, 3).Select等价于代码（省略了第一个参数）：Range('A1').Resize(, 3).Select都将选择单元格区域A1:C1。

参数ColumnSize指定新单元格区域的列数。若省略该参数，则新单元格区域的列数与原来相同。

运行：

今日内容回向：

1 如何利用Column属性和Row属性实现精准的触发事件？

2 如何判断连续的单元格在整行或整列呢？