EXCELで日報作成

質問

今日は何の仕事をしたかという表をEXCEL2000で作っています。
シートが2枚がありまして、sheet1の、A列に作業名（20個ほど）、
1行目に日付（1日～31日）があります。
sheet2のA列に日付（例：8月16日）、B列に作業名（例：あ）、
C列に時間（例：3:00)と入れたら、sheet1の該当箇所に時間が
自動的に入るようにしたいのですが、どうやっていいかわからず
途方にくれています。
質問の仕方が悪いかもしれませんが、どうかご協力お願いします！

回答No.1

TTak

要するにSheet2に、作業名・日付・時間を入力した時点で、Sheet1の作業名（行）と日付（列）をクロスで検索して一致したセルに時間が自動入力されるようにしたいと察しました。VBAを使った方法です。
Sheet2のコードモジュールに貼り付けて試行してください。

'---ここから
Dim myRecord As Long
Dim myColmun As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
'C列セルに変更があった場合のイベントマクロ
If Left(Target.Address, 2) = "$C" Then
'変更のあった行数の取得
myRecord = Range(Target.Address).Row
'変更のあった列数の取得
myColmun = Range(Target.Address).Column
'サブルーチン（データ転送）
Call Dat_Input
End If
End Sub

Sub Dat_Input() 'データ転送
Dim I As Integer
Dim J As Integer
'作業名が一致するまで検索
For I = 1 To Range(Sheets("Sheet1").Cells(Rows.Count, 1) _
.End(xlUp).Address).Row
If Cells(myRecord, 2).Value = Sheets("Sheet1") _
.Cells(I, 1).Value Then Exit For
Next I
'日付が一致するまで検索
For J = 1 To Range(Sheets("Sheet1").Cells(1, Columns.Count) _
.End(xlToLeft).Address).Column
If Cells(myRecord, 1).Value = Sheets("Sheet1") _
.Cells(1, J).Value Then Exit For
Next J
'一致するセルに書き込む
Sheets("Sheet1").Cells(I, J).Value = Cells(myRecord, myColmun)
End Sub
'---ここまで

お礼

ありがとうございます！
とりあえずできました！！

実はsheet2で、同じ日に同じ作業名が複数入ることもあるんです。
例：2行目に、8/1　あ　1：00
　　3行目に、8/1　あ　2：00
そういう場合、sheet1の8/1の「あ」のところに「3:00」と
表示されるようにしたいんですが、これはどうしたらいいんでしょう？
今のままだと最後に入れた「2:00」だけの表示になってしまいます。
よろしければまた教えてください・・・。