VBA～WorksheetFunction.WorkDay_Intlメソッド～Excel
VBAで週末番号から休みの曜日を指定して開始日から起算して指定された稼動日数後の日付を計算したい場合はWorksheetFunction.WorkDay_Intlメソッドを使います。
書き方
WorksheetFunction.WorkDay_Intl(開始日, 日数, [週末], [休日])
例として下の画像において下のコードを実行するとセルD2にプロジェクトの開始日から土日祝日を除いた稼働日数150日後の日付が表示されます。
Sub test1()
Range("D2") = WorksheetFunction.WorkDay_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 土曜日のみ