|
Tomo さん、こんばんわ。
>このコードでは、合致した場合にExitForでループから出ますが、
>最終行まで検索を続け、同じ文字が複数回チェックできるように
>させ、
>尚且つ、最終行まで検索後、同じ文字が無かった場合はMsgBoxにて該当文字が
>無い表示をしたいのですが・・・
たとえば、D6の値と一致するセルがあれば文字列を追加していく方法です。
Sub test1()
Dim R As Range
Dim MyR As Range
Dim msg As String
Set MyR = Range("A7", Range("A65536").End(xlUp))
For Each R In MyR
If R.Value = Range("D6").Value Then
msg = msg & vbCrLf & R.Address(False, False)
End If
Next
If msg = "" Then
MsgBox "該当する文字はありません ", 48
Else
MsgBox "以下のセルが該当しました" & msg$, vbInformation, Range("D6").Value
End If
End Sub
こんな感じです。
|
|