VBA-002.雙擊指定區域單元格，自動產生“√”或“×"

1、需求：

在B2：B10區域中雙擊鼠標左鍵，產生“√”符號，再次雙擊，產生“×”符號，支持連續點擊

2、思路分析：

1）鼠標雙擊單元格，自動產生相應符號，應選擇事件，案例中是雙擊單元格，故應選擇工作表的Worksheet_BeforeDoubleClick事件；

2）若只在B2：B10區域產生作用，需對鼠標雙擊的單元格進行判定是否在B2：B10區域中

3）鼠標雙擊單元格後，系統默認的功能是進入單元格編輯狀態。如需支持連續點擊，即需禁止進入單元格編輯狀態，需將Cancel參數賦值為True

3、代碼

<code>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'  判斷Targe參數是否與[B2:B10]區域存在交集
    If Not Intersect(Range("b2:b10"), Target) Is Nothing Then
    '  取消雙擊鼠標之後的系統默認功能，即禁止單元格進入編輯狀態
        Cancel = True
        If Target = "" Or Target = "×" Then
            Target = "√"
        Else
            Target = "×"
        End If
    Else
        Cancel = False
    End If
End Sub

/<code>