用 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” 也可显示 “✔”。