| |
こんにちは。かみちゃん です。
>“見つかるまで検索させる”とは
>“マスク”で検索して“ガーゼマスク”“花粉症対策マスク”“立体マスク”
>と似た商品名がある中で自分の目で確認していき“１”を入力したいです。
以下のような感じでいかがですか？
★の部分を加筆修正してください。
「はい」で「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
ただ、目で確認したいのならば、オートフィルタで絞り込む方法のほうがよろしい
のではないのでしょうか？
|
|
かみちゃん
- 05/1/31(月) 14:19 -
