大変お世話になっております。
以下のVBAコードですが、
Sub 先頭行を固定オートフィルター設定()
Rows(2).Select
ActiveWindow.FreezePanes = True
ActiveSheet.Range("A1").AutoFilter '// 設定
End Sub
このコードは、アクティブシートにしか適用されません。
1)選択をした全てのシートに適用をしたいです
2)同BOOK(仮に”BOOK1”とします)の全ての表示しているシートに適用したいです(非表示シートは適用せずに…)
3) 同BOOK(仮に”BOOK1”とします)の全てのシートに適用したいです
(開いているBOOK全てに適用は避けたいです…)
1)から 3)がどのようなコードとなるのかお教え頂けると有難いです。
(1)2)3)の何れかのコードでも差支えございません。)
ご回答を心よりお待ちしております。
どうぞ宜しくお願い申し上げます。
No.1ベストアンサー
- 回答日時:
こんばんは。
例えば、下記の様な感じでしょうか?
Sub 選択されているシート名を取得する()
Dim sh As Worksheet
For Each sh In ActiveWindow.SelectedSheets
MsgBox sh.Name
Next
End Sub
Sub 表示されている全てのシート名を取得する()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If sh.Visible = True Then ’表示されているシートか?
MsgBox sh.Name
End If
Next
End Sub
MsgBox sh.Name の部分を、sh.selectにして、その下に、質問者さんの
コードを入れれば、できるかと思います。
3)は、非表示のシートも、処理したいという事でしょうか?
もしそうなら、表示されている全てのシート名を取得するを少し変更すれば
可能かと思います。
mygoonickname様…!
大変お世話になっております。
お陰様で、2つのコード共、簡単に出来ました…!
本当に助かります…!
ご回答を下さいまして、心より感謝申し上げます…!
また是非宜しくお願い致します!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) エクセルでファイル保存時に複数シートのオートフィルタを全て解除したい 1 2023/05/10 13:23
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
ExcelVBA ウィンドウ枠の固定で何故か必ず8行固定されてしまう
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
エクセルのマクロについて教え...
-
実行時エラー'1004': WorkSheet...
-
Excelマクロのエラーを解決した...
-
Worksheet_Changeの内容を標準...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
別のシートを参照して計算する方法
-
特定の文字を含むシートだけマ...
-
excelのマクロで該当処理できな...
-
エクセル・マクロ シートの非...
-
Excelの各シートを色ごとで分類...
-
テキストボックスに入力されて...
-
VBAで大量のファイルをシート名...
-
エクセル Worksheet_Calculate
-
【ExcelVBA】全シートのセルの...
-
『実行時エラー'1001': 'Range...
-
Excel VBAの書き方
-
エクセルのシート名変更で重複...
-
API関数ImmSetConversionStatus...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報