質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.19%

VBA フィルターによる絞り込みがうまくいきません。

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 209

tttkkk

score 13

VBAで AutoFilter による絞り込みを行いたいのですが、絞り込みが上手くできませんでした。

sheet6にidの一覧があり、sheet7にidの下4桁を入力することで、sheet6のid一覧を AutoFilter で絞り込みしたいのですが、全て隠れてしまいました。
sheet6 および sheet7 の画像を載せさせて頂きましたので、参考にして頂けますと幸いです。

sheet7の入力に関しては下4桁のみを入力するだけにしたく、その下4桁というのを分かりやすくするために、表示をあえて 文字列 にしております。(0003 と入力して、3 ではなく、0003 と表示させたいため。)
そのため、はじめは文字列という表示が絞り込みが上手くいかない原因かと思ったのですが、sheet6, sheet7の表示をどちらとも数値にしても一覧のidすべてが隠されてしまいました。

以下に私のコードを記載いたします。

Sub filterId()

Dim scriningId() As Long, endRow As Long, id As Variant, m As Long
ReDim scriningId(0)
'下4桁のidが打ち込まれた部分を選択。
endRow = Sheet7.Cells(rows.Count, 1).End(xlup).Row
Sheet7.Range(Cells(2, 1), Cells(endRow, 1)).Select
'選択部分をfor eachで配列に格納。
For Each id In Selection
    m = UBound(scriningId) + 1
    ReDim Preserve scriningId(m)
    scriningId(m) = id + 10000000
Next id

Sheet6.Cells(1, 1).AutoFilter 1, scriningId, xlFilterValues
Sheet6.Select

End Sub

以上となります。
問題点を教えて頂けないでしょうか。
宜しくお願い致します。

イメージ説明
イメージ説明

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

0

フィルタ対象(scriningId)は文字列の配列として扱う必要があるようです。
(Sheet6でidの列が数値型であっても同様)

検証環境:
Windows 10
Excel 2016

Sub filterId()
-Dim scriningId() As Long, endRow As Long, id As Variant, m As Long 'Longだとうまくフィルターされない
+Dim scriningId() As String, endRow As Long, id As Variant, m As Long
ReDim scriningId(0)

+'Rangeエラー回避のためSheet7をactivate
+Sheet7.Activate

'下4桁のidが打ち込まれた部分を選択。
endRow = Sheet7.Cells(Rows.Count, 1).End(xlUp).Row

Sheet7.Range(Cells(2, 1), Cells(endRow, 1)).Select
'選択部分をfor eachで配列に格納。
For Each id In Selection
    m = UBound(scriningId) + 1
    ReDim Preserve scriningId(m)
-    scriningId(m) = id + 10000000
+    scriningId(m) = "1000" & CStr(id)

Next id


Sheet6.Cells(2, 1).AutoFilter 1, scriningId, xlFilterValues
Sheet6.Select

End Sub

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2021/01/23 20:12

    フィルタ対象はstring型でないといけないんですね…。
    そんなことは全く知りませんでした。
    教えて頂きありがとうございます。
    また、修正して頂いたコードも +,- の記号と色分けで非常に見やすく、とても勉強になりました。
    ご丁寧にありがとうございます。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.19%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る