日曜・祭日だけ除いた日数を求めたい

質問

networdays関数では開始日から終了日までの平日の日数しか返せないのでしょうか?
勤務先では土曜も営業しています。どなたかご存知の方よろしくおねがいします。

回答No.1

imogasi · ベストアンサー

networdays関数類似の私製関数を作ってみました。
ツール－マクロ－ＶＢＥ
その画面のメニューで、挿入ー標準モジュール
出てきた画面に
Function wdx(a, b, c)
For i = a To b
If Weekday(i) = 1 Then '日曜を除く
Else
j = j + 1
End If
Next i
'----期間内祝日数
Dim cl As Range
For Each cl In c
If cl >= a And cl <= b Then '期間内か
k = k + 1
End If
Next
wdx = j - k
End Function
をコピーし貼り付ける。
ーーー
そして、たとえば
Ａ１　2006/1/1
Ｂ１　2006/2/28
と開始日と終了日をこの順に入れる。
ーーー
たとえばＨ列のセルに、期間中の月ー土の祝日を入れる。
Ａ１，Ｂ１範囲外の長い期間の（たとえば１年分の）祝日を入れるのはかまわない。
この例ではＨ１：Ｈ３
Ｈ１　2006/1/2
Ｈ２　2006/1/9
Ｈ３　2006/2/11
求める日数を入れるセルに　=WDX(A1,B1,H1:H3)
と入れる。答えは 47
少数例でテストしましたが、事前に十分テストしてお使ってください。

回答No.2

Wendy02

こんにちは。

関数で、このようにすれば出来ます。

A1:開始日
A2:終了日

仮に
H1:H15; 祭日を入れたとします。

=SUMPRODUCT(((ISERROR(MATCH(A1+ROW(INDIRECT("A1:A"&A2-A1)),H1:H15,0)))*(WEEKDAY
(A1+ROW(INDIRECT("A1:A"&A2-A1)))<>1)=1)*1)