Excel VBA質問箱 IV

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

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


51899 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   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

どうぞよろしくお願いします。
0 hits

【29684】findで見つからなければメッセージボック... kono 05/10/11(火) 19:33 質問
【29687】Re:Findで見つからなければメッセージボッ... かみちゃん 05/10/11(火) 19:55 回答
【29709】Re:Findで見つからなければメッセージボッ... kono 05/10/12(水) 10:51 お礼

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