日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

checkbox復選框使用教程 excel復選框怎么設置

第十節(jié) 復選框(Check Box)大家好,我們今天講解復選框(Check Box)控件 , 復選框是一個可以被選中 , 用來存儲信息的控件 。這個控件在工作表中用的不多 , 大多時候是在窗體中應用 , 但我們仍將其作為一個知識點來講解 。
1 在工作表窗口上添加復選框控件要在Excel VBA中創(chuàng)建一個復選框 , 可以執(zhí)行以下步驟:在“開發(fā)工具”選項卡上;單擊“插入”;在ActiveX控件組中 , 單擊復選框;

checkbox復選框使用教程 excel復選框怎么設置


在工作表上拖動鼠標 , 就可以在工作表上添加一個復選框了 。如下:
checkbox復選框使用教程 excel復選框怎么設置


2 修改復選框為自定義屬性為了把復選框在工作表上顯示項目修正為我們需要的結果 , 我們可以在工作表上點擊選中這個復選框 , 右鍵 , 點擊屬性 , 注意此時要處于“設計模式” 。
checkbox復選框使用教程 excel復選框怎么設置


會彈出下面的屬性對話框 , 我們找到“caption”屬性:
checkbox復選框使用教程 excel復選框怎么設置


修正這個值為“確認”:
checkbox復選框使用教程 excel復選框怎么設置


這個時候工作表窗口中復選框中顯示為“確認” 。
3 復選框控件的實際應用把下面代碼加到工作表的私有模塊中:
Private Sub CheckBox1_Click()
If CheckBox1.Value = https://www.jinnalai.com/fenxiang/True Then Range(“D2”).Value = 1
If CheckBox1.Value = https://www.jinnalai.com/fenxiang/False Then Range(“D2”).Value = 0
End Sub
代碼截圖:
checkbox復選框使用教程 excel復選框怎么設置


代碼講解:
1) If CheckBox1.Value = https://www.jinnalai.com/fenxiang/True Then Range(“D2”).Value = 1 假如選中了復選框那么在單元格D2中記入1
2)If CheckBox1.Value = https://www.jinnalai.com/fenxiang/False Then Range(“D2”).Value = 0 假如沒有選中復選框那么在單元格D2中記入0
實際運行結果(注意要退出設計模式):
checkbox復選框使用教程 excel復選框怎么設置


【checkbox復選框使用教程 excel復選框怎么設置】
checkbox復選框使用教程 excel復選框怎么設置


    推薦閱讀