お世話になります。
行数が変動する製品一覧に対して、フィルタの詳細設定で絞込をしたいと考えております。
製品一覧は、EXCELシートを開く際外部のDBから読み込んでいます。
ありえない行数を記述する方法でなんとかいきましたが、もっときちんとした方法があるのではないかと思い質問させていただきます。
案1: 駄目
可変範囲の名前を定義してやって駄目(フィルタが働かない)
名前: △製品一覧
=OFFSET(製品一覧!$B$5,0,0,COUNTA(製品一覧!$B:$B),COUNTA(製品一覧!$5:$5))
Range("△製品一覧").Resize(RCnt, CCnt).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("$D$1:$E$3"), Unique:=False
案2: 駄目
VBA内で行数をカウントしてRangeをResizeしてみましたが駄目(フィルタが働かない)
RCnt = WorksheetFunction.CountA(Sheets("製品一覧").Rows(5)) '
CCnt = WorksheetFunction.CountA(Sheets("製品一覧").Columns(2)) '
Range("$B$5").Resize(RCnt, CCnt).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("$D$1:$E$3"), Unique:=False
案3: OK
これは無いだろうという行数を固定で記述してOK
Range("$B$5:$P$99999").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("$D$1:$E$2"), Unique:=False
No.1ベストアンサー
- 回答日時:
VBAで、データの入っている最終行の取得方法です。
Range(”B" & Rows.Count).End(Xlup).Row
という方法があります。B列のシートの一番下から
上へ移動して、空白でなくなった行番号です。
Range("$B$5:$P$"& Range(”B" & Rows.Count).End(Xlup).Row).AdvancedFilter Action:=・・・
とかでは如何でしょうか。
ありがとうございました。
教えていただいた通りやってみましたが、新たな不具合があります。
一つの項目でフィルタした状態で、別の項目でもフィルタをして
フィルタを一つづつ解除しても、全体が表示されない。
一つ目のフィルタで絞られた以降の列が表示されないという状況です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。 13 2023/02/26 09:31
- Excel(エクセル) エクセルでフィルタ後の列の重複を回避したい 6 2022/10/13 12:50
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
VBA 別ブックから条件に合うも...
-
Visualbasicの現状について教え...
-
Excel VBA 選択範囲の罫線色の...
-
VBAでセルの書式を変えずに文字...
-
【ExcelVBA】dictionaryの重複...
-
【ExcelVBA】5万行以上のデー...
-
ExcelVBAマクロで実行した時の疑問
-
エクセルvbaの対象セルに色をつ...
-
vbaにてseleniumを使用したedge...
-
Excel 範囲指定スクショについ...
-
現在のブックを閉じないで、マ...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAのブックを開く方法...
-
【VBA】 結合セルに複数画像と...
-
[Excel VBA]特定の条件で文字を...
-
エクセルのマクロについて教え...
-
マクロの記録を使用したマクロ...
-
【ExcelVBA】値を変更しながら...
-
Excel VBA 定義されたプロージ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ExcelVBA】5万行以上のデー...
-
【ExcelVBA】dictionaryの重複...
-
VBAでセルの書式を変えずに文字...
-
[Excel VBA]特定の条件で文字を...
-
【VBA】 結合セルに複数画像と...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAのブックを開く方法...
-
WindowsのOutlook を VBA から...
-
エクセルでCDOを使ったメール送...
-
エクセルvbaの対象セルに色をつ...
-
【ExcelVBA】インデックスが有...
-
Excelのマクロについて教えてく...
-
エクセルVBAで特定のセルの値を...
-
エクセルのVBAコードについて教...
-
【VBA】値を変更しながら連続で...
-
Outlookの「受信日時」「件名」...
-
VBA 2次元配列の出力
-
Excel 範囲指定スクショについ...
-
VBA 別ブックから条件に合うも...
-
Web画面の文字をVB6で取得したい
おすすめ情報