こんにちわ、質問させていただきます。
マクロでオートフィルタを使いたいのですが、
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="東京"
VisibleDropDown:=False
このfield:=1という列番号指定を文字列で検索したいと思っています。
例えばどこかの行に「地域」という列があった場合”地域”の列にフィルタをかけて東京を検索したいといった場合です。
↓
地域 市外局番 郵便番号
東京 03 100
このフィールドを文字列指定することは不可能なのでしょうか?
No.2
- 回答日時:
>field:=1
これはフィルタを設置した範囲の相対位置を示す番号です。
No.1さんのように別手段で"地域"の列位置を探して、
その番号を割り当てるしかありません。
今回のケースではフィルタがA列から始まっているようなので、
相対番号=カラム番号
ですが、本来はフィルタの範囲の相対位置の番号なので注意が必要です。
No.1ベストアンサー
- 回答日時:
Sub test()
ActiveSheet.Rows("1:1").Find(What:="地域", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
x = ActiveCell.Column
Worksheets("Sheet1").Range("A1").AutoFilter _
Field:=x, _
Criteria1:="東京"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) 【VBA】A列にある連続したデータの1番下に文字列を入力したい 1 2023/01/28 04:40
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) Excelのtextbox 1 2022/04/15 15:26
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Excel(エクセル) LEFT関数で文字数を指定しないで取りだす方法 7 2023/06/30 09:49
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
-
4
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
7
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
8
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
9
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
10
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
11
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
12
DATE型変数を初期化する方法
Visual Basic(VBA)
-
13
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
14
Excelで可視セルの行番号取得
Visual Basic(VBA)
-
15
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
16
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
17
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
マクロについて教えてください。 ファイル名を変更すると、デバックエラー
Word(ワード)
-
20
エクセル マクロ名にブック名が付いた場合の修正方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
文字列の結合を空白行まで実行
-
vba 2つの条件が一致したら...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
B列の最終行までA列をオート...
-
エクセル 2つの表の並べ替え
-
DataGridViewに空白がある場合...
-
Cellsのかっこの中はどっちが行...
-
VBAで、離れた複数の列に対して...
-
VBAのFind関数で結合セルを検索...
-
マクロ 最終列をコピーして最終...
-
期限を超えた日付に警告のメッ...
-
vbaでシートより100より大きい...
-
VBA初心者です 検索した数字の...
-
Changeイベントでの複数セルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
VBA 何かしら文字が入っていたら
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報