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ベストアンサー
- 回答日時:
こんにちは!
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でできました!!
ありがとうございます。
No.1
- 回答日時:
こんなのはいかがですか?
---------------------------------------------------------------------
Sub Sample()
Dim ワークシート As Object
For Each ワークシート In Sheets
Columns("B:C").EntireColumn.Hidden = True
Next
End Sub
---------------------------------------------------------------------
さっそく、ご教授ありがとうございます。
私の質問がいけなかったのかもしれませんが
ご教授頂いたVBAですとアクティブなシートのみしか
反映されず、今回は他の方をベストアンサーとさせていただきました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excel VBA 複数のシートの行を非表示
その他(ソフトウェア)
-
指定したシート名以外を非表示にするには?VBA
Excel(エクセル)
-
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
-
4
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
5
Excel VBAで、複数のシートのセルの列幅を一度に変更する方法は??
Excel(エクセル)
-
6
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
7
複数のシートの同じセルに入力するvbaを教えてください
Excel(エクセル)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
エクセルで特定の列が0表示の場合、その行を非表示にしたい
Excel(エクセル)
-
11
マクロを複数シートに実行するには?
Excel(エクセル)
-
12
エクセルの保護で、列の表示や非表示が加納にするには
Excel(エクセル)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
15
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
18
EXCEL VBA 指定範囲内で特定の列に空白セルを含む行を非表示
Excel(エクセル)
-
19
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
20
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel VBA ピボットテーブルに...
-
SUMPRODUCTにて別シートのデー...
-
エクセルのブック分割マクロを...
-
エクセルの列の限界は255列以上...
-
ExcelのVlookup関数の制限について
-
Excelでの並べ替えを全シートま...
-
エクセルで、チェックボックス...
-
エクセル機能 オートフィルター
-
列幅を変えたエクセルのシート...
-
Excel 2段組み
-
別シートに成約をボタン1つで転...
-
エクセル マクロ 標準モジュー...
-
VBA 複数の列を高速で削除する...
-
エクセルVBAでエラーがでます。
-
Excelに自動で行の増減をしたい...
-
エクセルVBAで、ある文字を含ん...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
VBAで繰り返しコピーしながら下...
-
【条件付き書式】countifsで複...
-
エクセル マクロ 標準モジュー...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
エクセルで、チェックボックス...
-
エクセルマクロを教えてほしい...
-
SUMPRODUCTにて別シートのデー...
-
Excel VBA ピボットテーブルに...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
excel 複数のシートの同じ場所...
-
Excelに自動で行の増減をしたい...
-
スプレッドシートでindexとIMPO...
-
エクセルで横並びの複数データ...
-
エクセル複数シートのデータを...
おすすめ情報