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 這一頁為隱藏,經測試,設置為隱藏后,仍能正常使用


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM