Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to add check mark in a cell with double clicking in Excel?

Normally, for inserting a check mark in a cell, you need to get into the Symbol dialog box, find the check mark symbol and insert it manually. But it is not so easy to find out the check mark symbol in the Symbol dialog box as there are numerous symbols listed inside. How to quickly add a check mark in a cell in Excel? This article will show you a VBA method to easily add check mark in a cell with double clicking only.

Double click to add check mark in a cell with VBA code


arrow blue right bubble Double click to add check mark in a cell with VBA code


The following VBA code can help you add check mark in a cell with double clicking. Please do as follows.

1. Open the worksheet you need to add check mark into the cell, then right click and select View Code from the right-clicking menu.

2. In the Microsoft Visual Basic for Applications window, copy and paste the below VBA code into the Code window.

VBA code: Double click to add check mark in a cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) 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

Note: In the code, B1:B10 is the range you will add check mark with double clicking. Please change it based on your need.

3. Press the Alt + Q keys to close the Microsoft Visual Basic for Applications window and return to the worksheet.

Now, double click on any cell in range B1:B10, the check mark will be entered automatically. And double clicking the cell again, the inserted check mark will be removed.

Tip.If you need to frequently use check marks while working with Excel, here I recommend you to use the Auto Text Utility of Kutools for Excel as below screenshot shown.

Easily save check mark as an Auto Text entry for feature using:

With the Auto Text utility of Kutools for Excel, you can save the check mark as an Auto Text entry, and then reuse it in the feature with just one click.

Usage: Select the cell contains the check mark, click the New AutoText button, specify an auto text group for saving the check mark, name it and click the Add button in the New AutoText dialog box. Now the check mark is added as an Auto Text entry, you can use it at any time as you need with just one click on it.

Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 30 days. Download the free trial now


arrow blue right bubbleRelated articles:


Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 71%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 82% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luiz Carlos Dias · 6 months ago
    como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente e a célula voltaria ao normar (continuaria apenas o número).
    • To post as a guest, your comment is unpublished.
      Tadao Kano · 4 months ago
      Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 e D2:D5, altere conforme sua necessidade.

      Tadao


      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) Is Nothing Then
      Application.EnableEvents = False
      If Left(ActiveCell.Value, 1) = ChrW(&H2713) Then
      ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
      ActiveCell.HorizontalAlignment = xlRight
      Else
      ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
      End If
      Cancel = True
      End If
      Application.EnableEvents = True
      End Sub