如何快速将刻度线和十字标记插入单元格？

在工作表中，默认情况下，我们可以使用符号功能插入刻度线和十字标记，但是，如果您每次只能插入一个符号，那将很无聊。 本文，我将为您介绍一些技巧，以帮助您在Excel中快速插入刻度线和十字标记。

在具有快捷方式字符的单元格中插入刻度线和十字标记

使用VBA代码在单元格中插入刻度线和十字标记

在具有快捷方式字符的单元格中插入刻度线和十字标记

要快速插入刻度线和十字标记，快捷字母“ a”和“ r”可以帮您一个忙。 请这样做：

1。 选择要在其中插入刻度线和十字标记的列单元格，然后选择 Webdings 下的字体 主页 标签，请参见屏幕截图：

2。 现在，当您在单元格中输入字母“ a”时，它将变为刻度线；如果键入字母“ r”，则它将变为十字标记，请参见屏幕截图：

使用VBA代码在单元格中插入刻度线和十字标记

这是另一种快速简便的方法，您只需单击即可插入刻度线和十字标记。

1。 用鼠标右键单击要插入刻度线和十字标记的工作表选项卡，然后选择 查看代码 从上下文菜单中，在打开的 适用于应用程序的Microsoft Visual Basic 窗口，将以下代码复制并粘贴到空白模块中：

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。 然后保存代码并关闭此代码，现在，当您双击一个单元格一次时，将插入一个十字标记，而当第二次双击时，将显示一个勾号，请参见屏幕截图：