我不是很懂VBA，現在是有三個checkbox控件，要實現一個功能：如果checkbox1被選中，checkbox2、checkbox3、checkbox4都選中如果checkbox2、checkbox3、checkbox4都選中，checkbox1也自動選中如果checkbox2、checkbox3、checkbox4不是都選中狀態，checkbox1也自動不選中有點像checkbox1體現另外三個的總的狀態，在VBE里如果寫代碼？求助
2 回答
千巷貓影
TA貢獻1829條經驗 獲得超7個贊
一.在checkbox1的更新后事件：
if checkbox1=-1 then checkbox2=-1 checkbox3=-1 checkbox4=-1else checkbox2=0 checkbox3=0 checkbox4=0end if |
二.在checkbox2、3、4的更新后事件：
if checkbox2=-1 and checkbox3=-1 and checkbox4=-1 then checkbox1=-1else checkbox1=0end if |
狐的傳說
TA貢獻1804條經驗 獲得超3個贊
Private Sub CheckBox1_Click() If CheckBox1 Then CheckBox2.Value = True CheckBox3.Value = True CheckBox4.Value = True Else CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False End IfEnd SubPrivate Sub CheckBox2_Click() If CheckBox2 Then If CheckBox3 And CheckBox4 Then CheckBox1.Value = True Else If Not CheckBox3 And Not CheckBox4 Then CheckBox1.Value = False End IfEnd SubPrivate Sub CheckBox3_Click() If CheckBox3 Then If CheckBox2 And CheckBox4 Then CheckBox1.Value = True Else If Not CheckBox2 And Not CheckBox4 Then CheckBox1.Value = False End IfEnd SubPrivate Sub CheckBox4_Click() If CheckBox4 Then If CheckBox3 And CheckBox2 Then CheckBox1.Value = True Else If Not CheckBox3 And Not CheckBox2 Then CheckBox1.Value = False End IfEnd Sub
- 2 回答
- 0 關注
- 579 瀏覽
相關問題推薦
添加回答
舉報
0/150
提交
取消