excel target对象
发布时间：2022-02-12 21:55:17
首先说明，单从字面上来理解，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列位置赋值。
0
投稿猜你喜欢
在文档中添加艺术字，不仅可以起到美化的效果，还可以使得整篇文档更好的突出主题，那么如何能够做出艺术字的三维效果，使其在美化的基础上看起来更加- 使用win7系统的用户都清楚，explorer.exe是win7系统中的资源管理器进程，在电脑运行过程中，一些病毒会化身为EXPLORER.
- 如何做电脑系统u盘启动盘？u盘启动盘，是一个写入U盘中的独立的操作系统，也可以称作PE系统，通过U盘启动盘，用户可以装入系统镜像，通过pe里
- 当一些朋友使用win10系统时，如果他们发现sgtool.exe文件的映像已损坏，该怎么办？通常，在应用程序计算机的整个运行过程中，都会遇到
- 电脑有故障怎么判断是不是内存条引起的呢？在windows系统中，有个内存自检程序可以判断电脑故障是否由内存条引起，下面就给大家分享具体使用方
- Wi-Fi 6 第六代无线网络技术，学名 802.11ax Wi-Fi 无线通信技术，Wi-Fi 6 最大传输速率由前代的3.5Gbps，提
- Outlook邮箱是很多小伙伴都在使用的一款邮箱软件，其中的功能非常地丰富且强大，因此该软件广受欢迎。在Outlook邮箱中有一个“阅读窗格
- Win10专业版文件类型怎么修改？最近有用户询问这个问题，不知道怎么解决，那么有没有方法可以修改Win10专业版文件类型呢？针对这一问题，本
- Microsoft Office程序都会显示最近在该程序中打开的几个文件。您可以使用此列表上的链接快速访问这些文件。此功能默认情况下处于打开
- 大家在使用电脑的时候一般都会将电脑背景更换成自己喜欢的壁纸，使用感也比较好。但是最近有不少小伙伴反映说自己将电脑背景设置新的桌面壁纸之后，重
- 众所周知，应用商店是从win8开始就自带的一个工具，最新发布的windows10系统中也不例外，都有自带应用商店功能，方便用户直接在应用商店
- 很多人经常会遇见电脑出现默认网关错误的情况，这个时候想查看默认网关是多少，却不知道怎么查。其实主要是在网络设置和系统运行里查看，接下来小编教
- 我们都知道连续按 Shift 五次可以启用或关闭粘滞键，但是如果我们不需要粘滞键，想要将它禁用该怎么设置呢？现在小编就教你解决这个问题的方法
- Word2007怎么改正所有错别字?Word中查找替换功能非常强大，我们往往利用“查找替换”功能来替换图片、文字、标点符号等。不仅如此，我们
- Win11正式版现已推出，但是有些用户，还不知道怎么安装Win11正式版，这篇文章是本站给大家带来的，可以安装Win11正式版的方法教程。有
- BT种子相信大家都接触过，BT种子最大的作用就是能够快速下载网络上的大文件，相比传统的下载方式，BT下载具有更高的下载速度和更广泛的使用范围
- 最近有用户反映自己的Win7电脑开机之后键盘不能用，无论怎么操作都没有反映，这个问题该如何解决呢？是哪里出现了问题？下面就跟小编一起来看看解
- 最近有windows8系统用户反映，手机插上电脑后，在电脑桌面右下角却出现了“无法识别的USB设备，跟这台计算机连接的前一个USB设备工作不
- 手机版WPS在编辑文档时，我们如果需要对文档进行截图，通过手机自带截图功能一屏一屏截会比较浪费时间，今天我们来学习手机版 WPS如何快速截图
- rstudio怎么调整背景颜色字体大小？rstudio可以在各种UNIX平台，Windows和MacOS上进行编译和运行，是一款功能强大的自
