[[20050915225243]]　『検索されたセルに移動しセレクトされた状態にする』（レリオネ）　ページの最後に飛ぶ

『検索されたセルに移動しセレクトされた状態にする』（レリオネ）

[以前に例えばＡ１セルに入力した内容を検索して、検索されたセルに移動しセレクトされた状態にする構文を下記の通り教えていただきました。

「Sub セル検索()

Dim fcel As Range
With ActiveSheet

    Set fcel = .Cells.Find(What:=.Range("A1").Value, _
    After:=.Range("A1"), _
    LookIn:=xlFormulas, LookAt:= _
    xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=True)
    fcel.Select
End With
End Sub」

そして今度は、インプットボックスに入力した内容をＯＫボタンを押す事で検索されたセルに移動し、セレクトされた状態にする方法は無いかと考えていますが、力尽きました。どうか教えてください。お願いします。

 こんなかんじですか？
 Sub test()
 Dim r As Range, searchCriteria
 searchCriteria = InputBox("検索文字列は?")
 With ActiveSheet
     Set r = .Cells.Find(What:=searchCriteria, After:=.Range("A1"), _
             LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
             SearchDirection:=xlNext, MatchCase:=True)
     If Not r Is Nothing Then
         r.Select
     Else
         MsgBox searchCriteria & vbLf & "は見つかりませんでした。"
     End If
 End With
 End Sub
 (Seiya)

完璧です！本当にありがとうございました。感動しました！

コメント返信：

[ 一覧(最新更新順) ]

[[20050915225243]] 『検索されたセルに移動しセレクトされた状態にする』（レリオネ） ページの最後に飛ぶ

[[20050915225243]]　『検索されたセルに移動しセレクトされた状態にする』（レリオネ）　ページの最後に飛ぶ