Excel VBA質問箱 IV

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

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


56290 / 76732 ←次へ | 前へ→

【25199】Re:検索結果が無い場合のメッセージ表示について
回答  つん E-MAIL  - 05/5/24(火) 10:13 -

引用なし
パスワード
   ▼ギン さん:
こんにちは^^
>いつもお世話になっております。
>
>  ANS = InputBox("7桁の資産No.を入力して下さい!" _
>   & vbCr & vbCr & "例:ME12345", "資産No.入力")
>   
>  Worksheets("データ").Select
>  Cells.Find(What:=ANS, SearchOrder:=xlByColumns).Activate
>
>この場合データワークシートに検索文字(ANS)が無い場合
>”この資産Noは登録されていません”と言う
>メッセージを表示してマクロを終了させたいのですが
>うまくいきません。
>どなたかお知恵をお貸し下さい。

こういう場合は、オブジェクト変数にいれて

Sub test2()

  Dim r As Range
  
  Set r = Cells.Find(What:=ANS, SearchOrder:=xlByColumns)
  
  If r Is Nothing Then Exit Sub

  Set r = Nothing

End Sub

のようにしたらええと思います^^

0 hits

【25195】検索結果が無い場合のメッセージ表示について ギン 05/5/24(火) 9:15 質問
【25199】Re:検索結果が無い場合のメッセージ表示に... つん 05/5/24(火) 10:13 回答
【25224】Re:検索結果が無い場合のメッセージ表示に... ギン 05/5/24(火) 18:52 お礼

56290 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free