[エクセル2003] 入力された日付に対応するセルの内容を変える方法

マクロ初心者で、ご協力お願いします。

シート名＝入力
　A1=2007/6/9
　A2=数値
　コマンドボタン

シート名＝1月～12月
　C3:AG3　日が表示（入力内容は2007/6/9形式）
　C4:AG4　数値が入る行

入力シート内のボタンをクリックすると、A1で入力されている月のシート内のA1の日の下の行のセルにA2の数値が入る
ということをやりたいのですが、可能でしょうか？
よろしくお願い致します。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2007/06/09 22:36

こんばんは。

日付がちゃんと１日ずつ並んでいるなら、簡単に書けば以下のようなもので動くはずです。
日付を探すとか、正しい日付が入っているかとか、チェックする項目を入れるとすると、もう少し手を加えなくてはなりません。

Private Sub CommandButton1_Click()
　　Dim myDate As Variant
　　Dim myMonth As Variant
　　myDate = Worksheets("入力").Range("A1").Value
　　If IsDate(myDate) Then
　　　　myMonth = Month(myDate)
　　　　myDate = Day(myDate)
　　　　Worksheets(myMonth & "月").Cells(2, myDate + 2).Value = _
　　　　Worksheets("入力").Range("A2").Value
　　　　'Beep ' 音を鳴らせる
　　End If

End Sub

この回答へのお礼

早速のご回答有難う御座いました！

おかげさまで無事解決・理解できました。
有難う御座います。

お礼日時：2007/06/09 23:31