【VBA】n日後の営業日を求める

VBA
この記事は約2分で読めます。

Excel VBAでn日後(または前)の営業日を計算するには、WorksheetFunction.WorkDayを使用します。

事前準備

祝日の判定を行うには、事前に祝日の日付をシートに書き込んでおく必要があります。
祝日は内閣府から提供されているcsvファイルの内容をコピーして使用します。
リンク先の昭和30年(1955年)から令和5年(2023年)国民の祝日(csv形式:20KB)をクリックして
csvファイルをダウンロードします。

国民の祝日について - 内閣府
内閣府 国民の祝日について。国民の祝日に&#38306...

csvファイルから2023年度の祝日をコピーしてExcelシートに貼り付けます。
シートの名前はholidayとし、データの1行目はヘッダーとします。

 

n日後の営業日を求めるコード

n日後の営業日を求めるを行うコードは以下になります。

holidayシートの最終行を取得するためGetMaxRowUsedRangeを使用しています。
GetMaxRowUsedRangeの詳細についてはこちらをご覧ください。

TestGetWorkDayには2023/3/17(金)を起点として、1営業日後と2営業日後と1営業日前の営業日を求める
コードを書いています。

TestGetWorkDayを実行すると、イミディエイトウィンドウにGetWorkDayの結果が出力されます。

 

コメント