Excel ： 基本的な検索方法

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