マクロでFindを使い検索する

Excel2013のマクロでFindメソッドを使い検索します。

下の月別生産数から「製品名」を検索します。

下記のFindメソッドを使ったコードを入力します。

Sub MyFind()
    Dim s As String
  
    s = InputBox("検索する製品名を入力してください。")
    Cells.Find(What:=s, LookIn:=xlValues, LookAt:=xlWhole).Activate
End Sub

マクロを実行します。

「検索する製品名を入力してください。」とInputBoxが表示されるので、製品名を入力します。

見つかったセル位置にカーソルが移動します。