vba技巧20工作表事件target参数的使用方法

《vba技巧20工作表事件target参数的使用方法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、技巧1工作表事件Target参数的使用方法在工作表的SelectionChange事件中，参数Target代表新选定的区域，在工作表的Change事件中参数Target代表更改的区域。在实际应用中可以使用Target参数将触发工作表事件的区域限制在一定的范围内，有以下几种方法：1-1使用单元格的Address属性使用单元格的Address属性可以将触发条件限制在某一个单元格中，如下面的代码所示。#001PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)#002IfTarget.Address(0,0)="A1"Then#

2、003MsgBox"你选择了A1单元格"#004EndIf#005EndSub代码解析：当选择工作表A1单元格时显示一个消息框。第2行代码使用Address属性返回所选单元格的区域引用，当返回的区域引用是“A1”时触发SelectionChange事件，显示一个消息框。此方法只适用于单个单元格或者加上OR运算符可以适用于几个单元格，多则不方便。1-2使用Column属性和Row属性使用单元格的Column属性和Row属性可以将触发条件限制在某一区域内，如下面的代码所示。#001PrivateSubWorksheet_Change(ByValTargetAsRange)#002If

3、Target.Column=1AndTarget.Row<11Then#003Target.Offset(,1)=Val(Target)*3#004EndIf#005EndSub代码解析：当改变工作表的A1到A10单元格时，如果输入的是数值则将在对应的B列单元格写入乘以3的数值。第2行代码使用Column属性将触发条件限制在第1列，使用Row属性将触发条件限制在第10行以内，也就是A1到A10的区域范围内。1-1使用Intersect方法使用Intersect方法可以很方便的指定一个或多个区域范围，如下面的代码所示。#001PrivateSubWorksheet_Selectio

4、nChange(ByValTargetAsRange)#002IfNotApplication.Intersect(Target,Union(Range("A1:A10"),Range("C1:C10")))IsNothingThen#003MsgBox"你选择了"&Target.Address(0,0)&"单元格"#004EndIf#005EndSub代码解析：当选择工作表A1到A10，C1到C10单元格时将所选的单元格地址显示在消息框中。第2行代码使用Intersect方法判断所选单元格是否与A1到A10，C1到C10单元格重叠，如果重叠说明所选单元格在A1到A10，C1到C

5、10单元格区域内。Intersect方法返回一个Range对象，此对象代表两个或多个范围重叠的矩形区域，语法如下：expression.Intersect(Arg1,Arg2,...)参数expression是可选的，返回一个Application对象。参数Arg1,Arg2,...是必需的，重叠的区域。必须指定至少两个Range对象。第1章Worksheet（工作表）对象