VBAでデータ検索

Tweet

ある列の中から検索を行う関数。

エラー処理をいれないと、Fildで見つからなかった場合に落ちてしまうので注意。セルが見つかれば、RowとColumnやValueを取得することができる。

Private Function GetTargetRow(Key)

   On Error GoTo エラー処理       'A列を検索する       GetTargetRow = ThisWorkbook.Sheets("シート1").Columns("A:A").Find(What:=Key).Row   On Error GoTo 0   Exit Function

エラー処理:   MsgBox "Keyを確認してください。Keyに対応するメッセージがありません。"   On Error GoTo 0

End Function

Tweet