Question

EXCEL用VBA将EXCEL的一个单元格双击一下变

用VBA有没有办法将EXCEL的一个单元格双击一下变成＂√＂，再双击一下变成＂×＂，再双击一下变成空格

Answer 1

程序代码如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "√" Then
        Target = "x"
    ElseIf Target = "x" Then
        Target = ""
    Else
        Target = "√"
    End If
End Sub

例子文件：

 

Answer 2

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Value
        Case ""
            Target.Value = "√"
        Case "√"
            Target.Value = "×"
        Case "×"
            Target.Value = ""
    End Select
End Sub

在sheet的代码中复制即可