Excel VBA質問箱 IV

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

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


26393 / 76732 ←次へ | 前へ→

【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

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

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

よろしくお願いします

0 hits

【55644】指定したセルに値を貼り付ける方法 かな 08/5/14(水) 15:28 質問
【55645】Re:指定したセルに値を貼り付ける方法 ハチ 08/5/14(水) 15:34 発言
【55648】Re:指定したセルに値を貼り付ける方法 ひげくま 08/5/14(水) 15:54 回答
【55670】Re:指定したセルに値を貼り付ける方法 かな 08/5/15(木) 9:15 質問
【55671】Re:指定したセルに値を貼り付ける方法 テト 08/5/15(木) 9:53 発言
【55672】Re:指定したセルに値を貼り付ける方法 ひげくま 08/5/15(木) 10:00 回答
【55673】Re:指定したセルに値を貼り付ける方法 ハチ 08/5/15(木) 10:56 発言
【55713】Re:指定したセルに値を貼り付ける方法 かな 08/5/16(金) 15:19 お礼

26393 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free