excel vba checkbox指定只能選擇一個

http://tw.knowledge.yahoo.com/question/question?qid=1510112203097

當我有3個甚至是4個checkbox的時候，假設我要只能選擇一個checkbox1其他都不能做選擇，但是當checkbox1解除時其他就可以選。
我用2個checkbox時做的出來但是當我用到第3個的時候就出現問題了，這是我寫的程式。
Private Sub CheckBox1_Click()
If CheckBox1 = True Then CheckBox2.Locked = True And CheckBox1.Locked = False And CheckBox3.Locked = True
If CheckBox1 = False Then CheckBox2.Locked = False And CheckBox3.Locked = False

End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then CheckBox1.Locked = True And CheckBox2.Locked = False And CheckBox3.Locked = True
If CheckBox2 = False Then CheckBox1.Locked = False And CheckBox3.Locked = False
End Sub

Private Sub CheckBox3_Click()

If CheckBox3 = True Then CheckBox2.Locked = True And CheckBox1.Locked = True And CheckBox3.Locked = False
If CheckBox3 = False Then CheckBox2.Locked = False And CheckBox1.Locked = False
End Sub

<h3> 最佳解答</h3>

• 發問者自選

回答者：




擅長領域：



回答時間：

iam_1_001 ( 研究生 4 級 )

商務應用 | VisualBasic

2010-11-22 23:11:27

[ 檢舉 ]

4個checkbox的時候，只能選擇一個checkbox1其他都不能做選擇，但是當checkbox1解除時其他就可以選

checkbox1_不用去設定.

Private Sub CheckBox2_Click()
If CheckBox1 = True Then
CheckBox2.Locked = True
Else
CheckBox1 = True
CheckBox2.Locked = False
End If

CheckBox3_CheckBox4....等___請參考上述CheckBox2的設定

希望有幫上忙.