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

应用场景

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

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

解决办法：

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

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

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

       

   

 

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

哪个Option Button按钮。

  

 

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

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

 

 

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

 

 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 这一页为隐藏，经测试，设置为隐藏后，仍能正常使用