target(excel vba 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列位置赋值。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 86345@qq.com 举报,一经查实,本站将立刻删除。
(2)
上一篇 2022-04-16 04:10:01
下一篇 2022-04-16 04:20:01

猜你喜欢

  • 铁面歌女电视剧人物介绍_铁面歌女电视剧剧情简介

    铁面歌女》是海飞编剧,苏舟执导,陆毅、张娜拉等主演的电视剧。 海报 胡音音 (张娜拉饰)是山村采茶女工(父母去世),富 家子弟白一鸣 (陆毅饰)驾着私人飞机在未开发的风景区探险时迫…

    2022-11-10
  • 温柔短句怎么发_温柔短句合集

    1、世界不再贩卖焦虑,开始流行快乐。 2、最好的状态是一点点向喜欢的东西靠近。 3、你应该试着尝试各种风格而不是成为一个整天郁郁寡欢的小笨蛋。 4、抱怨身处黑暗,不如提灯前行。 5…

    2023-03-30
  • 冬至就要来啦,快收好这份冬季小常识吧!

    冬至来啦 又到了灵魂一问的时候 是吃汤圆还是饺子? 汤圆 饺子 不管是吃什么 都不能忘了注意防火 希望大家提高消防意识 冬至 注意防火 不要“引火上身” 临近冬至,很多人会选择上坟…

    2024-08-19
  • 幼儿园请假退费标准_幼儿园幼儿请假退费制度

    孩子一个月只上了5天课,幼儿园应如何退费? 市教育局回复如下 您好!全市幼儿园的出勤收费依据是按照黑龙江省物价监督管理局 黑龙江省教育厅 黑龙江省财政厅关于印发黑龙江省实施《幼儿园…

    2022-04-15
  • 为什么贪官大都还很贪色_你怎么看

    不知你发现没有,现在的贪官不但贪污数目越来越大,动不动都是以亿起步,而且贪色的程度也令你匪夷所思,比皇帝的三宫六院七十二嫔妃还更胜一筹。 皇帝才七十二嫔妃,贪官们的姘头都以百计,如…

    2023-04-04
  • 电视剧司滕结局是什么?司藤剧情介绍

    景甜和张彬彬主演的《司藤》终于大结局啦,追了快1个月,刚开始看司藤的时候是被剧中绝美的风景给吸引的,对剧情并没有抱太大的期待,但是追起来了,才发现欲罢不能,大甜甜实在是太适合这种大…

    2024-02-18
  • 苹果m1处理器跑分(苹果m1芯片性能对比)

    苹果m1芯片的分数是多少?很多小伙伴都很重视电子产品的跑分。很多小伙伴最直观的看到产品是如何通过跑分的。所以很多小伙伴都很好奇苹果最新的m1芯片。苹果m1芯片运行多少钱?让边肖给你…

    2022-03-15
  • 惠普m226dw打印机加碳粉教程(惠普激光打印机加碳粉)

    惠普LaserJet 5L激光打印机由于体积小,分辨率高,价格合理,深受用户欢迎。打印机使用一段时间(2000张左右)后,打印出来的字会模糊或不完整,需要更换硒鼓。因为这台打印机的…

    投稿 2022-05-11
  • 满清有多少个常设驻防将军_满清一代的十四个驻防将军

    满清王朝入主中原后,将八旗健勇分住各省要冲,统管该地的军事首领即为驻防将军。满清定鼎之初,驻防将军共有八个,官阶为正一品。之后随着疆域版图的不断扩大,驻防将军增加至十四人,除个别兼…

    2023-04-28
  • 韩国保湿面膜哪个好用_韩国补水美白面膜排行榜

    在日常生活中,韩国的护肤品很常见,之所以那么受欢迎,是因为效果是真的好。韩国妹子的皮肤那么好,相信平时也没少敷面膜了。下面我们一起来看看韩国保湿面膜哪个好用吧!想知道的朋友不要错过…

    2022-05-29

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注