Q&A
連想配列を使うというのは必須なんでしょうか。
「指定した列で絞り込み」ということなら、
エクセルのフィルター機能、あるいは最近のバージョンなら、FILTER関数を使えば、シンプルかつ高速に処理できると思いますが、それではだめですか。
実現したいこと
VBAの連想配列をリストボックスに表示していますが、
これをユーザーフォーム上のテキストボックスに入力した値で指定した列で絞り込めるようにしたいと考えています。
発生している問題・分からないこと
連想配列で扱うデータが大量のためどのようにすればいいかいろいろ調べたのですがわからずに困っています。
該当のソースコード
VBA
1 Application.ScreenUpdating = False 2 Application.Cursor = xlWait 3 Application.EnableEvents = False 4 Application.DisplayAlerts = False 5 Application.Calculation = xlCalculationManual 6 Dim ary_d 7 Dim dic_d As Object 8 Dim t_row_d As Long 9 Dim id As Long 10 Dim ary_list 11 Dim sh1 As Worksheet 12 Dim R1 As Long 13Set sh1 = Worksheets(":::::") 14 R1 = sh1.Cells(sh1.Rows.Count, "A").End(xlUp).Row 15 16 ary_d = sh1.Range(sh1.Cells(1, 1), sh1.Cells(R1, 18)) 17Set dic_d = CreateObject("Scripting.Dictionary") 18 For t_row_d = 1 To UBound(ary_d, 1) 19 If dic_d.Exists(ary_d(t_row_d, 18)) = False Then 20 dic_d.Add ary_d(t_row_d, 18), t_row_d 21 End If 22 Next t_row_d 23 t_row_d = 0 24 ReDim ary_list(0 To dic_d.Count - 1, 0 To 18) 25 26 Dim ary_item 27 ary_item = dic_d.items 28 For id = 0 To dic_d.Count - 1 29 t_row_d = ary_item(id) 30 ary_list(id, 0) = ary_d(t_row_d, 1) 31 ary_list(id, 1) = ary_d(t_row_d, 2) 32 ary_list(id, 2) = ary_d(t_row_d, 3) 33 ary_list(id, 3) = ary_d(t_row_d, 4) 34 ary_list(id, 4) = ary_d(t_row_d, 6) 35 ary_list(id, 5) = ary_d(t_row_d, 7) 36 ary_list(id, 6) = ary_d(t_row_d, 8) 37 ary_list(id, 7) = ary_d(t_row_d, 9) 38 ary_list(id, 8) = ary_d(t_row_d, 11) 39 ary_list(id, 9) = ary_d(t_row_d, 12) 40 ary_list(id, 10) = ary_d(t_row_d, 18) 41 Next id 42 With ListBox1 43 .ColumnCount = 11 44 .ColumnWidths = "60;30;40;70;40;120;120;40;70;70;30" 45 .List = ary_list 46 End With 47 Set dic_d = Nothing 48 Application.StatusBar = False 49 Application.Calculation = xlCalculationAutomatic 50 Application.DisplayAlerts = True 51 Application.EnableEvents = True 52 Application.Cursor = xlDefault 53 Application.ScreenUpdating = True
試したこと・調べたこと
- teratailやGoogle等で検索した
- ソースコードを自分なりに変更した
- 知人に聞いた
- その他
上記の詳細・結果
連想配列で扱うデータが大量のためどのようにすればいいかいろいろ調べたのですがわからずに困っています。
補足
特になし
前回の質問
https://teratail.com/questions/upf4yzf6jgvr31
の続きだと思いますが、そのときもコメントで指摘されてましたが、10万行ものデータをリストボックスに表示するというのはUIとしてどうなんでしょう。
今回のようにフィルタリングしたいというときにもリストボックスにはそのような機能はないので長いコードを書く必要があります。
シート上にデータをおけば、フィルタリングは数行のコードで可能です。
今後、並べ替えとかジャンプ機能とか追加したいときでも数行のコードで可能です。
> 連想配列で扱うデータが大量のためどのようにすればいいかいろいろ調べたのですがわからずに困っています。
「連想配列で扱うデータが大量のため」→「わからずに困っています」とは何故でしょうか？データ量によってロジックは変わらないかと思いますが。ご自身の実装では遅くて困っている、という状況でしょうか？それとも他に何か課題があるのでしょうか？
表示をする際に特定の列で条件抽出したあとに該当する行を表示をしたいと考えました。
色々調べてみましたが力及ばず実現できていないだけです。
違う方法も含めて検討してみます。
ありがとうございました。
回答1件
0
ベストアンサー
これをユーザーフォーム上のテキストボックスに入力した値で指定した列で絞り込めるようにしたいと考えています。
現状のコードにその仕様を追加したいということだと解釈して回答します。
連想配列にキーを追加する部分で、特定の列がテキストボックスの値と一致するときに追加するようにすればいいだけです。
特定の列をA列、テキストボックス名をTextbox1と仮定してます。
vba
1'前略 2 3 For t_row_d = 1 To UBound(ary_d, 1) 4 If ary_d(t_row_d, 1) = Me.Textbox1.Value Then '挿入 5 If dic_d.Exists(ary_d(t_row_d, 18)) = False Then 6 dic_d.Add ary_d(t_row_d, 18), t_row_d 7 End If 8 End if '挿入 9 Next t_row_d 10 11 '後略
投稿2025/02/27 22:48
総合スコア34377
ありがとうございます。
試してみたのですが、
ReDim ary_list(0 To dic_d.Count - 1, 0 To 18)
の箇所でデバックが発生しました。
どのようなエラーメッセージが出ていますか。
ありがとうございます。
インデックスが有効の範囲ではないと表示がされます。
おそらく dic_d.Count が0 (連想配列が空)なのでしょう。
条件に一致するデータがないということだと思われます。
一致するデータが存在するか確認してみてください。
そのエラーがでる行のまえに一致するデータが存在しない場合のコードを追加してください。
If dic_d.Count = 0 Then
Msgbox "該当データはありません。"
Application.ScreenUpdating = True
Application.Cursor = True
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAuto
Exit Sub
End If
ReDim ary_list(0 To dic_d.Count - 1, 0 To 18)
ありがとうございます！解決しました。
あなたの回答
tips
プレビュー
