ExcelVBA WorkSheet上の全てのCheckBoxをＯＮ・ＯＦＦする

ご教授いただければと思います。
環境はExcel2000とWindows2000です。

現在このようなシートがあります
-----WorkShet-----

　↓全てのチェックボックスをＯＮにするコマンドボタン
　□

　↓CheckBox1_1　↓CheckBox2_1　↓CheckBox3_1
　□ □ □

　↓CheckBox1_2　↓CheckBox2_2　↓CheckBox3_2
　□ □ □

------------------

「全てのチェックボックスをＯＮにするコマンドボタン」を押す事により、
全てのCheckBoxをOnにしたいのです。

現在はCheckBox1_2.Vlue = Trueのようにしています。

これからCheckBoxの数が増える予定なので、いちいちコードを増やす事のなくしたいのですが、どのようにしたらよいでしょうか？

よろしくお願いします。

No.1 ベストアンサー 回答者： miya_777 回答日時： 2002/10/01 13:38

OLEObjectsコレクションを使えば解決できます。

worksheetオブジェクトで指定すれば、そのシート上のＯＬＥオブジェクトが参照できます。

シート名「sheet1」にチェックボックスしかないのでしたら、

For i=1 to sheets("sheet1").OLEObjects.Count
sheets("sheet1").OLEObjects(i).Object.Value = True
Next

とすればＯＫです。

この回答へのお礼

miya_777さん　ありがとうございます。

シートにはチェックボックス以外もありますので、
ご回答を参考にOLEObjectを利用して、やってみたいと思います。
ObjectはCheckBoxを指定して.countは範囲を指定しようかと思います。

お礼日時：2002/10/02 14:58

No.2 回答者： taisuke555 回答日時： 2002/10/01 14:09

Sub AllCheck()

For Each ch In ActiveSheet.CheckBoxes
ch.Value = xlOn
Next
End Sub

コマンドボタンのマクロに登録してみてください。

この回答へのお礼

ご回答ありがとうございます。

CheckBoxコレクションにアクセスするって事ですね。
参考にさせて頂きます。

お礼日時：2002/10/02 16:38