|
▼Mari さん:
こんにちは。
ソースをぱっと見させて頂きました。
で、何故チェックがつかないのかというところですが。
>Private Sub CheckBox1_Click()
> If Controls("CheckBox1").Value = False Then Exit Sub
> Run "testA"
> Controls("CheckBox1").Value = False
>End Sub
この条件だとつきませんよ^^;
チェックボックスが付いてないときは即SubからExit Subで抜けます。
> If Controls("CheckBox1").Value = False Then Exit Sub
で、チェックボックスが付いているときは
> If Controls("CheckBox1").Value = False Then Exit Sub
> Run "testA"
> Controls("CheckBox1").Value = False
このIfの条件内に入ってチェックボックスを消してますよ。
>
>Private Sub CheckBox2_Click()
> If Controls("CheckBox2").Value = False Then Exit Sub
> Run "testB"
> Controls("CheckBox2").Value = False
>End Sub
|
|