マクロ・VBAでの書類作成

質問

業務進捗書類作成で困っております。
お助けいただけないでしょうか。

〈内容〉
(1)セルC３の週頭（月曜日）の年月を変更したら自動的にその後の週頭（月曜日）が自動的に変更される。

(2) (1)を実行すると月によって隔週（月曜日）の数が違うため、結合されている年月末報告と月度合計が月によってズレてしまう為、月の週頭の数に合わせて結合する。

(3) (1)を実行すると月度合計のMAX範囲も月によってズレてしまう為、月の隔週（月曜日）の数に合わせて計算範囲が変更される。

(4)セルC2の末報告の年月のみが自動的に変更されるマクロの作成。（末報告という文章ダメであれば年月の数字のみにします）

お手数をお掛けしますが、宜しくお願い致します。

回答No.3

SI299792 · ベストアンサー

セルの結合をしなければ、関数と条件付き書式で可能ですね。

Option Explicit
'
Sub Macro1()
　　Dim ColF As Integer
　　Dim ColT As Integer
　　Dim DateF As Long
　　Dim DateT As Long
　　Dim Row As Long
'
　　Cells.UnMerge
　　ColF = 3
　　[5:5,7:7,9:9,11:11].ClearContents
'
　　For ColT = 3 To Cells(3, Columns.Count).End(xlToLeft).Column + 1
　　　　DateF = Cells(3, ColF)
　　　　DateT = Cells(3, ColT)
'
　　　　If Month(DateF) <> Month(DateT) Or Cells(ColT) > "" Then
　　　　　　Cells(2, ColF).Resize(, ColT - ColF).Merge
　　　　　　Cells(2, ColF) = Format(DateF, "YY年MM月末報告")
'
　　　　　　For Row = 5 To 11 Step 2
　　　　　　　　Cells(Row, ColF).Resize(, ColT - ColF).Merge
　　　　　　　　Cells(Row, ColF).FormulaR1C1 = _
　　　　　　　　　　"=MAX(R[-1]C:R[-1]C[" & ColT - ColF - 1 & "])"
　　　　　　Next Row
　　　　　　ColF = ColT
　　　　End If
　　Next ColT
End Sub

回答No.2

kkkkkm

No1の訂正です。

"< "
を
"<= "
に全て変更してください。

回答No.1

kkkkkm

マクロではありませんが

セルの結合はなくしてください。

報告のセルに
=TEXT(D3,"yy") & "年" & MONTH(D3) & "月末報告"
として必要なところにコピーします。

D2に
=C3+7
として右に必要なだけコピーします。

条件付き書式で
B2からO11まで選択して
数式を適用して・・・で数式を
=MONTH(C$3)<>MONTH(D$3)
として
書式の罫線を右で設定します。

D5に
=MAX(OFFSET(C4,0,0,1,COUNTIF($C$3:$O$3,"< " & EOMONTH(C3,0))))
H5に
=MAX(OFFSET($C$4,0,COUNTIF($C$3:$O$3,"< " & EOMONTH(D3,0)),1,COUNTIFS($C$3:$O$3,"< " & EOMONTH(H3,0),$C$3:$O$3,"> " & EOMONTH(H3,-1))))

H5をM5にコピーして

試してみてください。

””がコピーで全角になることがありますのでその場合は半角に修正してください。