ＥＸＣＥＬＬチェックボックスのチェックの一括削除

下のようなエクセルシートでチェックがランダムに入っています。
１個１個クリックしてチェックを解除するのは大変なので一括
で出来る方法がないか悩んでおります。

　　Ａ　Ｂ　Ｃ　Ｄ
１　□　□　□　□
２　□　□　□　□
３　□　□　□　□

No.2 ベストアンサー 回答者： imogasi 回答日時： 2007/10/13 23:12

もし他によい方法がなければ

Sub test01()
For i = 1 To ActiveSheet.DrawingObjects.Count
ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = 0
Next i
End Sub
を実行するとできます。
チェックボク以外は貼り付けてないこと。
シートに直接コントロールツールボックスのチェックボックスを貼り付けてテストしました。
コマンドボタンにでも登録すればよい。

この回答へのお礼

実はこの方法のようにコマンドボタンに登録する方法を模索していました。特に("CheckBox" & i)の記述法が大変参考になりました。
チェックボックスが１４０個もあるものなので。

For i = 1 To 140
ActiveSheet.Shapes("Check Box " & i).Select
With Selection
.Value = xlOff
End With
Next i

これで解決できました。
ちょっと余談ですが　i は　Dim i As Integer のように定義しなくてもエラーが出ないのですね(^^;
ありがとうございました。

お礼日時：2007/10/14 08:02

No.1 回答者： n-jun 回答日時： 2007/10/13 22:26

フォームのチェックボックスであれば、図形描画のツールバーにある

「オブジェクトの選択：白いカーソル」をクリックして、
全てのチェックボックスを選択する。
１つのチェックボックス上で「右クリック」－「コントロールの書式設定」
の「コントロール」で値をオフにしてＯＫではどうでしょう？

この回答へのお礼

過去ログを見るとACCESSでは更新クエリーを使う方法があることが理解できたのですが、EXCELLでは？と悩んでおりました。
この方法があったのかと目から鱗でした。
これで選択して切り取りをするとチェックボックスの一括消去ができることも分かりました。
ありがとうございました。

お礼日時：2007/10/14 07:42