[[20180607165515]]　『メッセージの表示』（はるき）　ページの最後に飛ぶ

『メッセージの表示』（はるき）

 以前このサイトでコードをご教示いただきましたが追加で教えていただきたいことがあります。

 Dim ret As Range, fret As Range
 Set ret = Columns("H:H").Find(TextBox1.Text, lookat:=xlWhole)
 If Not ret Is Nothing Then
 Set fret = ret
 Do
 If Cells(ret.Row, "H").Value = TextBox1.Text And _
 Cells(ret.Row, "F").Value = TextBox2.Text And _
 Cells(ret.Row, "L").Value = TextBox3.Text Then
 ret.Activate
 Exit Sub
 End If
 Set ret = Columns("H:H").FindNext(ret)
 Loop While ret.AddressLocal <> fret.AddressLocal
 End If
 MsgBox "該当する項目はありません。", vbOKOnly, "検索結果"

 End Sub

 上記コードがあります。
 検索内容で条件が一致しない場合はメッセージが表示されます。
 条件が一致した場合は、指定のセルに指定されるのですが、
 条件が一致した場合にも、メッセージを表示させていのですが、どうすればいいかわかりません。
 ご教示いただけたらと思います。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

見つかった場合は Exit Sub しているのでしょうから、その直前に MsgBox を書いてみては？
（???） 2018/06/07(木) 17:22

 ありがとうございました。
 上手くいきました。感謝いたします。
（はるき） 2018/06/07(木) 17:27

コメント返信：

[ 一覧(最新更新順) ]

[[20180607165515]] 『メッセージの表示』（はるき） ページの最後に飛ぶ

[[20180607165515]]　『メッセージの表示』（はるき）　ページの最後に飛ぶ