小兔网

复选框是可以选中以存储信息的字段。Excel VBA中创建一个复选框,请执行以下步骤。

1.在“ 开发人员”选项卡上,单击“插入”。

2.在“ ActiveX控件”组中,单击“复选框”。

在Excel VBA中创建一个复选框

3.在工作表上拖动一个复选框。

4.右键单击复选框(确保已选择“设计模式”)。

5.单击查看代码。

查看代码

注意:您可以通过右键单击控件(确保已选择“设计模式”),然后单击“属性”来更改控件的标题和名称。将复选框的标题更改为MyCheckBox。现在,我们将CheckBox1保留为复选框的名称。

6.添加以下代码行:

如果 CheckBox1.Value = True,  Range(“ D2”)。Value = 1
如果 CheckBox1.Value = False,  Range(“ D2”)。Value = 0

7.单击工作表上的复选框(确保取消选择“设计模式”)。

结果:

复选框为真

复选框错误

尽管在某些情况下将复选框直接放置在工作表上可能会很有用,但是将复选框放在Userform上特别有用