ID非公開

2022/5/22 11:10

22回答

エクセルVBAにて文字を検索するコードを作っています。 Dim myRange As Range Dim myObj As Range

エクセルVBAにて文字を検索するコードを作っています。 Dim myRange As Range Dim myObj As Range Dim keyWord As String Set myRange = Sheets("DB").Range("A1:A1048576") keyWord = TextBox1 Set myObj = myRange.Find(keyWord, LookAt:=xlPart) If myObj Is Nothing Then MsgBox "'" & keyWord & "'はありませんでした" Exit Sub End If Dim msg As String Dim myCell As Range Set myCell = myObj Do msg = msg & "'" & keyWord & "'は" & myCell.Row & "行目にあります" & vbCrLf Set myCell = myRange.FindPrevious(myCell) Loop While myCell.Row <> myObj.Row MsgBox myCell Dim moji As String honmei = Sheets("DB").Range("A" & myCell.Row) ListBox1.AddItem moji このコードをリストボックスに複数の検索結果を一気に入れられるようにしたいです。説明が下手ですみません。

補足

honmei = Sheets("DB").Range("A" & myCell.Row) は正しくは moji = Sheets("DB").Range("A" & myCell.Row) です。すみません。

Visual Basic | プログラミング・126閲覧・xmlns="http://www.w3.org/2000/svg">25

1人が共感しています

ベストアンサー

0
kky********

2022/5/23 8:20

honmei という変数を使っていないのと Set myCell = myRange.FindPrevious(myCell) ここは何故 FindPrevious なのかわかりませんでした。 メッセージは出す必要ないと思うので出していません。 Dim myRange As Range Dim keyWord As String Dim myCell As Range Dim fadd As String Dim tbl() As Variant Dim i As Long Set myRange = Sheets("DB").Range("A1:A1048576") keyWord = TextBox1.Value Set myCell = myRange.Find(keyWord, LookAt:=xlPart) If myCell Is Nothing Then MsgBox "'" & keyWord & "'はありませんでした" Exit Sub End If fadd = myCell.Address i = -1 Do i = i + 1 ReDim Preserve tbl(i) tbl(i) = myCell.Value Set myCell = myRange.FindNext(myCell) If myCell Is Nothing Then Exit Do Loop Until myCell.Address = fadd ListBox1.List = WorksheetFunction.Transpose(tbl)

その他の回答（1件）

1
ささいさいさい

カテゴリマスター

2022/5/22 20:16

Loop While myCell.Row <> myObj.Row MsgBox myCell Dim moji As String honmei = Sheets("DB").Range("A" & myCell.Row) ListBox1.AddItem moji ループの終わりがどこだかわかりませんが、 MsgBox myCell をやめて、 途中でメッセージボックスを出すのやめて、 ListBox1.AddItem moji リストボックスにつめていけばいいんじゃないですかね。 メッセージボックスはループの最後か処理の最後にだせばいいんじゃないかと。 でメッセージボックスに表示する文言は、文字列変数にどんどん追加していけばいいかなと dim addMsg as string Loop ~ addMsg = addMsg & vblf & myCell ループおわり MsgBox addMsg

1人がナイス！しています