[[20080407150400]]　『チェックボックスのチェックの削除方法』（ポトス）　ページの最後に飛ぶ

『チェックボックスのチェックの削除方法』（ポトス）

 エクセル初心者です。
 エクセルシートに挿入してあるチェックボックスの
 チェックのみを一気に外すには、どうのようにしたらよいでしょうか？

 >エクセルシートに挿入してあるチェックボックス
 がコマンドバー「フォーム」にあるチェックボックスならば、

 Sub checkbox_off()
    ActiveSheet.CheckBoxes.Value = xlOff
 End Sub

 これでよいですが、コマンドバー「コントロールツールボックス」にあるチェックボックスならば、

 Sub test()
    Dim ole As OLEObject
    For Each ole In ActiveSheet.OLEObjects
       If TypeName(ole.Object) = "CheckBox" Then
          ole.Object.Value = False
          End If
       Next
 End Sub

 こんな方法でしょうか？　シートに配置したコントロールについては、
 複数ある場合がありますから、特定できる記述をしてください。

 ichinose

丁寧に、ご回答いただきまして、有り難うございました。
フォームにある、チェックボックスですので、
早速実行させていただきます。

コメント返信：

[ 一覧(最新更新順) ]

[[20080407150400]] 『チェックボックスのチェックの削除方法』（ポトス） ページの最後に飛ぶ

[[20080407150400]]　『チェックボックスのチェックの削除方法』（ポトス）　ページの最後に飛ぶ