
いつも楽しく拝見しております。
すいません、ネットで頑張って調べたのですが、どうしても
ウマくいかないので、ご教授下さい。
エクセルにて、シート1にさまざまな情報が記載されています。
A1を検索ボックスとし、ここに入れた言葉を検索し、対象となった行のみをシート2にコピーしたいと考えています。
※書式もそのままコピーしたいです。
これをマクロにて作成し、使用者にはA1に検索内容を入れてもらった後、マクロが仕込んであるボタンをクリックすれば結果が出てくる・・・と言う形を作りたいです。
検索のみ、コピーのみであれば、それぞれ調べると乗っていたりするのですが、両方をしようとした時、どのような式が必要かがわかりません。
ちなみに、検索は以下のような記述を見つけました。
On Error Resume Next
a = InputBox("検索したい文字を入力してください。")
Cells.Find(what:=a, after:=ActiveCell, LookIn:=xlFormulas, lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
End Sub
どのような記述を行えば出来るのでしょうか。
また、参考文献が掲載されているURLでも結構です。
どうかご教授下さい。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
>A1を検索ボックスとし、ここに入れた言葉を検索し、
と
>a = InputBox("検索したい文字を入力してください。")
がかみ合いませんが。
Findメソッドでのデータ検索
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …
この事ではないかと。
データの範囲及びシート2の貼付ける位置が不明ですが。
InputBoxで値を入力し、シート1の全セルを検索範囲とし、シート2の1行目に貼付けるとするなら、
Sub try()
Dim str As Variant
Dim r As Range
str = InputBox("検索したい文字を入力してください。")
If str = "" Then Exit Sub
Set r = Worksheets("Sheet1").Cells.Find(What:=str, LookIn:=xlValues, _
LookAt:=xlWhole)
If r Is Nothing Then Exit Sub
r.EntireRow.Copy Worksheets("Sheet2").Rows(1)
Set r = Nothing
End Sub
こんなとか?
早速のご回答ありがとうございました。
早速試してみました。
まさにこんな感じのことがしたかったです!!
一点教えて頂きたいのですが、これは検索結果が複数あった場合、
コピーが出来ないのでしょうか。
出来れば、検索した内容が含まれている行ごと、なおかつ複数ある
場合は全てを貼り付けたいのですが、可能でしょうか。
ご教授頂けますと幸いです。
ご回答ありがとうございました。
No.2
- 回答日時:
#1です。
>一点教えて頂きたいのですが、これは検索結果が複数あった場合、
>コピーが出来ないのでしょうか。
>出来れば、検索した内容が含まれている行ごと、なおかつ複数ある
>場合は全てを貼り付けたいのですが、可能でしょうか。
Sub try_next()
Dim str As Variant
Dim r As Range
Dim r1 As Range, r2 As Range
str = InputBox("検索したい文字を入力してください。")
If str = "" Then Exit Sub
Set r = Worksheets("Sheet1").Cells.Find(What:=str, LookIn:=xlValues, _
LookAt:=xlWhole)
If r Is Nothing Then Exit Sub
Set r1 = r
Set r2 = Worksheets("Sheet2").Range("A1")
Do
r.EntireRow.Copy r2.EntireRow
Set r = Worksheets("Sheet1").Cells.FindNext(r)
Set r2 = r2.Offset(1)
Loop Until r.Address = r1.Address
Set r = Nothing
Set r1 = Nothing
Set r2 = Nothing
End Sub
こんな感じの事でしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2ちゃんねるの検索
-
YAHOOの検索結果の順番は?
-
エクスプローラでファイル検索を行うとき...
-
キティちゃんのカーソルを探し...
-
検索する時の文字を打つ空欄の...
-
スマホの検索ツールが消えてし...
-
検索エンジンがおかしい
-
検索すると文字が履歴に残って...
-
windows11のエクスプローラーで...
-
viで連続で検索したい時
-
pdfの中を検索したい
-
Windows7 フォルダー内検索につ...
-
エアロスミスのサイトフォーソ...
-
OUTLOOKでOR検索するには
-
エクセルで検索結果を抽出し、...
-
[Ctrl]+FをVBAで表現
-
InputBoxの値で検索して転記す...
-
ユーチューブで動画の検索がで...
-
Excelで、テキストボックスに書...
-
PCの Google Chrome が頻繁に「...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで、テキストボックスに書...
-
windows11のエクスプローラーで...
-
エクセルの検索機能でコピーペ...
-
[Ctrl]+FをVBAで表現
-
Bingの「話題の検索ワード」を...
-
Word、特定の文字を網掛けにす...
-
エクセルで検索結果を抽出し、...
-
viで連続で検索したい時
-
検索キーワードが二重に表示さ...
-
「大舎制」ってなんて読むんで...
-
DROPBOXで、ファイルを検索する...
-
キティちゃんのカーソルを探し...
-
アポストロフィを含むと、検索...
-
iPhoneの電話帳で登録している...
-
エクセルのマクロ検索(ctr+Fと...
-
フォルダ内の検索欄に文字等が...
-
【WordXP】網掛け文字の検索
-
エクセルで~ (チルダー)が検...
-
pdfの中を検索したい
-
adobe reader8で検索結果で次の...
おすすめ情報