こんにちわ、質問させていただきます。
マクロでオートフィルタを使いたいのですが、
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="東京"
VisibleDropDown:=False
このfield:=1という列番号指定を文字列で検索したいと思っています。
例えばどこかの行に「地域」という列があった場合”地域”の列にフィルタをかけて東京を検索したいといった場合です。
↓
地域 市外局番 郵便番号
東京 03 100
このフィールドを文字列指定することは不可能なのでしょうか?
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
-
4
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
7
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
8
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
9
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
10
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
11
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
12
DATE型変数を初期化する方法
Visual Basic(VBA)
-
13
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
Excelで可視セルの行番号取得
Visual Basic(VBA)
-
16
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
19
マクロについて教えてください。 ファイル名を変更すると、デバックエラー
Word(ワード)
-
20
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
targetをA列のセルに限定するに...
-
エクセルVBAにて =A1=B1とすれ...
-
vba 2つの条件が一致したら...
-
VBAを使って検索したセルをコピ...
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
セルに入力すると隣のセルに日...
-
VBマクロ 色の付いたセルを...
-
VBAのコードを教えてください
-
マクロ 最終列をコピーして最終...
-
Excelで、あるセルの値に応じて...
-
VBAでのリスト不一致抽出について
-
Cellsのかっこの中はどっちが行...
-
【Excel VBA】カンマと改行コー...
-
VBA 値と一致した行の一部の列...
-
JTableの行の幅設定
-
空白セルをとばして転記
-
データグリッドビューの一番最...
-
特定の条件に合致したセルを別...
-
エクセル マクロ 後列から条件...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報