excelで特定の列だけ表示させたい

質問

添付画像のような表を作成し、
Ｂ列にチェックを入れたら、その項目の列だけが表示されるようにしたいのですが、
どうしたらいいでしょうか。
添付の図の場合だと、Ｄ列とＪ列だけが表示されるようにしたい。
（Ａ、Ｂ、Ｃ列は常に表示されたまま）、Ｅ、Ｆ、Ｇ、Ｉ、Ｊ、Ｋ列を消し、Ｄ、Ｈ列を表示させたい。

回答No.4

eden3616 · ベストアンサー

VBAによる回答です。
(1)シートタブのシート名を右クリックして「コードの表示」でVBEを開く。
(2)最下のVBAコードを張り付ける。
(3)右上の「×」でVBEを閉じる。
(4)D～J列までの列を選択し、列記号を右クリックして「非表示」を選択。
(5)B列に何か入っていればいったん値を削除。

B列に「レ」全角のカタカナの「れ」を入力すると該当列が表示されます。
制約として以下の条件となります。
・A1:A7と、D1：J1の内容は同じでないと機能しません。
・内容が同じであれば、セルの並びが変わっても対応できます。
・項目名が重複する場合は正常に機能しません。

また、
ファイルの保存形式はxlsmまたはxlsで保存してください。
マクロが保存できるファイル形式となります。
また、エクセルのセキュリティ設定によりますが、
ファイルを開いた際にマクロの警告が出る場合は許可しないと動作しません。
http://www.start-macro.com/55/w/s010.html

チェック列をB列から変更する場合や、項目行が1行目から変更される場合などはコードを変更する必要があります。補足願います。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Column <> 2 Then Exit Sub
　　Dim myRng As Range, myTar As Range
　　For Each myTar In Target
　　　　Set myRng = sh(myTar.Offset(0, -1).Value, Range(Cells(1, "D"), Cells(1, Columns.Count)))
　　　　If myRng Is Nothing Then Exit Sub
　　　　If myTar.Value = "レ" Then
　　　　　　'チェックした時
　　　　　　myRng.EntireColumn.Hidden = False
　　　　ElseIf Len(myTar.Value) = 0 Then
　　　　　　'チェック外した時
　　　　　　myRng.EntireColumn.Hidden = True
　　　　End If
　　Next myTar
End Sub
Function sh(shStr As String, shRng As Range) As Range
　　On Error GoTo era
　　　　Set sh = Columns(WorksheetFunction.Match(shStr, shRng, 0) + shRng(1).Column - 1)
　　Exit Function
era:
　　Set sh = Nothing
End Function

お礼

チェック列も項目行も変更することはありません。
示していただいたコードで解決しました。

お礼が遅くなってしまって、申し訳ありませんでした。
ありがとうございます。