国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

excel target對象

2024-08-23 19:53:37
字體:
來源:轉載
供稿:網友

  首先說明,單從字面上來理解,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列位置賦值。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 大洼县| 方城县| 怀远县| 灵武市| 庆城县| 牙克石市| 达孜县| 黄浦区| 桂平市| 鹤山市| 神农架林区| 宣威市| 贵德县| 奎屯市| 苗栗市| 北海市| 潜山县| 达尔| 冕宁县| 灌阳县| 太白县| 秦皇岛市| 大安市| 大关县| 灵寿县| 临城县| 安徽省| 绍兴县| 阳谷县| 高淳县| 新宾| 奉新县| 太谷县| 班戈县| 公主岭市| 贵州省| 衡南县| 安陆市| 哈巴河县| 合川市| 丹棱县|