![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルのシート1枚に700件程の物品の在庫管理をしています。
件数が多いためナンバーで検索を行えるよう、以下のようなマクロを作ってみました。
Sub 検索を行う()
Dim 検索セル As Range
Set 検索セル = Range("A1:A675").Find(120)
If Not 検索セル Is Nothing Then
検索セル.Activate
End If
End Sub
これでA列の「120番」を検索できるのですが、セルに入力した数値を検索するには、どうすればよいのでしょうか??
(例えばセルE1に120と入力して検索)
色々調べてみたのですが、セルの値から検索ができなくて・・・・。
よろしくご教授ください。
No.1ベストアンサー
- 回答日時:
> Set 検索セル = Range("A1:A675").Find(120)
↓
Set 検索セル = Range("A1:A675").Find(Range("E1").Value)
No.2
- 回答日時:
こんなのプログラムの基本の基本。
エクセルのセル番地を記述すればよい(正しくはセルの(番地の)値)
いつも下記2つを対立して考えること。
(A)リテラル指定ーー例120(具体的数字・文字列などで指定)
(B)変数指定ーーーー例a(ただし aに値を実行ステップ時までに入れておくこと)(変数として許される文字列記号で指定)
a=Range("A1").Value
Range("A1:A675").Find(a)
または直接書き込んでRange("A1:A675").Find(Range("A1").Value)
(C)引数などでDefaltが決まっている場合
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件付き書式でやりたいのですが
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
エクセル “13ヶ月”を“1年1ヶ月...
-
excelの特定のセルの隣のセル指...
-
枠に収まらない文字を非表示に...
-
対象セル内(複数)が埋まった...
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
(Excel)数字記入セルの数値の後...
-
セルをクリック⇒そのセルに入力...
-
エクセルの書式設定の表示形式...
-
Excelでのコメント表示位置
-
エクセル オートフィルタで絞...
-
エクセル 足して割る
-
エクセルのセルの枠を超えて文...
-
エクセルで住所と建物名を分け...
-
EXCEL VBA セルに既に入...
-
エクセルの一つのセルに複数の...
-
ハイパーリンクの参照セルのズ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
エクセル 足して割る
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
セルをクリック⇒そのセルに入力...
-
対象セル内(複数)が埋まった...
-
エクセルのセルの枠を超えて文...
-
【Excel】 セルの色での判断は...
-
EXCEL VBA セルに既に入...
-
(Excel)数字記入セルの数値の後...
-
エクセル オートフィルタで絞...
-
Excel2003 の『コメント』の編...
-
エクセルの一つのセルに複数の...
-
枠に収まらない文字を非表示に...
-
セルに特定の色が付いていたら...
-
excelの特定のセルの隣のセル指...
-
excelのCOUNTIF関数で、『範囲=...
-
エクセル “13ヶ月”を“1年1ヶ月...
おすすめ情報