Excel VBA質問箱 IV

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

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


52477 / 76732 ←次へ | 前へ→

【29093】Re:サイクルの異なる作業
回答  Hiroko  - 05/9/23(金) 21:43 -

引用なし
パスワード
   ▼まっちゃん さん:
今晩は、このような表の作成って結構面倒なんですが、世の中にはあるものです。
こんな感じで書いてみました。

  A  B     C    D            K        
1
2    作業A  作業B    作業C    作業D        Aのサイクル     
3 9/1    1    4    4            1    
4 9/2    2    5    5            2    
5 9/3    3    6    6            3    
6 9/4    4    7    -    1        4    
7 9/5    1    1    1                
8 9/6    2    2    2                
9 9/7    3    3    3                
10 9/8    4    4    4                
11 9/9    1    5    5                
12 9/10    2    6    6                
9/11    3    7    -    2            
9/12    4    1    1                
9/13    1    2    2                
9/14    2    3    3                
9/15    3    4    4                
9/16    4    5    5

12/31

表を慣れている行主体で書いてみました。
K列に「作業Aのサイクル」を書きます。
作業Aのコードとして
Sub test1()
  With Range("C3:C6")
    .Value = Worksheets("Sheet3").Range("K3:K6").Value '作業Aサイクル
    .AutoFill Destination:=Range("C3:C124"), Type:=xlFillCopy
  End With
End Sub

で、12月31日まで出来上がります。行数を増やせば来年の3月31日までも出来ます。


以下、作業Bのサイクルも作成方法は同じです。
仕上がったら、必要に応じて、月の間に空白行(行の挿入)を入れ、月単位で表を作成されては如何でしょう。


少し違いますが、こんなものも書きました。上のほうが良いかも?

Sub test3() 
  m = 3
  Do While m <= 122   
   i = 1
    Do While i <= 4
      Range("C" & m).Value = _
        Worksheets("Sheet3").Cells(i + 2, 11).Value
      i = i + 1
      m = m + 1
    Loop
  Loop
End Sub

0 hits

【29037】サイクルの異なる作業 まっちゃん 05/9/22(木) 7:25 質問
【29039】Re:サイクルの異なる作業 だるま 05/9/22(木) 8:36 回答
【29040】Re:サイクルの異なる作業 まっちゃん 05/9/22(木) 8:53 発言
【29041】Re:サイクルの異なる作業 小僧 05/9/22(木) 9:26 発言
【29093】Re:サイクルの異なる作業 Hiroko 05/9/23(金) 21:43 回答
【29094】サイクルの異なる作業 Hiroko 05/9/23(金) 21:52 発言

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