5.5.3 Excel VBA的单选按钮和复选框举例

该实例主要用来区分单选按钮与复选框的不同。(1)首先在窗体中添加2个单选按钮和2个复选框，再添加1个文本框和I个命令按钮。当用户选择了某几项后，单击命令按钮，则在文本框中显示当前选定了嘟些项。将命令按钮的Caption属性设N为“确定”，分别将4个选择控件的Caption属性设置为“选项I"、“选项2-、“选项3"、“选项4-。添加好控件的窗体如图5.24所示.图5.24创建好的窗体效果(2)双击“确定”按钮，在Command 1一lick事件中添加如下的代码:Private Sub Commandl Click()Textl.Text一，您选择7"，如果选择了单选按钮1If Optionl.Value一True ThenTextl.Text一Textl.Text+End If，如果选择了单选按钮2If Option2.Value一True ThenTextl.Text一Textl.Text+End If，如果选择了复选框1If Checkl.Value一1 ThenTextl.Text一Textl.Text+End If，如果选择了复选框2If Check2.Value一1 ThenTextl.Text .Textl.Text+End IfEnd Sub，清空文本框一选项1".选项2"一选项3".选硕9"(3)运行这一段程序，选择选项，单击按钮，即可看到在文本框中列出了当前选择的选项。图5.25所示是选择了单选按钮2及复选框1和2后的结果.由此可见，单选按钮只能且必须选一项，而复选框可以选择不定数目的选顶。说明:单选按妞在同一个容器中只能选择其中的一个选项，如果共实现几组单选按粗，且其中每一组都可以选择一个选项的功能，可以将每一组单选按妞放I在一个容器内，如Frame控件。

添加复选框

1

Word2003版

2

双击运行需要添加复选框的word文档

3

执行“视图—工具栏—控制工具箱

4

在word中需要添加复选框的位置点击，点击控制工具箱中的“复选框”按钮

5

出现如图所示的CheckBox1复选框

6

在CheckBox1复选框上右键点击，选择“属性”子菜单

7

在“属性”对话框中修改“Caption”项，输入文字値，其他的复选框也一样 *** 作

8

WPS版

9

将鼠标定位到需要插入复选框的位置

10

执行“开发工具”菜单命令，

11

调出开发工具工具栏

12

点击控件区中复选框按钮

13

此时鼠标变成十字形状，在刚才鼠标定位的位置点击一下就可以建立一个复选框

14

在复选框控件上右击，选择“属性”菜单命令

15

在“属性”对话框中将Caption属性值改为你需要的文字，比如“复选框”，输入完后在属性框外点击即可完成添加

16

其他的复选框添加依次类推方法一样

END

添加单选框

1

Word2003版

2

双击运行需要添加复选框的word表格所在的文档

执行“视图—工具栏—控制工具箱

在word中需要添加单选框的位置点击，点击控制工具箱中的“选项按钮”按钮，出现单选框

然后在单选框控件上面右击选择“属性”子菜单命令

在“属性”对话框的“Caption”项后面框中填入单选框的文字，在框外点击即可完成添加

其他单选框添加方法相同依次类推即可

WPS版

执行“开发工具”菜单命令，调出开发工具工具栏

此时鼠标变成十字形状，在刚才鼠标定位的位置拖曳鼠标就可以建立一个单选框

在复选框控件上右击，选择“属性”菜单命令

在“属性”对话框中将Caption属性值改为你需要的文字，比如“单选框”，输入完后在属性框外点击即可完成添加

13

其他的单选框添加依次类推方法一样

有一种方法，推荐下：

在窗体载入后写上

你的单选名字.value=true

其它单选项.value=false

这样就只有这一个是选中的了。

---