|
findメソッドでA列を検索し、見つかればI列に日付を入力するための
ユーザーフォームを作っています。
検索の条件に当てはまるセルが見つからなかった場合に
メッセージボックスで「ありません」と表示をしたい場合は、
下記のコードのどの部分に書いたらいいか教えてください。
With ActiveWorkbook.ActiveSheet.Columns("A:A")
i = TextBox1.Text
If i <> "" Then
Set r1 = .Find(what:=i, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not r1 Is Nothing Then
ra = r1.Address
Do
r1.Offset(0, 8).Value = henkyaku
Set r1 = .FindNext(r1)
Loop While Not r1 Is Nothing And r1.Address <> ra
End If
End If
End With
End Sub
どうぞよろしくお願いします。
|
|