この記事では、任意の列のVBAコードを使用して、平日、つまり月曜日から金曜日を自動的に入力する方法を学習します。

[開発者]タブをクリックし、[コード]グループから[VisualBasic]を選択します

img1

[挿入]、[モジュール]の順にクリックします

img2

これにより、新しいモジュールが作成されます。

モジュールに次のコードを入力します

Sub WeekendOut（）

Dim Start As Date、Off As Date

薄暗いy％、i＃

開始= InputBox（ “開始日：”）

オフ= InputBox（ “終了日：”）

===

For i = Start To Off

y = y + 1

If Weekday（i、2）<6 Then

Cells（y、2）= Format（i、 “mm-dd-yy”）

Cells（y、1）= Format（i、 “dddd”）

ElseIf Weekday（i、2）= 6 Then

その他

y = y-1

終了If

次の私

サブの終了

===

img3

Alt + F8ショートカットキーを押してマクロウィンドウを開き、マクロを選択します。

img4

または、F5キーを押して、VBA画面でコードを実行することもできます。

マクロを実行すると、次の入力ボックスが表示されます。開始日をMM / DD / YYYY形式で入力する必要があります

img5

次に、コードは終了日を入力するように要求します

img6

img7

したがって、列Aに曜日が表示され、次のセルに日付が格納されます。

このように、手作業で苦労することなく、平日に簡単に入ることができます。