[[20080207120050]]　『チェックボックスの一括クリア』（みゆちん）　ページの最後に飛ぶ

『チェックボックスの一括クリア』（みゆちん）

 複数個のチェックボックスのレ点を一括クリアする方法を検索し、
下記のコードを貼り付けしてみましたが、『オブジェクトが必要です』と
メッセージが出てしまいます。
コードの意味はまったく理解できておりません。
どなたか教えてください。
宜しくお願いします。
 Excel2000
 WindowsXP

　Sub chkoff()

  　Sheet1.CheckBoxes.Value = xlOff
 　End Sub

Sub test()

    Dim ckbx As CheckBox
    For Each ckbx In Worksheets("sheet1").CheckBoxes
       ckbx.Value = False
       Next
End Sub

としてみては？

ichinose

 ichinoseさん、できました！！
ありがとうございました。
(みゆちん）

 すみません、またまた教えてください。
別のシートにシート名を変更して、コードを貼り付けしたら、
クリアは出来るのですが、『400』とメッセージが出ます。
どうすればよいのでしょうか？
（みゆちん）

Excel2002で確認していますが、

この400というエラーを出す現象が再現できません。

シート保護かけた場合

　　チェックボックスにリンクセルの指定なしの場合

　　　　正常に作動

　　リンクセルが保護対象のとき

　　　　チェックの有無に変化はないが、エラーにはならない

等を試しました。

正常作動したシートと400とエラーが発生するシートと
の違いを探ってみてください。

ichinose

コメント返信：