VBA～WorksheetFunction.NetworkDays_Intlメソッド～Excel
VBAで週末番号から休みの曜日を指定して開始日から終了日までの期間に含まれる稼動日の日数を求めたい場合はWorksheetFunction.NetworkDays_Intlメソッドを使います。
書き方
WorksheetFunction.NetworkDays_Intl(開始日, 終了日, [週末], [休日])
例として下の画像において下のコードを実行するとセルD2にプロジェクトの開始日から終了日までの土日祝日を除いた稼働日数が表示されます。
Sub test1()
Range("D2") = WorksheetFunction.NetworkDays_Intl(Range("A2"), Range("B2"), 1, Range("C2:C4"))
End Sub
週末番号
- 1または省略 土曜日と日曜日
- 2 日曜日と月曜日
- 3 月曜日と火曜日
- 4 火曜日と水曜日
- 5 水曜日と木曜日
- 6 木曜日と金曜日
- 7 金曜日と土曜日
- 11 日曜日のみ
- 12 月曜日のみ
- 13 火曜日のみ
- 14 水曜日のみ
- 15 木曜日のみ
- 16 金曜日のみ
- 17 土曜日のみ