'BeforDoubleClick()事件

'WorkSheet_BeforDoubleClick(ByVal Target As Range,Cancel As Boolean)

'當雙擊工作表單元格時 觸發(fā)該事件

'參數(shù)Target代表工作表中所選取的單元格或單元格區(qū)域

'參數(shù)Cancel設置是否允許默認的操作，缺省值為False ，若這只為True，則不允許按照雙擊單元格的方式來輸入數(shù)據(jù)。

'例: 雙擊單元格自動添加背景色

'用戶雙擊A1:F10中的任意單元格時，會自動為該單元格添加紅色背景色。

Private Sub Worksheet_BeforeDoubleClick2(ByValTarget As Range, Cancel As Boolean)

   If Not Intersect(Target, Range("A1:F10")) Is Nothing Then

        Cancel = True

        Target.Interior.Color = vbRed

   End If
   

End Sub

''Intersect方法是Visual Basic for Applications(VBA)中的一個方法,它用于確定兩個或多個范圍（Range）對象之間的交集，這個方法返回一個Range對象,該對象代表兩個或多個給定范圍的共享部分.
'Intersect()方法語法
'Intersect(range1,range2...)  取range1~rangeN 之間的交集，返回一個range對象，如果沒有交集，則返回Nothing對象
'Target.Interior屬性.Color屬性

'BeforRightClick()事件

'WorkSheet_BeforRightClick(Byval Target As Range ,Cancel As Boolean )

'在單元格或單元格區(qū)域中 單機右鍵時觸發(fā)該事件

'參數(shù)Target 代表工作表中所選取的單元格或單元格區(qū)域

'參數(shù)Cancel 設置是否允許默認操作，缺省值False，若設置為True，則不顯示默認的快捷菜單

'例 阻止顯示缺省的快捷菜單

'當工作表單元格中的數(shù)據(jù)為""時，選擇該單元格后單擊右鍵，不會出現(xiàn)缺省的快捷菜單,而有數(shù)據(jù)的單元格右擊時會出現(xiàn)這個快捷菜單

Private Sub Worksheet_BeforeRightClick2(ByVal Target As Range, Cancel As Boolean)

   If Target.Value = "" Then

        Cancel = True

   End If

End Sub