基本的な検索方法

シート全体から検索する方法と、列を指定し検索する基本的な方法を試してみます。
文字列の検索にはFindメソッドを使用します。

Excel検索方法のメニューに戻る

スポンサーリンク





実行画面

男性の都道府県別平均寿命の表です。
ここからテキストボックスに入力された文字を検索します。
「全体から検索」ボタンで、Sheet1から検索します。
「列から検索」ボタンで、B列から検索します。

見つからない場合は、「見つかりませんでした。」と表示されます。
見つかった場合は、見つかった位置の行列番号が表示されます。
都道府県別平均寿命表から検索した結果

スポンサーリンク



プログラムソース

Option Explicit

'全体から検索
Private Sub CommandButton1_Click()
    Dim tRange As Range
    Dim s1 As String
    
    s1 = TextBox1.Value
    If s1 = "" Then
        MsgBox "検索名を入力してください。"
        Exit Sub
    End If
        
    Set tRange = Worksheets("Sheet1").Cells.Find(s1)

    If tRange Is Nothing Then
        MsgBox "見つかりませんでした。"
    Else
        MsgBox tRange.Address & " に見つかりました"
    End If
End Sub

'列から検索
Private Sub CommandButton2_Click()
    Dim tRange As Range
    Dim s1 As String
    
    s1 = TextBox1.Value
    If s1 = "" Then
        MsgBox "検索名を入力してください。"
        Exit Sub
    End If
        
    Set tRange = Columns("B").Find(What:=s1)
    
    If tRange Is Nothing Then
        MsgBox "見つかりませんでした。"
    Else
        MsgBox tRange.Address & " に見つかりました"
    End If

End Sub

Excel検索方法のメニューに戻る




■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved