|
ハチ様 ひげくま様
すみません・・・
説明不足でした。
まず「本日の出勤」(シート1)があります
●5/4の出勤状況←「5/4(日付)」の部分は、関数=TODAY()で表示します
出欠|休暇理由
-------------------------------
青木|● |
-------------------------------
大森|× |私用
--------------------------------
磐田|● |
----------------------------------
大前|夜勤|
--------------------------------
山田|● |
-------------------------------
上記のように、毎日、出勤状況が入ってきます。
それをシート2「月集計」のシートに毎日の出勤状況を集計したいということですが、
「月集計」のフォーマットは下記の通りです
5/1の行は日付型です。
名前|5/1|5/2|5/3|5/4|・・・・・・
-------------------------------
青木| | | | ● |
-------------------------------
大森| | | |私用|
--------------------------------
磐田| | | |● |
----------------------------------
大前| | | |夜勤|
--------------------------------
山田| | | |● |
-------------------------------
Dim Kyou As String
Dim Myname As String
Kyou=Sheet("本日の出勤").Range("B1").Value
’月集計のシートの名前を上から下へ順番に見ていき、「本日の出勤」の名前と
一致したら、隣列の出勤の値をコピーして、それを月集計の指定の位置へ貼り付けしたいと考えてます。
Sheets("月集計").Select
Range("a4").Select
Do While ActiveCell.Value<>""
MyName=ActiveCell.Value
ActiveCell.offset(1,0).Select
Sheets("本日の出勤").Select
Range("a5").Select
Do While ActiveCell.Value<>""
If ActiveCell=MyName Then
IF ActiveCell.Offset(0,1).Value="●"Then
ActiveCell.Offset(0,1).Select
Selection.Copy
ElseIf ActiveCell.Offset(0,1).Value="夜勤"Then
ActiveCell.Offset(0,1).Select
Eslection.Copy
Else
ActiveCell.Offset(0,2).Select
Selection.Copy
End If
End If
ここまで作成しました。
ここから、「月集計」の指定セルに貼り付けさせるには、どういったコードを書けば
いいのでしょうか?
分かりにくくてすみません
よろしくお願いします
|
|