|
こんにちは。かみちゃん です。
>“見つかるまで検索させる”とは
>“マスク”で検索して“ガーゼマスク”“花粉症対策マスク”“立体マスク”
>と似た商品名がある中で自分の目で確認していき“1”を入力したいです。
以下のような感じでいかがですか?
★の部分を加筆修正してください。
「はい」で「1」が入力されます
「キャンセル」で処理を中止します。
Option Explicit
Sub Macro1()
Dim mytarget As String
Dim c As Range
Dim firstAddress As String
Dim ret As Integer '★
mytarget = InputBox("検索文字列を入力してください。")
With Worksheets(1).Range("a1:a500")
Set c = .Find(mytarget, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'--- ★ここから
c.Select
ret = MsgBox("1を入力しますか?", vbYesNoCancel)
Select Case ret
Case vbYes
c.Offset(, 1) = 1
Case vbCancel
Exit Do
End Select
'--- ★ここまで
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
ただ、目で確認したいのならば、オートフィルタで絞り込む方法のほうがよろしい
のではないのでしょうか?
|
|