エクセルで、複数年にまたがる期間を、年ごとに日数計算できないかと思って

質問

エクセルで、複数年にまたがる期間を、年ごとに日数計算できないかと思っています。

例：平成２０年３月１日～平成２１年５月１０日を
(1)平成２０年３月１日～平成２０年１２月３１日＝○○日
(2)平成２１年１月１日～平成２１年５月１０日＝○○日

といった感じで、年ごとに自動的に分けて計算できる方法を探しています。（期間については、２～３年にまたがることもあります。）

どなたか良い方法を教えていただけませんか？

回答No.1

soixante

私なら、年数がまちまちになるのなら、マクロを使ってみます。
マクロはお使いになれますか？　念のためご存じないことを想定して以下に記します。

セッティング
【１】新規シート上で、Alt+ F11　（ＶＢＡ画面があきます）
【２】Alt + I 、M （真っ白な画面が開きます）
【３】以下の点線から点線までをコピーし、その真っ白画面に貼る。

'---------------------------------------------------------------------
Sub 日数計算()

Dim r As Integer, c As Integer, p As Integer
Dim Stday As Date, Edday As Date
On Error GoTo ErrShori
Stday = Cells(1, 1).Value
Edday = Cells(1, 2).Value

Range(Cells(2, 1), Cells(Rows.Count, 3)).ClearContents
Cells(1, 3).ClearContents

If Stday > Edday Then
　　　MsgBox "開始日と終了日の設定が間違っています。"
　Exit Sub
ElseIf Stday = Edday Then
　Range(Cells(2, 1), Cells(2, 2)).Value = Stday
　Cells(2, 3).Value = 0

ElseIf Year(Stday) = Year(Edday) Then
　Cells(2, 1).Value = Stday
　Cells(2, 2).Value = Edday
　Cells(2, 3).Value = Cells(2, 2).Value - Cells(2, 1).Value + 1
Else
　p = Year(Edday) - Year(Stday) + 1
　Cells(2, 1).Value = Stday
　Cells(2, 2).Value = DateSerial(Year(Stday), 12, 31)
　 Cells(2, 3).Value = Cells(2, 2).Value - Cells(2, 1).Value + 1

　For r = 2 To p
　　 Cells(r + 1, 1).Value = DateSerial(Year(Stday) + r - 1, 1, 1)
　　Cells(r + 1, 2).Value = DateSerial(Year(Stday) + r - 1, 12, 31)
　　Cells(r + 1, 3).Value = Cells(r + 1, 2) - Cells(r + 1, 1) + 1
　Next r
　Cells(p + 1, 2).Value = Edday
　Cells(p + 1, 3).Value = Cells(p + 1, 2) - Cells(p + 1, 1)
End If

Range(Columns(1), Columns(2)).NumberFormatLocal = "ggge年m月d日"
Columns(3).NumberFormatLocal = "0"
With Cells(1, 3)
　.Value = Application.WorksheetFunction.Sum(Range(Cells(2, 3), Cells(Rows.Count, 3)))
　.NumberFormatLocal = "#,###"
End With
Exit Sub

ErrShori:
MsgBox "エラーのため終了します"

End Sub
'---------------------------------------------------------------------

【４】Microsoft Visual Basic 画面を閉じて、エクセルに戻る。

セッティングは以上で終わり。

使用方法
【１】Ａ１セルに、開始日を入力　例えば　2008/3/1　と入れる
【２】Ｂ１セルに、終了日を入力　例えば　2009/5/10　と入れる
【３】Alt + F8 を押す
【４】日数計算　　を選択して、実行。「日数計算」をダブルクリックでも可。

試しに、Ａ１セルに、ご自分の誕生日を、Ｂ１セルに、本日を入力した上で、実行してみてください

お礼

回答、ありがとうございます。
ＶＢＡはほとんど知識がありません。
実際に使う場合、日付を入力する予定のセル場所はＲＩＣＩ形式でStday = Cells(1, 1).Value
Edday = Cells(1, 2).Valueの部分を変えればいいのでしょうか？