如何在 Excel 中將 TRUE/FALSE 值轉換為核取方塊？

假設您在兩欄中列出數字，若第一欄的數值大於第二欄，則顯示 TRUE，否則顯示 FALSE（如以下截圖所示）。現在，您可輕鬆調整公式，將 TRUE 或 FALSE 轉換為 Excel 中的核取方塊標記。

將原始公式更改為=IF(original_formula，“þ“，“¨“）

1. 在此範例中，我使用公式 =B3>C3 比較兩欄中的數字，因此會如下所示修改原始公式，再拖曳自動填滿控點至其他儲存格。

=IF(B3>C3,"þ","¨")

2. 保持選取公式儲存格，按一下滑鼠右鍵，再從內容功能表中選擇設定儲存格格式。

3. 在「設定儲存格格式」對話方塊中，切換至字型索引標籤，從 Wingdings 字型清單方塊中選取，然後按一下確定按鈕。

現在您會看到特殊字元已轉換為勾選與未勾選的核取方塊。請參閱以下截圖：

本節將介紹一段 VBA 巨集，可於 Excel 中將多個 TRUE 與 FALSE 值批量轉換為核取方塊控制項。請依照下列步驟操作：

1. 選取要轉換為核取方塊的「TRUE」與「FALSE」儲存格。

2. 同時按下 Alt＋F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

3. 點選插入＞ 模組，並將下方 VBA 程式碼貼上至新開啟的模組視窗中。

VBA：在 Excel 中將 TRUE 與 FALSE 轉換為核取方塊控制項

Sub ConvertTrueFalseToCheckbox()
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub

4. 按下 F5 鍵，或點擊執行按鈕，立即執行此 VBA！

接著，您會看到所有選取的 TRUE 與 FALSE 已轉換為核取方塊控制項：TRUE 顯示為已勾選的核取方塊，FALSE 則顯示為未勾選的核取方塊。請參閱下方截圖：

若您已安裝 Kutools for Excel，即可使用其批次插入複選框功能，一鍵在 Excel 中大量插入多個核取方塊控制項！

Kutools for Excel－內含超過 300 項實用 Excel 工具，提供完整功能 60 天免費試用，無需信用卡！立即取得

1. 選取包含「TRUE」與「FALSE」的儲存格（這些將轉換為核取方塊），然後按一下 Kutools＞ 插入＞ 批次插入複選框。

2. 現在每個選取的儲存格都會插入一個核取方塊控制項，您可以依需求手動勾選！