在Excel中通过双击单元格，添加复选标记“√”，请这样提高工作效率！
Excel情报局
Excel职场联盟
前言｜职场实例
今天遇到群里的小伙伴提出的一个特殊需求：
如何在Excel中，通过双击鼠标来实现在单元格中添加复选标记的效果。
如下图所示：
工作表中有一个学生成绩表，如何根据B列的成绩，将大于60分成绩的学生在C列通过双击鼠标的方式在单元格中添加一个复选标记“√”呢？
方案｜解决步骤
要想实现这样的效果，还必须通过VBA代码的方法来操作。
首先我们右击工作表名称标签，点击“查看代码”命令，进入到VBA代码编辑器窗口中（或按快捷键Alt+F11键进入），接着将下面一小段VBA代码复制粘贴到代码框中。注意：只需要将代码复制粘贴进来即可，不需要点击“运行”按钮。
代码如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C2:C7")) 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 = TrueEnd Sub操作方法如下图所示：
最终我们看到，我们在C列双击对应的单元格就实现了在单元格中添加复选标记“√”的效果。这样做大大的提高了我们的录入数据的效率。
注意｜代码灵活变动
我们需要注意代码中的下面的其中一句：
If Not Intersect(Target, Range("C2:C7")) Is Nothing Then
其中“C2:C7”是我们双击鼠标实现复选标记的作用的范围，也就是说在本例中，我们只需要对C2:C4单元格区域内的单元格实现该效果，其余的单元格双击鼠标不受影响。这里是我们需要根据实际情况修改的地方。
赞 (0)