マクロ 結合セルに対しての処理方法

質問

いつも回答ありがとうございます。
例えば、7行目から10000行目まで、(D：E)を結合したセルに日付[yyyy/m/d]が入力されています。その入力した最終の日付を(C5：E5)の結合されたセルに表示させるようにしたいのですが、下記の記述では範囲の選択が上手くいかず、最終日が表示されませんでした。結合されたセルに対しての記述はどのようにしたら良いのでしょうか？御指導の程宜しくお願い致します。

Sub 特定のシート以外の最終履歴と次回予定日を算出する()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "一覧" Then
If ws.Name <> "メニュー" Then
Dim c As Integer
c = 3
Do While ws.Cells(2, c).Value <> ""
With ws.Cells(5, c)
.FormulaR1C1 = "=MAX(R7C1:R10000C1)"
If .Value = 0 Then
.Value = "履歴無し"
Else
.Value = .Value
ws.Cells(6, c) = DateAdd("d", ws.Cells(4, c + 2), DateAdd("m", ws.Cells(4, c + 1), DateAdd("yyyy", ws.Cells(4, c), ws.Cells(5, c))))
End If
End With
c = c + 3
Loop
End If
End If
Next
End Sub

回答No.2

keithin · ベストアンサー

失礼しました。

＞7行目から…(D：E)を結合したセルに

そういう風に設計変更したという状況説明が無かったので、５行目同様Ｃ：Ｅの３列分セル結合されているのを誤記したのだと思ってました。

修正：
.FormulaR1C1 = "=MAX(R7C[1]:R10000C[1])"

「Ｒ１Ｃ１形式の数式の書き方」については、エクセルの参考書などをひも解いてください。

＃まぁとは言っても、マクロ以前にまずエクセル手動で操って正しい数式を記入し、エクセルのオプションで「Ｒ１Ｃ１形式」にチェックを入れることで、正しい数式の書き振りは一目で確認できます。

回答No.1

keithin

いつの間に間違いましたか。

誤り：
.FormulaR1C1 = "=MAX(R7C1:R10000C1)"

正解：
.FormulaR1C1 = "=MAX(R7C:R10000C)"

お礼

回答ありがとうございます。
シートの構成を変えて、最終日が表示されなくなりました。前は同一の列に入力も最終日の表示もさせていましたが、今回の変更により日付を入力する列が1つ前(C列→D列)になった為、現状の記述では最終日の表示ができなくなったのかなと思い、MAX以下の記述をチョコチョコ変えましたが、うまく表示されません。MAX以下の記述について御指導お願い致します。