如何在 Excel 中将 TRUE/FALSE 值转换为复选框？

假设您在两列中列出了数字，当第一列的数字大于第二列时显示 TRUE，否则显示 FALSE（如下图所示）。现在，您可以轻松调整公式，将 TRUE 或 FALSE 转换为复选框标记。

将原始公式更改为 =IF（原始公式，“þ“，“¨“）

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. 现在，每个选中的单元格均已插入复选框控件，您可以根据需要手动勾选。