![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
ExcelのVBA初心者です。
簡単な手作業をマクロで保存し、ボタンに登録できる程度の知識量です。
マクロを用いた検索ボタンを作りたく、ご教示お願い致します。
sheet2に検索用セルを用意し、sheet1のリストから対象セルを検索して選択状態にしたいです。
現在はsheet1のA列に6桁のID番号(先頭0を表示するため文字列)を記録してあります。
そこからsheet2のN1セルを検索用セルとして扱いたいです。
sheet2のN1に6桁のID番号を入力しボタンを押すと、sheet1のA列上を検索して、HITした場合は対象セルを選択状態にする。
HITしなければ何もしない、といったものを目標としております。
検索対象が特定の”名前”であれば類似のVBAをネット上で見つけられたのですが、
検索対象が特定のセルの内容を指定するものが見つかりませんでした。
ご回答の程、よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
こんにちは
詳細が不明ですけれど、こんな感じでしょうか?
Sub Q12999537()
Dim sText As String, fc As Range
sText = Worksheets("Sheet2").Range("N1").Text
If sText = "" Then Exit Sub
With Worksheets("Sheet1")
Set fc = .Range("A:A").Find(sText, , xlValues, xlWhole)
If fc Is Nothing Then MsgBox "見つかりません": Exit Sub
.Activate
fc.Select
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件付き書式でやりたいのですが
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
エクセルで指定したセルのどれ...
-
エクセルの一つのセルに複数の...
-
(Excel)数字記入セルの数値の後...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
【Excel】 セルの色での判断は...
-
セルをクリック⇒そのセルに入力...
-
エクセルで住所と建物名を分け...
-
対象セル内(複数)が埋まった...
-
excelの特定のセルの隣のセル指...
-
枠に収まらない文字を非表示に...
-
エクセル 足して割る
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excelで特定の文字列が含まれて...
-
EXCEL VBA セルに既に入...
-
エクセルの書式設定の表示形式...
-
数式を残したまま、別のセルに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
エクセル 足して割る
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
セルをクリック⇒そのセルに入力...
-
対象セル内(複数)が埋まった...
-
エクセルのセルの枠を超えて文...
-
【Excel】 セルの色での判断は...
-
EXCEL VBA セルに既に入...
-
(Excel)数字記入セルの数値の後...
-
エクセル オートフィルタで絞...
-
Excel2003 の『コメント』の編...
-
エクセルの一つのセルに複数の...
-
枠に収まらない文字を非表示に...
-
セルに特定の色が付いていたら...
-
excelの特定のセルの隣のセル指...
-
excelのCOUNTIF関数で、『範囲=...
-
エクセル “13ヶ月”を“1年1ヶ月...
おすすめ情報