如何根据Excel中的单元格值自动勾选复选框？

您可能知道如何根据复选框更改单元格的值。但是，您知道如何在Excel中根据单元格的值让复选框自动被勾选吗？本文将向您展示实现这一功能的方法。

使用公式根据单元格值自动勾选复选框
使用VBA代码根据单元格值自动勾选复选框

使用公式根据单元格值自动勾选复选框

假设当单元格A1的值等于“Test”时，您希望复选框1能够自动被勾选。请按照以下步骤操作：

1. 插入复选框（表单控件）后，选择它并通过在编辑栏(F)中输入=C2将其链接到指定的单元格C2。

对于ActiveX控件复选框，请右键单击它并从右键菜单中选择属性。在属性对话框中，将链接的单元格输入到LinkedCell字段中，然后关闭对话框。参见截图：

2. 选择链接的单元格（C2），然后在编辑栏(F)中输入公式=IF(A2="Test",TRUE,FALSE)，然后按Enter键。

备注：在该公式中，A2和Test是需要让复选框基于其值自动勾选的单元格及其值。

3. 当在单元格A1中输入值“Test”时，相应的复选框将自动被勾选。参见截图：

备注：此公式不区分大小写。

使用VBA代码根据单元格值自动勾选复选框

您可以运行以下VBA代码来根据单元格值在Excel中自动勾选复选框。

1. 右键单击带有基于单元格值勾选的复选框的工作表标签，然后从右键菜单中选择查看代码。

2. 在 Microsoft Visual Basic for Applications窗口中，请将以下VBA代码复制并粘贴到代码窗口中。

VBA代码：根据单元格值自动勾选复选框

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A2").Value = "Test" Then
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn
    Else
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff
    End If
End Sub

备注：在代码中，A2和Test是需要让复选框基于其值自动勾选的单元格及其值。复选框1是复选框的名称。

3. 按Alt + Q键关闭Microsoft Visual Basic for Applications窗口。

当在单元格A2中输入值“Test”时，指定的复选框将自动被勾选。

备注：此代码区分大小写。

提示：如果您想批量插入多个复选框到选定区域，可以尝试Kutools for Excel的批量插入复选框工具，或者使用批量插入选项按钮工具批量插入多个选项按钮。此外，您可以使用批量删除复选框工具一次性删除所有复选框，如下图所示。您可以前往下载Kutools for Excel！(30-天免费试用)。

相关文章：

• 如何在Excel中勾选复选框时更改指定单元格的值或颜色？
• 如何在Excel中通过复选框突出显示单元格或整行？
• 如何在Excel中勾选复选框时在单元格中插入日期戳？
• 如何在Excel中根据复选框筛选数据？
• 如何在Excel中隐藏行时隐藏复选框？
• 如何在Excel中创建带多个复选框的下拉列表？