Note: The other languages of the website are Google-translated. Back to English
ログイン 申し込み

Excelですべてのチェックボックスを一度にオフまたは選択解除するにはどうすればよいですか？

次のスクリーンショットに示すように、ワークシートで一度にすべてのチェックボックスをオフまたは選択解除するにはどうすればよいですか？ この記事では、それを解決するためのいくつかの簡単なコードについて説明します。

docチェックボックスのチェックを外す1

VBAコードでチェックされているすべてのチェックボックスをオフまたは選択解除します

矢印青い右バブル VBAコードでチェックされているすべてのチェックボックスをオフまたは選択解除します

チェックされているすべてのチェックボックス（フォームコントロール）のチェックを外すか、選択を解除します。

チェックボックスがフォームコントロールの場合は、次のVBAコードを使用して一度にチェックを外すことができます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：チェックされているすべてのチェックボックス（フォームコントロール）のチェックを外すか、選択を解除します。

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するにはキーを押します。アクティブなワークシートでは、チェックされているすべてのチェックボックスが一度にオフになっています。

チェックされているすべてのチェックボックス（ActiveXコントロール）のチェックを外すか、選択を解除します。

チェックボックスがActiveXコントロールの場合は、以下のVBAコードを適用してください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：チェックされているすべてのチェックボックス（ActiveXコントロール）のチェックを外すか、選択を解除します。

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3。 次に、 F5 このコードを実行するにはキーを押します。アクティブなワークシートでは、チェックされているすべてのチェックボックスが一度に選択解除されています。

選択範囲に一度に複数のチェックボックスを挿入します

Kutools for Excel's バッチ挿入チェックボックス ユーティリティを使用すると、一度に複数のチェックボックスをすばやく挿入できます。 クリックしてKutoolsfor Excelをダウンロードしてください！

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
古い順
最新の最初の
コメント (14)
まだ評価はありません。 最初に評価してください！
ビックボブ
ビックボブ
このコメントは、サイトのモデレーターによって最小化されました
このvbaコードに感謝し、大いに役立ちました。

F5を押しても機能しない人のための参考までに、単純に：

[開発者]タブ>[マクロ]>作成したモジュールを選択し、[オプション]をクリックします> ctrl+jやctrl+kなどのショートカットの文字を入力します。
返信
0
0
R.ロスマン
R.ロスマン     ビックボブ
このコメントは、サイトのモデレーターによって最小化されました
これであなたの助けをありがとう。 よろしくお願いします。 ただし、次の点に注意してください。ステップ2のコードのスペルが間違っています。 VBAコード：チェックされているすべてのチェックボックス（ActiveXコントロール）のチェックを外すか、選択を解除します。
サブclearcheckbox（）
'Extendoffcieによる更新
オブジェクトとしての薄暗い
ActiveSheet.OLEObjectsの各cについて
InStr（1、c.Name、 "CheckBox"）>0の場合Then
c.Object.Value = False
終了する場合
次へ
End Subの

「Extendoffcie」という言葉は正しく綴られていないことに注意してください。 すべきではない」Extendoffice「??とにかく、それをそこに出したかっただけです
返信
0
0
アリエル
アリエル
このコメントは、サイトのモデレーターによって最小化されました
ボタンを使用してマクロをアクティブにし、ボックスをクリアしたい場合はどうなりますか？
返信
0
0
スカイヤン
スカイヤン     アリエル
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、アリエル、
ボタンを使用してマクロをアクティブ化するには、まず、[図形]ドロップダウンリストからボタンを挿入し、ボタンを右クリックして、コンテキストメニューから[マクロの割り当て]を選択し、[マクロの割り当て]ダイアログボックスでマクロ名を選択する必要があります。 。 次に[OK]をクリックすると、マクロコードがボタンにリンクされます。
ぜひお試しください。お役に立てば幸いです。
添付ファイルを表示 (1 / 5）
返信
レポート
0
0
６月
６月
このコメントは、サイトのモデレーターによって最小化されました
アクティブシートの特定のセル範囲のボックスのみのチェックを外すにはどうすればよいですか？ 3つのシートにXNUMXつのリスト（毎日/毎週/毎月のタスク）があり、リストごとに[すべてクリア]ボタンを作成したいと思いました。
返信
0
0
Reika
Reika
このコメントは、サイトのモデレーターによって最小化されました
大きな助け！ ありがとう！
返信
0
0
JL
JL
このコメントは、サイトのモデレーターによって最小化されました
OMGありがとう、このウェブサイトは命の恩人です:)
返信
0
0
リンズ
リンズ
このコメントは、サイトのモデレーターによって最小化されました
Merci beaucoupd'avoirpartagélecodepourdécocherdeséléments"CheckBox"、celam'asauvé！ ：o）En effet、en codant un Formulaire de saisie fait dans une feuille、jecherchaisàtrouverun moyendedécocherlescases（enguisederéinitialisationduformulaire）et je ne trouvais pas（àpartaveclaméthode"Select" qui est、comme nous le savons tous、àbannir）、tout simplement car：=>lapropriété".CheckBoxes" n'existepasenpropriétéd'une"Worksheet"！=> l'Objet "CheckBoxes" ne figure pas non plus dans l'explorateur d'objets！C'est lunaire cettehistoire...Alorsmerciénormément.Bienàvous。
返信
0
0
マンディチョウ
マンディチョウ     リンズ
このコメントは、サイトのモデレーターによって最小化されました
ボンジュールリンダス、
Je vousenprie。 Heureux quecelaaide。 トートの質問を注ぐ、n'hésitezpasànouscontacter。 Passeunebonnejournée。
本当に
マンディ
返信
レポート
0
0
プフレガー・ジークフリート
プフレガー・ジークフリート
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
Beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht Activiert sein

プライベートサブCheckBox2_Click()
CheckBox2 = True の場合
CheckBox1 = False
終了する場合
End Subの
プライベートサブCheckBox1_Click()
CheckBox1 = True の場合
CheckBox2 = False
終了する場合
End Subの

Danke für eure Hilfe
返信
0
0
スカイヤン
スカイヤン     プフレガー・ジークフリート
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ジークフリート
XNUMX つをチェックして別のものを無効にする場合は、次のコードを適用してください。
注意: ここのチェックボックスでは、ActiveX コントロールのチェックボックスを使用する必要があります。
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

試してみてください。お役に立てば幸いです。
返信
レポート
0
0
ラモン・トーレス
ラモン・トーレス
このコメントは、サイトのモデレーターによって最小化されました
すべてのワークシートのすべてのチェックボックスをどのようにクリアしますか?
返信
0
0
スカイヤン
スカイヤン     ラモン・トーレス
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ラモン

すべてのシートのすべてのチェックボックスをクリアするには、次のコードを適用してください。
すべてのシート (フォーム コントロール) からすべてのチェックボックスをオフにします。
Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub


すべてのシート (ActiveX コントロール) からすべてのチェックボックスをオフにします。
Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub


試してみてください。これがお役に立てば幸いです。
返信
レポート
0
0
ラモン・トーレス
ラモン・トーレス
このコメントは、サイトのモデレーターによって最小化されました
すべてのワークシートのすべてのチェックボックスをクリアするにはどうすればよいですか?
返信
0
0
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲスト
ゲストとして投稿
ログイン
×
この投稿を評価：
リセット
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護