如何在 Excel 中双击单元格添加复选标记

有一个称为复选标记的符号，可以像输入任何文本一样将其输入单元格。这意味着，当您复制单元格时，复选标记将与单元格一起复制，并且如果您删除单元格，它也将与单元格一起删除。您可以通过调整字体颜色和大小以与传统文本相同的方式对其进行格式化。复选标记，通常称为勾选标记，是一个可以用来表示“是”一词、提及“完成”一词或提及“完成”一词的标记。如果您正在使用待办事项列表并希望表明某些内容已完成、已完成或已勾选，则最有效的方法是使用复选标记。

在大多数情况下，您需要打开“符号”对话框，查找复选标记符号，然后才能将其手动输入单元格之前才能在单元格中插入复选标记。但是，由于“符号”对话框包含大量符号，因此在其中找到复选标记符号并不容易。

在本教程中，我们将学习有关 VBA 代码的信息，以便通过双击单元格添加复选标记。

通过双击添加复选标记的 VBA 代码

步骤 1

打开一个 Excel 表格，并按 Alt 和 F11 键(Alt+F11) 以打开 Microsoft Visual Basic for Application 窗口。请参阅下图。

步骤 2

之后，从菜单栏中选择插入 > 模块以显示弹出模块窗口。请参阅下图。

步骤 3

打开模块窗口后，在其中键入以下 VBA 代码。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
      Application.EnableEvents = False
      If ActiveCell.Value = ChrW(&H2713) Then
         ActiveCell.ClearContents
      Else
         ActiveCell.Value = ChrW(&H2713)
      End If
      Cancel = True
   End If
   Application.EnableEvents = True
End Sub

请参阅下图。