欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


Excel中vba Unload介绍
Excel如何保证小数点计算无误
Excel中IPmt函数用法
Excel中IsEmpty函数用法
Excel中IsDate函数的用法
Excel详细介绍SUMPRODUCT
Excel公式计算不准、函数计算错误
Excel函数嵌套的例子
完整介绍Excel End(xlUp).Row
Excel避免公式错误值的产生
excel target对象
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

  首先说明,单从字面上来理解,target就是目标的意思,我们也可以这样来理解,被选择的对象,其实就是要操作的目标target。

  一、target的应用范围

  target能在两个地方出现,一是事件,二是VBA代码中。

  比如,Worksheet_SelectionChange(ByVal Target As Range) 这个事件中,就存在target对象,此用法为将单元格的范围当作目标来处理。

  在VBA中的target代码,诸如:Target.Address(0, 0),就是这样来使用。

  二、target应用代码范例

  范例代码一

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Not Application.Intersect(Target, Union(Range("A1:A10"), Range("C1:C10"))) Is Nothing Then

  MsgBox "你选择了" & Target.Address(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 Target.Column = 1 And Target.Row < 11 Then

  Target.Offset(, 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 ((Target.Row=4)and (Target.Column=3)) then

  Calendar1.Visible = True

  Target.Column=3'表示选中单元格在第3列

  Target.Row=4'表示选中单元格在第4行

  再有,Target.Offset(0, 1)=4表示在选中单元格向右偏移1列位置赋值。

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站