如何快速在单元格中插入对勾和叉号标记？

在工作表中，默认情况下我们可以使用“符号”功能插入对勾和叉号标记，但每次只能插入一个符号会显得很繁琐。本文将介绍一些技巧，帮助您快速在 Excel 中插入对勾和叉号标记。

使用快捷字符插入对勾和叉号标记

使用 VBA 代码在单元格中插入对勾和叉号标记

使用快捷字符插入对勾和叉号标记

为了快速插入对勾和叉号标记，快捷字母“a”和“r”可以帮到您。请按照以下步骤操作：

1. 选择要插入对勾和叉号标记的列单元格，然后在“开始”选项卡下选择 Webdings 字体，参见截图：

2. 现在，当您在单元格中输入字母“a”时，它将变为对勾标记；如果输入字母“r”，它将变为叉号标记，参见截图：

使用 VBA 代码在单元格中插入对勾和叉号标记

这里还有另一种快速简便的方法，只需点击几下即可插入对勾和叉号标记。

1. 右键单击要插入对勾和叉号标记的工作表标签，然后从上下文菜单中选择“查看代码”。在打开的 Microsoft Visual Basic for Applications 窗口中，将以下代码复制并粘贴到空白模块中：

VBA 代码：在单元格中插入对勾和叉号标记：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

注意：在上述代码中，B2:B12 是您要插入对勾和叉号标记的单元格区域，您可以根据需要更改单元格引用。

2. 然后保存代码并关闭窗口，现在，当您双击某个单元格一次时，会插入叉号标记，再次双击时，会显示对勾标记，参见截图：