Excel VBA 如何在工作表上使用Option Button按钮

时间:2021-09-07 20:21:33

应用场景

在Excel的页面上放一个“确认”按钮,再放几个Option Button按钮,编写代码,点击“确认”按钮,判断出选择了哪个Option按钮,

然后根据选择不同的Option Button去进行后续动作。

解决办法:

网上搜了一下,没有找到好的办法,放在Form窗体上的Option Button的使用和放在工作表上的Option Button的使用方法不同。

这里记录一下我按网上搜到的一个办法,笨了一点,不过是可行的,先记录在这。以后有了好的办法再更新。

1.在Excel 的工作表上有如下几个Option Button,一个Process按钮

Excel VBA 如何在工作表上使用Option Button按钮

Excel VBA 如何在工作表上使用Option Button按钮

2.新增一个Sheet,Sheet Name命名为Temp,把选择的Option Button对应的值存放到Temp这个Sheet的A2单元格,使用的时候,判断A2单元格的数值,从而判断出选择了

哪个Option Button按钮。

Excel VBA 如何在工作表上使用Option Button按钮

3.选择Option Button按钮,关联Temp页的A2单元格

选中Option Button,点鼠标右键,选Format Control

Excel VBA 如何在工作表上使用Option Button按钮

4.选择Control页,然后在Cell Link里输入Temp!$A$2,点“OK”按钮

Excel VBA 如何在工作表上使用Option Button按钮

5.在VBE编辑器里,在确定按钮调用的过程里,输入下面代码

Dim iOptButton as Integer

iOptButton = ThisWorkbook.Worksheets("Temp").Cells(2, 1)

select case iOptButton

case 1

msgbox "选择了第1个Option Button按钮“,, vbDefaultButton1, "信息提示"

case 2

msgbox "选择了第2个Option Button按钮“,, vbDefaultButton1, "信息提示"

case 3

msgbox "选择了第3个Option Button按钮“,, vbDefaultButton1, "信息提示"

end Select

6.设置Temp 这一页为隐藏,经测试,设置为隐藏后,仍能正常使用