スポンサーリンク

2014年9月12日金曜日

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

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

下の月別生産数から「製品名」を検索します。
月別生産数から「製品名」を検索
下記のFindメソッドを使ったコードを入力します。

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

Findメソッドを使ったコードを入力します
マクロを実行します。
マクロを実行します
「検索する製品名を入力してください。」とInputBoxが表示されるので、製品名を入力します。
InputBoxが表示されるので、製品名を入力
見つかったセル位置にカーソルが移動します。
見つかったセル位置にカーソルが移動