VBAにおいて。チェックボックスを使用して非表示の列を表示させたり非表示に戻す方法

Question

前提・実現したいこと

VBAにおいて。
シートにチェックボックスを設定し、マークを入れる、外すを行うことで非表示の列を表示、非表示にしたい。

発生している問題・エラーメッセージ

初めまして。
現在VBAを勉強し始めましたが、できない操作があります。
お力を貸していただけたら助かります。

現在、シートにチェックボックスを設定し、マークを入れる、外すを行うことで非表示の列を表示、非表示すること を目標にして作成しています。

チェックをつけると非表示の列を表示させることはできたのですが、チェックを外しても表示されたまま、非表示にはならないという問題が起きています。

何時間と試行錯誤しましたが、進みません。
この場合はどうしたら良いのでしょうか。
どうぞ、よろしくお願いします。

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

こんな感じでどうでしょうか。

【前提】
「Sheet1」シートに「CheckBox1」というオブジェクト名のチェックボックスを配置してあるとします。
表示／非表示を切り替えたい列を「C列〜E列」とします。
以下の動作をするようにしたいとします。

• チェックを入れる→表示
• チェックを外す→非表示

【実装例】
マクロ（VBAスクリプト）は本来標準モジュールに記載するのが正しいのですが、非常に短いので、「Sheet1」というオブジェクトモジュールにそのまま記載してしまいます。

Private Sub CheckBox1_Change()
  With Me
    If .CheckBox1.Value = True Then
      .Columns("C:E").Hidden = False
    Else
      .Columns("C:E").Hidden = True
    End If
  End With
End Sub

解説するまでもありませんが…

• 「CheckBox1_Change」でチェックボックスの状態の変更を検知する
• チェックボックスが「チェックされている」（Value = True）なら対象列のHiddenプロパティをFalseにする
• チェックボックスが「チェックされていない」（Value = False）なら対象列のHiddenプロパティをTrueにする

です。

以上、ご参考になれば幸いです。

Comments

[soft.soft]

迅速にアドバイスを下さりありがとうございます！
私の曖昧な質問を汲み取って下さったことに驚きを隠せません。

丁寧に解説をして下さったため、私でも意味を理解しながら、コードを組み込むことができました。
考え方から躓いていたため、本当に助かりました。ありがとうございます！