Vba で workday 関数を使用する方法 (例付き)


VBA でWorkDayメソッドを使用すると、日付から特定の稼働日数を加算または減算できます。

このメソッドを実際に使用する一般的な方法は次のとおりです。

 SubAddWorkDays ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))
Next i

End Sub

この特定のマクロは、範囲B2:B10で指定された営業日数を範囲A2:A10の各日付に加算し、結果を範囲C2:C10に表示します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA で WorkDay 関数を使用する方法

Excel に日付の列と、各日付に加算する営業日数を指定する別の列があるとします。

次のマクロを作成して、列 B の営業日数を列 A の対応する日付に加算します。

 SubAddWorkDays ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))
Next i

End Sub

このマクロを実行すると、次の出力が表示されます。

デフォルトでは、列 C には日付がシリアル番号として表示されます。

これらの値を認識可能な日付として表示するには、範囲C2:C10を強調表示し、上部のリボンに沿って[挿入]タブをクリックし、次に[数値形式]ドロップダウン メニューをクリックして、 [短い日付] をクリックします。

各シリアル番号が日付として表示されるようになります。

列 C には、列 A の各日付に、列 B の特定の営業日数が追加されて表示されます。

列 B に負の数値を指定すると、 WorkDayメソッドは列 A の日付からその営業日数を減算することに注意してください。

: VBA WorkDayメソッドの完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA:日付から月名を取得する方法
VBA: 日付で並べ替える方法
VBA: 2 つの日付間の if を追加する方法

コメントを追加する

メールアドレスが公開されることはありません。 が付いている欄は必須項目です