Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26399 / 76738

←次へ　｜　前へ→


	【55670】Re:指定したセルに値を貼り付ける方法

かな - 08/5/15(木) 9:15 -


	引用なし

	パスワード

ハチ様　ひげくま様

すみません・・・
説明不足でした。

まず「本日の出勤」（シート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

ここまで作成しました。
ここから、「月集計」の指定セルに貼り付けさせるには、どういったコードを書けば
いいのでしょうか？

分かりにくくてすみません

よろしくお願いします

4 hits

▼

【55644】指定したセルに値を貼り付ける方法 かな 08/5/14(水) 15:28