- 締切済み
【Excelマクロ】今日の日付で検索⇒データの取得
redfox63の回答
- redfox63
- ベストアンサー率71% (1325/1856)
標準モジュールに public Sub GetData() dim rng as Range, dt as Date dt = Date ' A2は『11月1日』のセル番地 Set rng = Worksheets("Sheet1").Range("A2").CurrentRegion set rng = rng.find( Format(dt, "m月d日"),,xlValues) if not rng is nothing then ' 見つかった場合 With Worksheet("Sheet2") .Range("C4").value = rng.Offset(1,0).Value .Range("C14").value = rng.Offset(2,0).Value end With end if End Sub といった具合で取得可能ですよ Workbook_Openなどの自動実行マクロでこれを呼び出せば良いでしょう フォームコントロールのボタンにマクロを割り当てたり、コントロールツールボックスのボタンから呼ぶようにしてみましょう
関連するQ&A
- エクセルマクロで日付検索について
エクセルのマクロで日付を検索するマクロについて質問です。 ブックAのシート1のA列に A1 2017/3/13 A2 2017/4/1 A3 2017/4/19 A4 2017/5/16 A5 2017/7/17 A6 2017/9/5 というような日付が入っています。 ブックBのシート1のA1セルに2017/6/3と入力してマクロを実行した際に その日付に一番近い一つ前の日付を探し、見つけた日付のB列のセルを ブックBのシート1のA2セルに表示したいです。 今回の例であれば2017/6/3に対してブックAのシート1のA列はA4セルが当てはまり その当てはまったA4セルの1つ横のB4セルの内容をブックBのシート1のA2セルに表示するということです。 よろしくお願いします。
- 締切済み
- Excel(エクセル)
- EXCEL・・検索ボタンをクリックするとマクロが実行されるようにしたい
EXCELでSheet1にデータを入力、Sheet2に検索結果抽出フォームを作成してあります。セルにキーワードを入力しマクロの実行でデータの抽出ができるように出来上がっています。 そこで、セルに入力→ツールバーからマクロの実行という作業を検索ボタンを作成し一発で検索ができるようにしたいのです。 キーワードの入力セルはC:3です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel2007でのマクロの設定について
Excelのマクロについて質問です。 Excel2007でマクロを設定したいのですが以下の作業はマクロ化出来ますか? 1.特定の文字列を含む行の削除 例:(D11に特定の文字列があった場合、11行を全て削除する) 2.特定の文字列を含む行のうち、一部セルの変更 例:(A列に日付、B列に名前、C列に金額がある場合、B列を検索して該当した名前の列の日付のみ既存の日付の前日にする) また、これは同時に複数の検索が出来ますか? ご回答お待ちしております。
- ベストアンサー
- オフィス系ソフト
- EXCEL2010 マクロにつきまして
excel vbaでマクロが作りたいのですが、まったくの初心者で 試行錯誤していますが、なかなか出来ずに困っています。 どなたか、教えていただけませんでしょうか。 ○sheet1 --日付---|A-B-C -------------------- 2013/1/20|1 2 3 2013/1/21|4 5 6 2013/1/22|7 8 9 2013/1/23|5 4 3 2013/1/24|4 5 6 2013/1/25|4 4 4 2013/1/26 ・ ・ ・ ○sheet2 実行ボタンを作成 日付を入力して実行ボタンをクリックすると指定した日付のデータが抽出される 例 2013/1/22 → 実行 A B C ------- 7 8 9 このようなマクロを組みたいのです。 わかりづらくて申し訳ありません。 また、初心者向けのおすすめの参考書や、ホームページがありましたら 教えて頂けると助かります。
- 締切済み
- その他MS Office製品
- エクセル マクロ 日付の検索
エクセル2000にて検索のマクロを作っています。 オブジェクト変数またはwithブロック変数が設定されていません。とエラーがでます。 どなたか助けていただけませんか? ”メニュー”シートのAボタンを押すと”スケジュール”というシートの今日の日付のセルにカーソルが飛ぶようにしたいと思っています。 ”スケジュール”シートのR2セルに=today() 関数が入っています。 A列に日付が入っています。 Sub Macro3() Dim r2 As String Application.ScreenUpdating = False Sheets("スケジュール").Select r2 = Range("R2").Value Selection.Find(What:=r2, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate End Sub
- ベストアンサー
- オフィス系ソフト
- マクロ 検索について
こんにちは。マクロでの質問ですが、 【大学名リスト】というシートで作成したリストから検索してきたものを【検索ボタン】というシートのセルにコピペするマクロをボタンに登録しました。何度押しても検索してくれてしまうのですが、このボタンに登録したのは1回だけ実行して、もう一つのマクロで次を検索してくれるように作りたいのですが… Sub Macro1() ' ' Macro1 Macro ' ' Sheets("A.【大学名リスト】").Select Cells.Find(What:=Sheets("B.【検索ボタン】").Range("C8"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Selection.Copy Sheets("B.【検索ボタン】").Select Range("E8").Select ActiveSheet.Paste End Sub 数値の検索だと1回だけで止まってくれるのですが、数式にすると何回も可能になってしまうのはなぜなのでしょうか。 あと、実行すると【大学名リスト】のシートで作成したリストから、【検索ボタン】のシートのあるセルにキーワードを入力すると、隣のセルに5つの候補を表示させるマクロも教えていただきたいです。
- 締切済み
- オフィス系ソフト
- 今日の日付をマクロ可したい
Excel2007を使用しています。 見積書を請求書を仕事で毎回作成しているのですが今日の日付をマクロ可したいと思います。 A11のセルに日付を入力するとC1のセルに今日の日付が入力されるにはどのようなマクロを作成したら良いのでしょうか。 誠に恐縮ですが、ご指導・ご鞭撻の程よろしくお願いします。早々
- 締切済み
- 財務・会計・経理
- Excel/違うシートの中の同じ日付(数値)を探す
みなさま。 少し困っております・・どうぞよろしくお願い致します。 Excelのシート1に日付の入った日程表があります。 日付の列は、納品があった日のみが記載されており 規則性がありません。 例えば、日付の列の3月15日の行に「○」と入っていた場合 隣のシート(納品管理簿)から3月15日の行を探し、同じ行の納品時間に 数値をいれないとセルが赤くなるように、また数値を入れると 色が消えるように設定したいと考えています。 セルの色を自動的に変えるのはいろいろ調べてみてできそうだったのですが 違うシートから同じ数値を探し出して、その行の別のセルに反映させるのが どうしても複雑でわかりません・・ 詳しい方がいらっしゃいましたらぜひ教えてください。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ 日付を検索し入力
エクセル2003マクロを使用して以下の事を行いたいと思っていますが、どのようなマクロを組んだらよいか分かりません。よろしくお願いします。 シート上部にある以下のデータを A B C D E 1 日付 商品A 商品B 商品C 商品D 2 5/26 5 6 1 3 ←その日のデータ(毎日変わる) 入力ボタンを作成し、それを押すことにより ↓ 6 5/1 7 ・ 8 ・ 9 5/26 5 6 1 3 10 ・ ↑日付が予め入力された表 上記のような、同一シート上の日付欄に入力される表を作りたいのですが、方法が分かりません。 その日のデータは、別シートに入力用フォームを作成し、飛ばしています。何人かの人間が入力するので、マクロで簡単に、行えるようにしたいと思います。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 行コピーして、今日の日付の行に貼り付けるマクロ
こんにちは、エクセルマクロについて、助けて頂きたく質問させていただきました。 添付しました画像のような表があり、 セルA2に「=TODAY()」が入っていて、セルB2から右は別シートのデータを参照しています。 マクロを実行すると、2行目を行コピーし、セルA3以下の日付からセルA2の日付(今日の日付)を探し出して、行貼り付けしてほしいです。 行コピーや値で貼り付けはマクロの記録を使って、詳しくない私でもなんとか作ることはできるのですが、 今日の日付を探し出して、そこに貼り付ける。というマクロは作れませんでした・・・。 お助け下さい、宜しくお願いします! ※補足します セルA2の今日の日付は便宜上入力しているだけです。無い方がマクロを組みやすいのなら、無くせます。
- ベストアンサー
- Visual Basic
お礼
redfox63様 すんなり出来ました・・・。 あんなに調べて出来なかったのに・・・。 素晴らしいです! redfox63様のおかげで今まで敬遠していた Excelマクロに興味が持てそうです。 本当にありがとうございました!!