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

首頁 > 辦公 > Excel > 正文

excel target對象

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 茶陵县| 北海市| 江口县| 大渡口区| 平顺县| 凌源市| 鄂伦春自治旗| 奉新县| 常熟市| 同仁县| 清苑县| 宣武区| 夏邑县| 图木舒克市| 集贤县| 洛隆县| 班戈县| 洮南市| 南部县| 鸡西市| 商都县| 辽宁省| 祁门县| 松滋市| 汝南县| 巍山| 巴塘县| 仙桃市| 兰西县| 准格尔旗| 那坡县| 金坛市| 会东县| 横山县| 夹江县| 西丰县| 保亭| 江华| 龙南县| 宜兰县| 西充县|