【VBA】複数のシートの指定した列を非表示・表示をさせたい

VBA初心者です。

あるBookにsheet1、sheet2、sheet3・・・と複数のシートがあります。
※Bookによってシート数が異なります。
※すべて同じフォームなので列の項目は一緒です。

それぞれのシートのBからC列をエクセルのグループ化のように非表示、表示をさせたいです。

ただ、グループ化では一括で複数シートの特定列を非表示・表示といったことができないことがわかり、いろいろ調べたところVBAでできることがわかったのですが思うようにいきません。。

初心者ながら調べてわかったことは下記なのですが
これを組み合わせてVBA記述をしたのですが、うまくできません。。。

★すべてのシートを選択
Worksheets.Select
★AからCの列を非表示にする
Sub sample()
ActiveSheet.Columns("B:C").Hidden = True
End Sub

アクティブは1つのシートを指し、セレクトは複数選択というようなことはわかったのですが。。
知識不足で行き詰ってしまいました。。。

何卒、ご教授頂ければ幸いです。

No.2 ベストアンサー 回答者： tom04 回答日時： 2017/01/13 16:38

こんにちは！

B・C列を非表示にするのはすべてのSheetでよいのですね？
非表示・再表示のコードの一例です。
標準モジュールにしてください。

Dim k As Long 'この行から//
Sub 非表示()
For k = 1 To Worksheets.Count
Worksheets(k).Columns("B:C").Hidden = True
Next k
End Sub

Sub 再表示()
For k = 1 To Worksheets.Count
Worksheets(k).Columns.Hidden = False
Next k
End Sub 'この行まで//

コードのコメントを拝見すると
＞★AからCの列を非表示にする
となっていますが、B・C列としています。m(_ _)m

この回答へのお礼

tom04さま
昨年は大変お世話になりました。
今年もさっそく、ご教授頂きましてありがとうございます。
無事、ご教授頂いたVBAでできました!!
ありがとうございます。

お礼日時：2017/01/13 16:47

No.1 回答者： GooUserラック 回答日時： 2017/01/13 16:33

こんなのはいかがですか？

---------------------------------------------------------------------
Sub Sample()
Dim ワークシート As Object
For Each ワークシート In Sheets
Columns("B:C").EntireColumn.Hidden = True
Next
End Sub
---------------------------------------------------------------------

この回答へのお礼

さっそく、ご教授ありがとうございます。
私の質問がいけなかったのかもしれませんが
ご教授頂いたVBAですとアクティブなシートのみしか
反映されず、今回は他の方をベストアンサーとさせていただきました。

お礼日時：2017/01/13 16:45