Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51946 / 76782

←次へ　｜　前へ→


	【29687】Re:Findで見つからなければメッセージボック...

かみちゃん - 05/10/11(火) 19:55 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>検索の条件に当てはまるセルが見つからなかった場合に
>メッセージボックスで「ありません」と表示をしたい場合は、
>下記のコードのどの部分に書いたらいいか教えてください。

Findメソッドのヘルプに「検索の条件にあてはまるセルが見つからなかった場合
は、Nothing を返します。」と書かれていますので、
以下の★部分を記述します。

　　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
　　Else '★
　　　MsgBox "ありません" '★
　　End If

なお、ここの掲示板へ投稿されるときは、インデントを整理していただけると見や
すくて助かります。今回のような質問は特に。

0 hits

▼

【29684】findで見つからなければメッセージボック... kono 05/10/11(火) 19:33