Worksheet_Change(ByVal Target As Range) 問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Worksheet_Change(ByVal Target As Range) 問題

返回列表下一主題上一主題發帖

Worksheet_Change(ByVal Target As Range) 問題

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-6-11 16:12 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-6-11 16:14 編輯

回復 1# enoch

[code]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
MsgBox Target.Address
End If
End Sub

複製代碼

Intersect 方法
請參閱套用至範例特定傳回 Range 物件，此物件代表兩個或多個範圍重疊的矩形範圍。
expression.Intersect(Arg1, Arg2, ...)
expression 選擇性的運算式。該運算式傳回 Application 物件。
Arg1, Arg2, ... 必選的Range 物件類型。重疊的範圍。必須至少指定兩個 Range物件

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題