|
テキストボックス(adr)に入力した単語の一部をワークシート(一覧)から検索して該当するセルを全て順番に一つずつSELECTしていくというマクロを組んだつもりが最初の一つをSELECTするだけで終わってしまいます。
Private Sub ken_Click()
Dim adrs As Variant
Dim addr As Variant
Dim theadd As Variant
adrs = adr.Value
Worksheets("一覧").Select
With Worksheets("一覧").Range("a1:c35000")
Set addr = .Find(adrs)
If Not addr Is Nothing Then
theadd = addr.address
Do
addr.Select
MsgBox "見つかりました"
Set addr = .FindNext(addr)
Loop While addr.Value = adrs And addr.address <> theadd
Else
MsgBox "該当なし"
End If
End With
End Sub
なぜでしょうか?よろしくご指導をお願いいたします。
|
|