zoukankan      html  css  js  c++  java
  • 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 这一页为隐藏,经测试,设置为隐藏后,仍能正常使用

  • 相关阅读:
    Codeforces Round #462 (Div. 2)
    Codeforces 934.D A Determined Cleanup
    Codeforces 934.C A Twisty Movement
    Codeforces 934.B A Prosperous Lot
    event和window.event
    javascript事件捕获与冒泡
    Dom兼容问题记录汇总
    流媒体网站开发技术浅谈
    javascript:自定义事件初探
    jQuery插件教程
  • 原文地址:https://www.cnblogs.com/SH170706/p/11890052.html
Copyright © 2011-2022 走看看