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