|
>チェックボックスを1つだけ選択でき、クリックする度に切り替わるのか
これチェックボックスでやると面倒くさいですよ。
CheckBox1.Value = True、False
の類で、Clickイベントが発生するから....。
1つだけ選択させるんだったら、オションボタンが適正だと思います。
一応コード、全部フォームモジュール
Dim Flg As Boolean
Private Sub CheckBox1_Click()
Call main(1)
End Sub
Private Sub CheckBox2_Click()
Call main(2)
End Sub
Private Sub CheckBox3_Click()
Call main(3)
End Sub
Sub main(No)
If Flg = False Then
Flg = True
For i = 1 To 3
If i <> No Then
UserForm1.Controls("CheckBox" & i) = False
Else
UserForm1.Controls("CheckBox" & i) = True
End If
Next
Flg = False
End If
End Sub
|
|