WorkSheet SelectionChange事件是指当工作表上的选定区域发生改变时将触发的事件。这样我可以在该事件中利用Count属性，快速统计出所选区域单元格的数目等。Count属性可返回指定集合中对象的数目。如果工作表中包含一个已定义名称的单元格区域“学籍号”，那么使用下面的VBA语句就可以得到该单元格区域中的单元格数目：X=Range(“学籍号”).Count。
我也可以利用MsgBox函数在消息框中输出当前所选区域中的单元格数目，我在VBA代码编辑窗口中输入如下代码即可实现：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox"您好，您当前选中区域的单元格个数为："& Selection.Count
End Sub
当我在代码输入完毕后，返回工作表中选中任意单元格区域，例如我再这里选择“B5：E14”单元格区域，便会弹出显示所选区域单元格数目的提示框。
如果我需要统计所选区域的行数，则可将代码框架中的语句更改为如下形式：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox"您好，您当前选中区域的行数为："& Selection.Rows.Count
End Sub
再例如，当选择某行时，即可弹出选择区域的行数信息。如果需要统计所选区域的列数，则可将代码框架中的VBA语句更改为如下形式：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "您好，您当前选中区域的列数为：" & Selection.Columns.Count
End Sub
当我选择某列时，系统即可弹出选择区域的列数信息。