如果您有多个选项按钮,则只能选择一个选项按钮。要在Excel VBA中创建选项按钮,请执行以下步骤。
1.在“ 开发人员”选项卡上,单击“插入”。
2.在“ ActiveX控件”组中,单击“选项按钮”。
3.在工作表上拖动两个选项按钮。
4.右键单击第一个选项按钮(确保选择了“设计模式”)。
5.单击查看代码。
注意:您可以通过右键单击控件(确保已选择“设计模式”),然后单击“属性”来更改控件的标题和名称。将选项按钮的标题更改为“女性”和“男性”。现在,我们将保留OptionButton1和OptionButton2作为选项按钮的名称。
6.添加以下代码行:
如果 OptionButton1.Value = True, 则 Range(“ D3”)。Value = 10
7.右键单击第二个选项按钮(确保已选择“设计模式”)。
8.单击查看代码。
9.添加以下代码行:
如果 OptionButton2.Value = True, 则 Range(“ D3”)。Value = 20
10.单击页面上的选项按钮(确保取消选择“设计模式”)。
结果:
尽管在某些情况下将选项按钮直接放置在工作表上可能会很有用,但是将选项按钮放置在Userform上特别有用。