'BeforDoubleClick()事件

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

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

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

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

'例: 雙擊單元格自動(dòng)添加背景色

'用戶雙擊A1:F10中的任意單元格時(shí)，會(huì)自動(dòng)為該單元格添加紅色背景色。

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)中的一個(gè)方法,它用于確定兩個(gè)或多個(gè)范圍（Range）對(duì)象之間的交集，這個(gè)方法返回一個(gè)Range對(duì)象,該對(duì)象代表兩個(gè)或多個(gè)給定范圍的共享部分.
'Intersect()方法語(yǔ)法
'Intersect(range1,range2...)  取range1~rangeN 之間的交集，返回一個(gè)range對(duì)象，如果沒有交集，則返回Nothing對(duì)象
'Target.Interior屬性.Color屬性

'BeforRightClick()事件

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

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

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

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

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

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

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

   If Target.Value = "" Then

        Cancel = True

   End If

End Sub