admin管理员组文章数量:1531447
2023年12月25日发(作者:)
exceltarget对象
首先说明,单从字面上来理解,target就是目标的意思,我们也可以这样来理解,被选择的对象,其实就是要操作的目标target。
一、target的应用范围
target能在两个地方出现,一是事件,二是VBA代码中。
比如,Worksheet_SelectionChange(ByVal Target As Range)
这个事件中,就存在target对象,此用法为将单元格的范围当作目标来处理。
在VBA中的target代码,诸如:s(0, 0),就是这样来使用。
二、target应用代码范例
范例代码一
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Not ect(Target, Union(Range("A1:A10"),
Range("C1:C10"))) Is Nothing Then
MsgBox "你选择了" & s(0, 0) & "单元格"
End If
End Sub
代码解释:
当选择工作表A1到A10,C1到C10单元格时将所选的单元格地址显示在消息框中。
第2行代码使用Intersect方法判断所选单元格是否与A1到A10,C1到C10单元格重叠,如果重叠说明所选单元格在A1到A10,C1到C10单元格区域内。Intersect方法返回一个Range对象,此对象代表两个或多个范围重叠的矩形区域,语法如下:
范例代码二
使用单元格的Column属性和Row属性可以将触发条件限制在某一区域内,如下面的代码所示。
Private Sub Worksheet_Change(ByVal Target As Range)
If = 1 And < 11 Then
(, 1) = Val(Target) * 3
End If
End Sub
复制代码代码解析:
当改变工作表的A1到A10单元格时,如果输入的是数值则将在对应的B列单元格写入乘以3的数值。
第2行代码使用Column属性将触发条件限制在第1列,使用Row属性将触发条件限制在第10行以内,也就是A1到A10的区域范围内。
范例代码三
Private Sub Worksheet_FollowHyperlink(ByVal Target As
Hyperlink)
'这里的Target就不是区域了,是超链接
End Sub
范例代码四
if ((=4)and (=3)) then
e = True
=3'表示选中单元格在第3列
=4'表示选中单元格在第4行
再有,(0, 1)=4表示在选中单元格向右偏移1列位置赋值。
版权声明:本文标题:exceltarget对象 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/xitong/1703518593a58812.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论