VBAで列の再表示設定

横表示の表があり最終列に合計が記載されています
列に記入がない場合は非表示で記入列が増えたら再表示するようなVBAコードできるのでしょうか？

記入列：A列各行には記入済みでC列からｘ列まで未記入なので非表示にしています
なのでＢ列の次はＹ列になっています
B3に日付・B4以下個数を入力するとします、B列に何かしら入力があったらC列が再表示できればと思います

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/04/25 11:02

こんにちは

対象シートのシートモジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t
Set t = Target(1)
If t.Value <> "" And t.Column < Columns.Count Then
t.Offset(, 1).EntireColumn.Hidden = False
End If
End Sub

ではいかがでしょうか。

この回答へのお礼

ありがとうございましたm(__)m
応用してみます！

お礼日時：2023/04/25 11:31