【頭良い方HELP】スケジュール表

質問

スケジュール表を作成しているのですが、
曜日によりスケジュールが異なる日付の計算が発生するため、
日付の計算（E～G列）がうまくいきません。
どなたか教えてください。

■スケジュール表について
・月次でのスケジュール表を作成しています
・曜日によりスケジュールが変更になります　※祝日も日曜日と同様にサイクルに含まれません
・サイクル表に基づき、E～G列の日付を自動計算する（計算箇所はここだけです）

例）5/1（木）でいうと、

サイクル表は木曜日なので、以下のサイクルになります。
　　　1 2 3 4 5 6 7 8
　　 木　金　土　日　月　火　水　木
木　 A　　B　 C D E　　　

なので、スケジュール表には、以下のように計算されるようにしたいです。

　　　　　　　A　　　B　　　D
5/1　木　　5/1　　5/2　　5/7　

内容は以上になります。
※参考にスケジュール表とサイクル表の画像を添付しているので、ご確認ください。
不明点あれば、お問合わせください。
宜しくお願いします。

回答No.3

mt2008 · ベストアンサー

2007でしたか、残念。

日曜日だけを休日扱いするWORKDAY関数もどきのユーザ関数を作ってみました。
使い方はWORKDAY関数と同じです。

Function WorkdaySun(dDate As Date, nDay As Long, rRng As Range) As Date
　　WorkdaySun = dDate
　　For i = 1 To nDay
　　　　WorkdaySun = WorkdaySun + 1
　　　　Do
　　　　　　If Weekday(WorkdaySun) = vbSunday Then
　　　　　　　　'日曜日の処理
　　　　　　　　WorkdaySun = WorkdaySun + 1
　　　　　　ElseIf WorksheetFunction.CountIf(rRng, WorkdaySun) <> 0 Then
　　　　　　　　'祝祭日の処理
　　　　　　　　WorkdaySun = WorkdaySun + 1
　　　　　　Else
　　　　　　　　Exit Do
　　　　　　End If
　　　　Loop
　　Next
End Function

お礼

ありがとうございました！！！
IF関数と併用してうまくいきました。助かりました。

回答No.2

mt2008

Excel2010以降でしたらWORKDAY.INTL関数で休日を日曜日のみに設定できますよ。
詳細はヘルプを見てください。

補足

残念ながら、Excel2007を使っており、
Excel2010以降ではありません。その場合の対処方法をご教授ください。
宜しくお願いします。

回答No.1

mt2008

図が小さくて全く見えませんので説明だけでは良く解らず、具体的な回答は出来ませんが、お望みの事はWORKDAY関数で実現できると思います。
添付の図では、C2セルに↓の式を入れ、C2:E4にコピーしてあります。
=WORKDAY($A2,C$1-1,$G$2:$G$6)

補足

ご回答ありがとうございます。
WORKDAY関数も考えたのですが、今回のスケジュールは月～土　※祝日のぞくで作成が必要です。
WORKDAY関数だと、土曜日はカウントされしまいますよね？
何か日祝で計算出来る方法はあるでしょうか？