Excel 点击单元格打钩，再点击取消

      用 Excel VBA 实现。

      打开 Excel ，然后快捷键 “Alt” + “F11” ，可弹出 Microsoft Visual Basic for Applications 窗口。双击左侧 “Microsoft Excel 对象” 下的 “Sheet1” ，复制以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count > 1 Then
        Exit Sub
    Else
        If Target.Column > 3 And Target.Column < 34 And Target.Row > 1 And Target.Row < 13 Then
            If Target = "√" Then
                Target = ""
            Else
                Target = "√"
            End If
        End If
    End If
    
End Sub

 

另，

    把 Excel 的字体 调整为 “Wingdings 2”，输入 “R” 也可显示 “✔”。