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

補足

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

その他の回答(1件)

1

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人がナイス!しています