[[20110305230256]]　『チェックボックスのチェックを外すマクロ』（ahiru）　ページの最後に飛ぶ

『チェックボックスのチェックを外すマクロ』（ahiru）
コマンドバーフォームのチェックボックスのチェックを外すマクロを下のように組んでいます。しかし、この方法では、全てのチェックが消えてしまいます。
チェックボックスは全部で７つあり、必要に応じて、１つずつチェックを外せるようにマクロを組むにはどうしたらよいでしょうか？
どなたか教えて下さい。
宜しくお願いします。

※チェックを外すマクロは、他のマクロの下にくっつけており、ある作業に応じて、対応したチェックを外すようにしたいと思います。

 Sub test1()
    Dim chkbox As Object
    For Each chkbox In ActiveSheet.CheckBoxes
       chkbox.Value = 0
    Next
 End Sub

 ActiveSheet.CheckBoxes(1).Value = 0
 とか？
 （トオリガカリ）

コメント返信：

[ 一覧(最新更新順) ]

[[20110305230256]] 『チェックボックスのチェックを外すマクロ』（ahiru） ページの最後に飛ぶ

[[20110305230256]]　『チェックボックスのチェックを外すマクロ』（ahiru）　ページの最後に飛ぶ