
大変お世話になっております。
以下の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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
6
VBAのコードがエラーになってしまいます。(エクセル)
Excel(エクセル)
-
7
エクセルのオートフィルタで最初の数行を残してフィルタをしたい
Excel(エクセル)
-
8
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
9
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
10
どこにもフォーカスを当てたくない
Access(アクセス)
-
11
エクセル マクロ 範囲指定で、データの最終行・最終列を取得したい
Excel(エクセル)
-
12
エクセルのVBA 特定のセルでエンターキーでマクロ実行
Excel(エクセル)
-
13
ExcelVBA ウィンドウ枠の固定で何故か必ず8行固定されてしまう
Visual Basic(VBA)
-
14
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
15
Excel VBAにてソートが上手くいかない
その他(Microsoft Office)
-
16
エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう
Excel(エクセル)
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
18
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
【ExcelVBA】全シートのセルの...
-
Excelマクロのエラーを解決した...
-
同じ作業を複数のシートに実行...
-
VBA 検索して一致したセル...
-
シートが保護されている状態で...
-
VBAで指定シート以外の選択
-
実行時エラー1004「Select メソ...
-
excelのマクロで該当処理できな...
-
別のシートから値を取得するとき
-
【Excel VBA】Worksheets().Act...
-
Excel チェックボックスにチェ...
-
XL:BeforeDoubleClickが動かない
-
【VBA】シート名に特定文字が入...
-
ExcelのVBAのマクロで他のシー...
-
IFステートの中にWithステート...
-
シート名でファイル検索する
-
ユーザーフォームに入力したデ...
-
ExcelのVBAを使い、複数シート...
-
エクセルの絶対参照の一括操作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
エクセルVBA Ifでシート名が合...
-
実行時エラー1004「Select メソ...
-
VBA 存在しないシートを選...
-
エクセルで通し番号を入れてチ...
-
VBA 検索して一致したセル...
-
XL:BeforeDoubleClickが動かない
-
VBA 指定した回数分、別シート...
-
VBAマクロでシートコピーした新...
-
シートが保護されている状態で...
-
ブック名、シート名を他のモジ...
-
【VBA】全ての複数シートから指...
-
別のシートから値を取得するとき
-
ExcelのVBAのマクロで他のシー...
-
Excel チェックボックスにチェ...
おすすめ情報