中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
VBA中工作表事件 參數(shù)Target
VBA中工作表事件 參數(shù)Target
2010-09-29 10:29
在工作表的SelectionChange事件中,參數(shù)Target代表新選定的區(qū)域,在工作表的Change事件中參數(shù)Target代表更改的區(qū)域。在實(shí)際應(yīng)用中可以使用Target參數(shù)將觸發(fā)工作表事件的區(qū)域限制在一定的范圍內(nèi),有以下幾種方法:

1、使用單元格的Address 屬性

使用單元格的Address屬性可以將觸發(fā)條件限制在某一個(gè)單元格中,如下面的代碼所示。
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Target.Address(0, 0) = "A1" Then
  3.        MsgBox "你選擇了A1單元格"
  4. End If
  5. End Sub
復(fù)制代碼
代碼解析:

當(dāng)選擇工作表A1單元格時(shí)顯示一個(gè)消息框。

第2行代碼使用Address屬性返回所選單元格的區(qū)域引用,當(dāng)返回的區(qū)域引用是“A1”時(shí)觸發(fā)SelectionChange事件,顯示一個(gè)消息框。

此方法只適用于單個(gè)單元格或者加上OR運(yùn)算符可以適用于幾個(gè)單元格,多則不方便。

2、使用Column屬性和Row屬性

使用單元格的Column屬性和Row屬性可以將觸發(fā)條件限制在某一區(qū)域內(nèi),如下面的代碼所示。
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column = 1 And Target.Row < 11 Then
  3.        Target.Offset(, 1) = Val(Target) * 3
  4. End If
  5. End Sub
復(fù)制代碼
代碼解析:

當(dāng)改變工作表的A1到A10單元格時(shí),如果輸入的是數(shù)值則將在對(duì)應(yīng)的B列單元格寫入乘以3的數(shù)值。

第2行代碼使用Column屬性將觸發(fā)條件限制在第1列,使用Row屬性將觸發(fā)條件限制在第10行以內(nèi),也就是A1到A10的區(qū)域范圍內(nèi)。

3、使用Intersect方法

使用Intersect方法可以很方便的指定一個(gè)或多個(gè)區(qū)域范圍,如下面的代碼所示。
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Not Application.Intersect(Target, Union(Range("A1:A10"), Range("C1:C10"))) Is Nothing Then
  3.        MsgBox "你選擇了" & Target.Address(0, 0) & "單元格"
  4. End If
  5. End Sub
復(fù)制代碼
代碼解析:

當(dāng)選擇工作表A1到A10,C1到C10單元格時(shí)將所選的單元格地址顯示在消息框中。

第2行代碼使用Intersect方法判斷所選單元格是否與A1到A10,C1到C10單元格重疊,如果重疊說明所選單元格在A1到A10,C1到C10單元格區(qū)域內(nèi)。Intersect方法返回一個(gè)Range對(duì)象,此對(duì)象代表兩個(gè)或多個(gè)范圍重疊的矩形區(qū)域,語法如下:

expression.Intersect(Arg1, Arg2, ...)

參數(shù)expression是可選的,返回一個(gè)Application對(duì)象。

參數(shù)Arg1, Arg2, ...是必需的,重疊的區(qū)域。必須指定至少兩個(gè) Range對(duì)象。
本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
重磅 | Excel VBA解讀:Range對(duì)象篇
ExcelVBA編程實(shí)例(150例)
Excel VBA解讀(64):初步使用名稱
Excel VBA常用技巧代碼解析
Excel VBA你是如何理解Range對(duì)象,掌握她就在一瞬間
VBA常用代碼解析(第六講)
更多類似文章 >>
生活服務(wù)
熱點(diǎn)新聞
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服