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

最新推荐文章于 2025-05-07 18:54:47 发布

原创最新推荐文章于 2025-05-07 18:54:47 发布 · 6.1k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#Excel #点击单元格对勾

开发测试专栏收录该内容

11 篇文章

订阅专栏

本文介绍如何使用ExcelVBA实现单元格选中状态切换，通过一段简单的代码，当用户选中特定区域内的单元格时，单元格内容将在空字符串和“√”符号间切换。此外，还提供了在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” 也可显示 “✔”。