エクセルで万年暦作り（祝日）・・・長文です

質問

教えてください。現在パソコン教室に通いはじめて2ヶ月の初心者が会社で万年暦を作ることになりました。関数で10年先の日にちを入れても祝日が自動にはいるようにしたいのですがどうしてもうまくいきません。

できないのでここのサイトやいろいろ検索してシート2に10年分の祝日を書きだして（A列に西暦/月/日、B列に祝日（元旦とか））祭日一覧と名前をつけて祝日表示して提出したら「これじゃだめ」と怒られてしまい祝日も関数で求めろと（涙）

とりあえずA列に日付（セルの書式設定でyyyy/mm/ddの表示にしてあります）
B列は曜日=TEXT(A1,"aaa")
C列に祝日表示をしたくて空けてあります。

春分、秋分の日は計算が必要なので
I列に西暦
J列に春分の日の計算式
=DATE(I2,3,INT(20.8431+0.242194*(I2-1980)-INT((I2-1980)/4)))
K列に秋分の日の計算式
=DATE(I2,9,INT(23.2488+0.242194*(I2-1980)-INT((I2-1980)/4)))
の表を作りました

あとはF列に固定の祝日の日付けG列に元旦とかの項目
を書きました。

ここで祝日を表示させる前に問題が・・
1つは固定の祝日の日付を入れると勝手に2006年の西暦が入ってしまいます。これでは次の年になったら条件が違ってきて表示されなくなってしまうんです。

2つ目は第○月曜日とかの祝日です。これを求める関数がまったくわかりません（汗）

3つ目は振り替え休日と祝日と祝日の間が休みになる国民の祝日です。これもいろいろとサイトをみて関数を入れてみるのですがうまく表示できません

この問題を1週間以上悩んでもできず「まだできないの」みたいな雰囲気になってここにいる皆様の知恵をお借りしようと投稿しました。うまく説明できてないかもしれませんがわかる方どうぞ教えてくださいよろしくお願いします！！！

回答No.4

mshr1962 · ベストアンサー

1.DATE関数を使えばいいのでは？
年だけセルを参照させて(春分・秋分はI2=年で計算してますよね。それと同じです。)
=DATE(年,月,日)+(WEEKDAY(DATE(年,月,日))=1)
※月と日は固定なので数値を直打ちして年だけ別セルを参照、後半は振り替え休日の設定（日曜なら1日ずらす）
2.第1月曜日
=DATE(年,月,8-WEEKDAY(DATE(年,月,7),2))
※第2なら8を15に変えればOK
3.現状では9月の敬老の日（第3月曜日）と秋分の日ですよね。2009年に発生するようですが...
(5月4日は前後の日付が固定されているので除外します。)
=IF(秋分の日-敬老の日=2,敬老の日+1,"")
※要は敬老の日の翌々日が秋分の日なら敬老の日の翌日は休みとなります

お礼

詳しい関数まで教えていただきありがとうございます。やってみます。

回答No.8

noname#204879

No.7ですが、自分でも調べました。

国民の休日が「敬老の日」(9月第3月曜)と秋分の日の間にも発生する年(2099年まで)は、次のように結構あることが判明しました。
2009/2015/2026/2032/2037/2043/2049/2054/2060/2071/2077/2088/2094/2099

私の思い込みで失礼なことを申し上げていました。済みませんでした。

お礼

お返事が遅くなってすみませんでした。私も9月の連休のことはぜんぜん知らなく今回はいい勉強になりました。国民の祝日が現れたら5連休ですね！

回答No.7

noname#204879

[No.3回答に対するお礼]に対する質問、

国民の休日が「敬老の日」(9月第3月曜)と秋分の日の間にも発生する年とは何年のことですか？
参考のためにぜひ教えてください。

回答No.6

BLUEPIXY

昔作ったユーザー定義関数ですけどの使い回しですが、参考になりますか。

春分・秋分の日の計算は置き換えて下さい。
使い方：
=isHoliday(年,月,日)
で祝日名が入ります。
関数バージョンも作ったことがあるのですが、かなり補助セルを使いますので、ちょっとここでアップできません。
----------------------------------------------------------------
Function monthDay(y, m)
Dim d(12)

d(1) = 31
d(2) = 28
d(3) = 31
d(4) = 30
d(5) = 31
d(6) = 30
d(7) = 31
d(8) = 31
d(9) = 30
d(10) = 31
d(11) = 30
d(12) = 31
If isLeapYear(y) Then d(2) = d(2) + 1

monthDay = d(m)
End Function

Function isLeapYear(y)
isLeapYear = _
(y Mod 400 = 0) Or _
((y Mod 4 = 0) And (y Mod 100 <> 0))
End Function

Function weekDayDate(y, m, week, youbi)
'y年m月の第week週のyoubiの日を"nn/nn"の形で返す
Dim d
Dim count
Dim find

count = 0
For d = 1 To monthDay(y, m)
If youbi = Weekday(DateSerial(y, m, d)) Then count = count + 1
If count = week Then
find = True
Exit For
End If
Next
If find Then
weekDayDate = Trim(CStr(m)) & "/" & Trim(CStr(d))
End If
End Function

Function isHoliday(y, m, d) As String
Dim n
Dim dateWk
Dim Holiday(15), Holiday_Name(15)

Holiday(1) = "1/1": Holiday_Name(1) = "元日"
Holiday(2) = "1/15": Holiday_Name(2) = "成人の日"
Holiday(3) = "2/11": Holiday_Name(3) = "建国記念の日"
Holiday(4) = "3/20": Holiday_Name(4) = "春分の日"
Holiday(5) = "4/29": Holiday_Name(5) = "みどりの日"
Holiday(6) = "5/3": Holiday_Name(6) = "憲法記念日"
Holiday(7) = "5/4": Holiday_Name(7) = "国民の休日"
Holiday(8) = "5/5": Holiday_Name(8) = "こどもの日"
Holiday(9) = "7/20": Holiday_Name(9) = "海の日"
Holiday(10) = "9/15": Holiday_Name(10) = "敬老の日"
Holiday(11) = "9/23": Holiday_Name(11) = "秋分の日"
Holiday(12) = "10/10": Holiday_Name(12) = "体育の日"
Holiday(13) = "11/3": Holiday_Name(13) = "文化の日"
Holiday(14) = "11/23": Holiday_Name(14) = "勤労感謝の日"
Holiday(15) = "12/23": Holiday_Name(15) = "天皇誕生日"
' isHoliday = ""

If y >= 2000 Then '西暦２０００年から
Holiday(2) = weekDayDate(y, 1, 2, vbMonday) '成人の日は、第２週の月曜
Holiday(12) = weekDayDate(y, 10, 2, vbMonday) '体育の日は、第２週の月曜
End If
If y >= 2004 Then
Holiday(9) = weekDayDate(y, 7, 3, vbMonday) '２００３年から第３週月曜
End If
If y >= 2004 Then
Holiday(10) = weekDayDate(y, 9, 3, vbMonday) '２００４年から第３週月曜
End If
If y >= 2007 Then
Holiday_Name(5) = "昭和の日" '２００７年から第３週月曜
End If
Holiday(4) = "3/" & Trim(CStr(Int(0.24242 * y - Int(y / 4) + 35.84))) '春分の日
Holiday(11) = "9/" & Trim(CStr(Int(0.24204 * y - Int(y / 4) + 39.01))) '秋分の日

dateWk = DateSerial(y, m, d)
' 土曜日曜の判別
' If weekday(dateWk) = vbSunday Or weekday(dateWk) = vbSaturday Then
' isHoliday = "休日"
' Exit Function
' End If
' 祭日
For n = 1 To 15
If Holiday(n) = Trim(CStr(Month(dateWk))) & "/" & Trim(CStr(Day(dateWk))) Then
' isHoliday = True
isHoliday = Holiday_Name(n)
Exit Function
End If
Next
dateWk = dateWk - 1
' 振替え休日
For n = 1 To 15
If Holiday(n) = Trim(CStr(Month(dateWk))) & "/" & Trim(CStr(Day(dateWk))) And _
Weekday(dateWk) = vbSunday Then
' isHoliday = True
isHoliday = "振替休日"
Exit Function
End If
Next
isHoliday = ""
End Function

お礼

すごい！こんなに詳しくありがとうございます。でも難しそう（汗）がんばってみます。ここに投稿してよかったです。

回答No.5

grumpy_the_dwarf

> 固定の祝日の日付を入れると勝手に
> 2006年の西暦が入ってしまいます。

日付形式で入れてはいけません。[年が省略されている日付形式]に
見える入力があった時に今年のことだと見なすのは仕様です。月と
日を分けてリストを作り、=date(I2,月,日)で使いましょう。

お礼

なるほど。ありがとうございます。それは年と月と日を別のセルに書くってことですか？

回答No.3

noname#204879

》 3つ目は振り替え休日と祝日と祝日の間が休みにな
》 る国民の祝日

「祝日と祝日の間が休みになる国民の」“休日”になり得る日は５月４日だけだと思います。それが「祝日と祝日の間」にならない場合は、その日が土または日曜のときだけ。何れにしてもその日は「休日」としたら如何かと。

お礼

ありがとうございます。調べたら国民の祝日は9月の敬老の日と秋分の日の間にも発生する年があるのでやっぱり計算式が必要になるんです。。。

回答No.2

noname#204879

》 2つ目は第○月曜日とかの祝日

「第n曜日を求める」方法が下に示すURLに載っています。

参考URL：

http://www2.odn.ne.jp/excel/waza/function.html#SEC36

お礼

ありがとうございます。やってみます

回答No.1

245689731

こちらのサイトが参考になるかと思います

参考URL：

http://www.h3.dion.ne.jp/~sakatsu/

お礼

ありがとうございます。参考になりました