セルの値からマクロで検索を行うには

エクセルのシート１枚に７００件程の物品の在庫管理をしています。
件数が多いためナンバーで検索を行えるよう、以下のようなマクロを作ってみました。


Sub 検索を行う()
Dim 検索セル As Range
Set 検索セル = Range("A1:A675").Find(120)
If Not 検索セル Is Nothing Then
検索セル.Activate
End If
End Sub


これでＡ列の「１２０番」を検索できるのですが、セルに入力した数値を検索するには、どうすればよいのでしょうか？？
（例えばセルE1に１２０と入力して検索）


色々調べてみたのですが、セルの値から検索ができなくて・・・・。
よろしくご教授ください。

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2008/06/14 15:21

> Set 検索セル = Range("A1:A675").Find(120)

　　　　　　　↓
　Set 検索セル = Range("A1:A675").Find(Range("E1").Value)
　

この回答へのお礼

ありがとうございます。
助かりました。感謝です！

お礼日時：2008/06/15 08:44

No.2 回答者： imogasi 回答日時： 2008/06/14 21:24

こんなのプログラムの基本の基本。

エクセルのセル番地を記述すればよい（正しくはセルの（番地の）値）
いつも下記２つを対立して考えること。
（Ａ）リテラル指定ーー例１２０（具体的数字・文字列などで指定）
（Ｂ）変数指定ーーーー例a（ただし aに値を実行ステップ時までに入れておくこと）（変数として許される文字列記号で指定）
a=Range("A1").Value
Range("A1:A675").Find(a)
または直接書き込んでRange("A1:A675").Find(Range("A1").Value)
（Ｃ）引数などでＤｅｆａｌｔが決まっている場合

この回答へのお礼

ありがとうございます。
ご指摘のように基本が良く解っていません・・・。
もっと勉強します。

お礼日時：2008/06/15 08:47