【Excelマクロ】今日の日付で検索⇒データの取得

【Excelマクロ】今日の日付で検索⇒データの取得

初めての質問です。
失礼や不手際がありましたら申し訳ございません。
何卒御協力をお願い致します。

●Excelにて以下のような作業を行う予定です。
【現状】
・Sheet1には当月1月分の日付、数値が入った表があります。
　日付 11月1日 11月2日 ・・・ 11月30日
　数値1 100 101　 ・・・ 200
　数値2 200 201　 ・・・ 300

※日付セルの書式設定は「日付　3月14日」形式です。
※数値1,2の関係や日付毎の数値の変化に規則性はありません。　

【やりたいこと】
・sheet2の特定のセル（C4とC14）に当日の数値1、数値2を設定したい。
・sheet2にボタンを設定し、毎日特定のセル（C4とC14）の値を更新したい。
※ボタンを設置し、マクロを設定する方法については理解しています。

【バージョン】
windowsXP
Excel2003

Excelマクロについてはまったくの素人で
解決方法をネットで検索してみましたが、
結局解決出来ませんでした・・・。
どなたかご教授頂ければ幸いです。
よろしくお願い致します。

No.1 回答者： redfox63 回答日時： 2008/11/03 17:22

標準モジュールに

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などの自動実行マクロでこれを呼び出せば良いでしょう
フォームコントロールのボタンにマクロを割り当てたり、コントロールツールボックスのボタンから呼ぶようにしてみましょう

この回答へのお礼

redfox63様

すんなり出来ました・・・。
あんなに調べて出来なかったのに・・・。
素晴らしいです！

redfox63様のおかげで今まで敬遠していた
Excelマクロに興味が持てそうです。

本当にありがとうございました！！

お礼日時：2008/11/03 18:56