Excel VBA質問箱 IV

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

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


17092 / 76733 ←次へ | 前へ→

【65098】Re:シートの一部分をコピー
発言  超初心者  - 10/4/16(金) 9:03 -

引用なし
パスワード
   ▼ととろ さん:

こんな感じでいかがでしょう。

Sub sample()
  Dim myYear As Integer
  Dim myMonth As Integer
  Dim myDay As Integer
  
  myYear = 2010
  myMonth = 4
  
  myDay = 1
  With Sheets("月報")
    Do
      .Cells(myDay * 3 + 2, 2).Resize(3, 1).Value = _
      Sheets("設備管理(" & myDay & ")").Range("B5:L7").Value
      myDay = myDay + 1
    Loop While Month(DateSerial(myYear, myMonth, myDay)) = myMonth
  End With
End Sub

参考までに。
1 hits

【65097】シートの一部分をコピー ととろ 10/4/15(木) 20:51 質問
【65098】Re:シートの一部分をコピー 超初心者 10/4/16(金) 9:03 発言
【65166】Re:シートの一部分をコピー ととろ 10/4/21(水) 20:37 お礼

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