hel********

2022/6/26 8:15

11回答

VBA初心者です。 検索結果をリストボックスに表示させるマクロを勉強中です。 B列C列が各テキストボックスの検索対象となっていますが、この列をCとDに変えるにはどこを変更したら良いですか？

VBA初心者です。 検索結果をリストボックスに表示させるマクロを勉強中です。 B列C列が各テキストボックスの検索対象となっていますが、この列をCとDに変えるにはどこを変更したら良いですか？ また表示情報を6桁から8桁に変えるにはどこを変更するのでしょうか？ https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11236424096?fr=and_other こちらの知恵袋の回答にあったマクロを参考にさせていただいているのですが、まだ初心者のためわからない点が多くあります。 いつか自分でもマクロを作れるようになりたいのでコピペで使用するのではなく、理解したいと思っています。 お力添えいただければ幸いです。 よろしくおねがいします。

Excel | Visual Basic・81閲覧

ベストアンサー

0
ggrks

カテゴリマスター

2022/6/26 9:13

テーブルの範囲がA:Hの8「列」 IDがA列にある 検索対象はC列とD列 の場合 Const ID_COL As String = "A" lst.ColumnCount = 8 lst.ColumnWidths = "20;60;120;30;60;60;60;60" tbl = ws.Range(ws.Cells(2, ID_COL), ws.Cells(getBottomRow, "H")) ReDim arr(7, 0) If tbl(i, 3) Like "*" & key1 & "*" And tbl(i, 4) Like "*" & key2 & "*" Then arr(0, r) = tbl(i, 1) arr(1, r) = tbl(i, 2) arr(2, r) = tbl(i, 3) arr(3, r) = tbl(i, 4) arr(4, r) = tbl(i, 5) arr(5, r) = tbl(i, 6) arr(6, r) = tbl(i, 7) arr(7, r) = tbl(i, 8) ReDim Preserve arr(7, r)