国产探花免费观看_亚洲丰满少妇自慰呻吟_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列位置賦值。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 凯里市| 永州市| 郯城县| 邢台市| 新丰县| 安化县| 新乐市| 旬邑县| 南投市| 阜新市| 曲麻莱县| 甘谷县| 陇南市| 汾阳市| 会昌县| 洮南市| 宜昌市| 墨脱县| 广宁县| 郎溪县| 祁门县| 襄汾县| 邵武市| 重庆市| 龙州县| 仙游县| 珠海市| 禄劝| 兴安县| 万荣县| 石台县| 万安县| 灵川县| 三原县| 遵义市| 东莞市| 邢台市| 易门县| 鹤壁市| 江阴市| 敦煌市|