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

Scott090

請問\
這個事件函數 Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel 是對甚麼來定義布林值，它的意義是什麼
可否舉例說明要怎麼用?

謝謝

jackyq

常態下當某 cell 被雙極時, 會出現可以文字編輯的閃爍游標

Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

加入 Cancel = True 後
不會出現可文字編輯的閃爍游標

yen956

回復 2# jackyq
大大你好, 它的作用是什麼?
有什麼用途?

c_c_lai

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

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Not (Target.Column = 1 Or Target.Column = 2) Then Exit Sub
   
3.     Cancel = True
   
4. 
   
5.     If Target.Column = 1 Then
   
6.         工作表1.Ex
   
7.     Else
   
8.         工作表2.Ex
   
9.     End If
   
10. End Sub
    
11. 
    
12. Sub Ex()
    
13.     MsgBox "工作表1"
    
14. End Sub

複製代碼

工作表2 (工作表2)：

1. Sub Ex()
   
2.     MsgBox "工作表2"
   
3. End Sub

複製代碼

說明一：

1. Cancel As Boolean (原文)
   
2. False when the event occurs. If the event procedure sets this argument to True,
   
3. the default double-click action isn't performed when the procedure is finished.

複製代碼

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

1. Need help with code to do the folowing when clicking on diffrent cells
   
2. in a worksheet  (需要在該工作表中加入以下之程式碼)
   
3. 
   
4. Column A when clicket in any row show form1.Ex  (需在"工作表1"加入一 Sub Ex() 程式碼)
   
5. Column B when clicket in any row show form2.Ex  (需在"工作表2"加入一 Sub Ex() 程式碼)

複製代碼

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

c_c_lai

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

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

複製代碼

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

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

複製代碼

Scott090

回復 2# jackyq

謝謝你的提示

Scott090

回復 5# c_c_lai

非常感恩  詳盡的解說
自從Win soft 更新把 ActiveX控制項搞壞以後，就盡可能不用 CommandButtom
而改由 Worksheet 事件取代

jackyq

回復 3# yen956


    實現指定的 cell , 使其禁止被手動修改期值
    不會出現可文字編輯的閃爍游標
    自然就無法手動修改 Range

yen956

回復 8# jackyq
果然可以禁止用 "DoubleClick" 的方法修改Cell的值(雖然可用其方法),
謝謝大大的說明與指導!!

yen956

回復 5# c_c_lai
謝謝c大詳盡的說明, 沒想到禁止 "DoubleClick" 還是有它的特定用途.
p.s. 關於 監看視窗已知道怎樣用了(包括用右鍵), 真好用,
不管用來追綜自已的VBA, 還是大大們神奇的VBA均很不錯, 謝謝!!