|
▼Mari さん:
こんばんは。
>UserFormのCheckBoxについてお尋ねします。
>CheckBox1〜4まで有るのですが、チェックをつけると即
>動作(testAやtestB・・・)をさせています。
>動作は順調にするのですが、CheckBox1には何故か、チェックが付かないで
>動作します。理由が分からないのですが、どなたかご存知でしたら、
>その理由を教えてください。
>
>Private Sub CheckBox1_Click()
doevents
> If Controls("CheckBox1").Value = False Then Exit Sub
> Run "testA"
> Controls("CheckBox1").Value = False
>End Sub
>
>Private Sub CheckBox2_Click()
doevents
> If Controls("CheckBox2").Value = False Then Exit Sub
> Run "testB"
> Controls("CheckBox2").Value = False
>End Sub
こうするとどうでしょうか?
|
|