| |
ハチ様 ひげくま様
すみません・・・
説明不足でした。
まず「本日の出勤」（シート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
ここまで作成しました。
ここから、「月集計」の指定セルに貼り付けさせるには、どういったコードを書けば
いいのでしょうか？
分かりにくくてすみません
よろしくお願いします
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
