如何在 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

請參閱下圖。