Excel2010を利用しています。特定の日時に特定の時間を足した日時を出したいのですが、その際に土日祝日などは飛ばすようにしたいのです。分析ツールのWorkday関数がやりたいことに近いのですが、それでは時間が無視されてしまいました。 Add Star

Question

11

300pt

例として、以下のような計算をしたいと考えています。
起算日時 2015/4/2(木) 15:00に40時間を足すが、休日(土日)は無視する → 求めたい日時は2015/4/6(月) 7:00
簡単に実現する方法はありますでしょうか？

回答の条件

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.1

100pt

元の日付が A2 に入ってるとして、以下のような式だったら、「例として」の要求は満たしてます。

=IF(WEEKDAY(A2+40/24)=7,A2+40/24+2,IF(WEEKDAY(A2+40/24)=1,A2+40/24+1,A2+40/24))

WEEKDAY 関数で曜日が分かるので、それを IF 関数で場合分けしてます。

セルの式でやると、40時間を足すところが5回も出てきて冗長な感じだし、やりたいことは「2営業日後の午前7時」を求めたい（切れ目は0時じゃないと思う）、ということのような気もするので、VBA を使ってユーザ定義関数を使う方が良いんじゃないかな、という気もします。

2015/04/03 01:06:32

ご回答ありがとうございます。
土日以外の休日も考慮したいので、Workday関数を使う方法を使うことにしましたが、助言いただいた通りVBAで書いてアドインにしました。非常にすっきりしました。

2015/04/03 19:43:15

きゃづみぃ 2015/04/03 11:15:49

土日祝日だけはずすのか？
年末年始や盆休みとかも考慮しなくていいのか？
ま、祝日の日付リストを作ればそれで除外することは可能だが。
end1736 2015/04/03 19:45:18

>> きゃづみぃさん
コメントありがとうございます。説明が不足しており申し訳ありませんでした。ご推察の通り、年末年始や別途指定した休日も考慮する必要がありましたので、休日リストを用意してWorkday関数を用いる方法を使うことにしました。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません

Mook · Accepted Answer · 2015-04-03T09:54:56+09:00

A1 に基準となる日時
A2 に加算する時間
C列に祝日リスト
として、

 A3  =WORKDAY(INT(A1),INT((A2+MOD(A1,1)*24)/24),C:C) +MOD(A2/24+MOD(A1,1),1)

A1、A3 の書式はユーザ定義で YYYY/MM/DD hh:mm
などで。

Mook · Accepted Answer · 2015-04-03T09:54:56+09:00

A1 に基準となる日時
A2 に加算する時間
C列に祝日リスト
として、

 A3  =WORKDAY(INT(A1),INT((A2+MOD(A1,1)*24)/24),C:C) +MOD(A2/24+MOD(A1,1),1)

A1、A3 の書式はユーザ定義で YYYY/MM/DD hh:mm
などで。

ベストアンサー