工作表 worksheet 物件事件函數內參數 Cancel 用法

1^# 跳轉到 »

發表於 2015-12-7 06:58 | 顯示全部帖子

本帖最後由 c_c_lai 於 2015-12-7 07:06 編輯

回復 1# Scott090
舉個例子來說明：
工作表1 (工作表1)：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Target.Column = 1 Or Target.Column = 2) Then Exit Sub
Cancel = True
If Target.Column = 1 Then
工作表1.Ex
Else
工作表2.Ex
End If
End Sub
Sub Ex()
MsgBox "工作表1"
End Sub

複製代碼

工作表2 (工作表2)：

複製代碼

說明一：

複製代碼

參數 Cancel 預設值為 False，亦即當為 False 值則啟動該事件；你可試著在有欄位值的
欄位內，滑鼠連按兩下你會發現該欄值會反白或閃爍。
如該引數宣告為 True 時，該雙擊的動作完成時，反白或閃爍都是毫無作用的，
意即不會啟動該事件的反白或閃爍之提示作用。
說明二：

複製代碼

當被點選的欄位為 A 欄時，則執行工作表1.Ex；
當被點選的欄位為 B 欄時，則執行工作表2.Ex。

2^#

發表於 2015-12-7 07:14 | 顯示全部帖子

本帖最後由 c_c_lai 於 2015-12-7 07:15 編輯

回復 3# yen956
你可以試著觀察：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not (Target.Column = 1 Or Target.Column = 2) Then Exit Sub
' Cancel = True
.
.
.
End Sub

複製代碼

與下列不同的處裡之間的不同變化：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Cancel = True
If Not (Target.Column = 1 Or Target.Column = 2) Then Exit Sub
Cancel = True
.
.
.
End Sub

複製代碼

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。