复选框是可以选中以存储信息的字段。要在Excel VBA中创建一个复选框,请执行以下步骤。
1.在“ 开发人员”选项卡上,单击“插入”。
2.在“ ActiveX控件”组中,单击“复选框”。
3.在工作表上拖动一个复选框。
4.右键单击复选框(确保已选择“设计模式”)。
5.单击查看代码。
注意:您可以通过右键单击控件(确保已选择“设计模式”),然后单击“属性”来更改控件的标题和名称。将复选框的标题更改为MyCheckBox。现在,我们将CheckBox1保留为复选框的名称。
6.添加以下代码行:
如果 CheckBox1.Value = True, 则 Range(“ D2”)。Value = 1
如果 CheckBox1.Value = False, 则 Range(“ D2”)。Value = 0
如果 CheckBox1.Value = False, 则 Range(“ D2”)。Value = 0
7.单击工作表上的复选框(确保取消选择“设计模式”)。
结果:
尽管在某些情况下将复选框直接放置在工作表上可能会很有用,但是将复选框放在Userform上特别有用。