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

によるベンジャミン・アンダーソン博士 7月 5, 2023 ガイド 0コメント

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 で他の一般的なタスクを実行する方法について説明します。

私はベンジャミンです。退職した統計教授から、専任の Statorials 教育者になりました。統計分野における豊富な経験と専門知識を活かして、私は Statorials を通じて学生に力を与えるために自分の知識を共有することに尽力しています。もっと知る