VBA学習ツール無料配布！#24 テーマ:vbaでfindメソッドを使って検索しよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim searchVal As String
    Dim findCell As Range
    Dim dataRng As Range
    ' シート「読み込み＆書き込みシート」を設定
    Set ws = ThisWorkbook.Worksheets("読み込み＆書き込みシート")
    ' 「指定データ」を読み込み
    searchVal = ws.Cells(6, 4).Value
    ' 「データテーブル」のデータ範囲を設定
    Set dataRng = ws.ListObjects("データテーブル").DataBodyRange
    ' findメソッドを使用して、指定データの値が書かれたセルを検索
    Set findCell = dataRng.Find(What:=searchVal, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
    ' 検索結果を「指定データのセルアドレス」に入力
    If Not findCell Is Nothing Then
        ws.Cells(9, 4).Value = findCell.Address
    Else
        ws.Cells(9, 4).Value = "ありません"
    End If
    ' シート「読み込み＆書き込みシート」をアクティベート
    ws.Activate
    ' MsgBox関数で「実行完了」と表示
    MsgBox "実行完了"
End Sub