Note: The other languages of the website are Google-translated. Back to English

如何在Excel中雙擊在單元格中添加複選標記?

通常,要在單元格中插入複選標記,您需要進入“符號”對話框,找到復選標記符號並手動將其插入。 但是在“符號”對話框中查找複選標記符號並不容易,因為其中列出了許多符號。 如何在Excel的單元格中快速添加複選標記? 本文將向您展示一種VBA方法,只需雙擊即可輕鬆在單元格中添加複選標記。

雙擊以在帶有VBA代碼的單元格中添加複選標記


雙擊以在帶有VBA代碼的單元格中添加複選標記

下面的VBA代碼可以幫助您雙擊單元格中添加複選標記。 請執行以下操作。

1.打開您需要在單元格中添加複選標記的工作表,然後右鍵單擊並選擇 查看代碼 從右鍵單擊菜單中。

2。 在裡面 Microsoft Visual Basic for Applications 窗口,將下面的VBA代碼複製並粘貼到 推薦碼 窗口。

VBA代碼:雙擊以在單元格中添加複選標記

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

備註:在代碼中,B1:B10是您將通過雙擊添加複選標記的範圍。 請根據您的需要進行更改。

3。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口並返回到工作表。

現在,雙擊範圍B1:B10中的任何單元格,複選標記將自動輸入。 再次雙擊該單元格,將刪除插入的複選標記。

如果您需要在Excel的日常工作中頻繁使用複選標記,建議在此處 自動文本 的效用 Excel的Kutools。 使用此功能,您可以將復選標記另存為自動文本條目,然後在將來僅需在Excel中單擊一次即可繼續進行複選,如下所示。
立即下載並試用! (30-天免費試用)


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (12)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
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 ea célula voltaria ao normar (continuaria apenas o número)。
網站主持人對此評論進行了最小化
奧拉·路易斯 (Ola Luiz) Ira funcionar nas celulas A2:A10 e D2:D5, altere conme sua necessidade。

忠雄


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)
If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) 什麼都沒有
Application.EnableEvents = False
如果 Left(ActiveCell.Value, 1) = ChrW(&H2713) 那麼
ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.Horizo​​ntalAlignment = xlRight
其他
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
如果結束
取消=真
如果結束
Application.EnableEvents = True
END SUB
網站主持人對此評論進行了最小化
有沒有辦法循環這段代碼,以便它出現在一個工作簿中的許多工作表上?
網站主持人對此評論進行了最小化
嗨leoflute,按下後 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口,請雙擊 的ThisWorkbook 打開 本工作簿(代碼) 窗口,然後將下面的代碼複製到代碼窗口中。 不要忘記更改代碼中的工作表名稱和單元格範圍。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh 作為對象,ByVal 目標作為範圍,取消作為布爾值)
'更新者 Extendoffice 20201012
將 xStrRg、xStrWs、xStrWsName 調暗為字符串
將 xEEBol、xWSNBol、xBol 調暗為布爾值
暗淡 xArrWs
暗淡 xArrRg
將 xI、xJ 調暗為整數
將 xWs 調暗為工作表
將 xRg 調暗為範圍

xStrWs = "表 5、表 1、表 2" '具體的工作表名稱
xStrRg = "B3:B10" '您將插入複選標記的單元格範圍
xArrWs = 拆分(xStrWs,“,”)
xArrRg = 拆分(xStrRg,“,”)

xEEBol = Application.EnableEvents
Application.EnableEvents = False
在錯誤恢復下一頁
xStrWsName = Sh.Name
xBol = 假
xWSNBol = 假
對於 xI = 0 到 UBound(xArrWs)
如果 xStrWsName = xArrWs(xI) 那麼
xWSNBol = 真
退出
如果結束
下一個

如果 xWSNBol 則
設置 xWs = Application.Worksheets.Item(xArrWs(xI))
對於 xJ = 0 到 UBound(xArrRg)
設置 xRg = Sh.Range(xArrRg(xJ))
If Not Intersect(Target, xRg) 則什麼都不是
xBol = 真
退出
如果結束
下一個
如果結束

如果 xBol 那麼
如果 ActiveCell.Value = ChrW(&H2713) 那麼
ActiveCell.ClearContents
其他
ActiveCell.Value = ChrW(&H2713)
如果結束
取消=真
如果結束
Application.EnableEvents = xEEBol
END SUB

網站主持人對此評論進行了最小化
你好呀! 添加複選框時,我將在上面的代碼中添加什麼以使單元格更改顏色?
網站主持人對此評論進行了最小化
嗨水晶
有沒有辦法在 A1:A10 和 B3:B10 中加上複選標記?
網站主持人對此評論進行了最小化
我如何為多個列重複此操作? 
例如我需要它在以下:
E、F、I、J、M、N、Q、R、U、V、Y、Z、AC、AD、AG、AH、AK、A​​L、AO、AP、AS、AT、AW、AX
網站主持人對此評論進行了最小化
Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois。
網站主持人對此評論進行了最小化
嗨,尤利西斯·諾納托,
如果您想通過單擊鼠標為單元格添加複選標記,以下 VBA 代碼可以幫到您。
你需要點擊 鼠標右鍵 按鈕激活代碼。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    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
網站主持人對此評論進行了最小化
我該怎麼做才能在雙擊後在相鄰的單元格上添加時間戳?
網站主持人對此評論進行了最小化
嗨索拉,
下面的 VBA 代碼可以幫你一個忙。 請試一試。 謝謝你。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub
網站主持人對此評論進行了最小化
你好,

Une fois ces cases cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une ceratee colonne, 是否可能?

Merci à vous, bonne soirée
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護