Improve LAB

ゲーム、ガジェット類、ITスキルなどの記事を書きます。

特定の曜日だけマクロを実行する

処理を「毎週月曜日だけ追加したい」場合のコードを紹介します。
今日の曜日をWeekdayを使って取得して、月曜日の場合に処理1をします。

If Weekday(Now()) = vbMonday Then
 '~処理1~
End if

'~毎日の処理~


A1セルにVBAで曜日を入れてみましょう
※実際は使いません。セルに=text(today(),"aaa")と書けば終了です。

If Weekday(Now()) = vbMonday Then
  Range("A1").Value = "月曜日です"

ElseIf Weekday(Now()) = vbTuesday Then
  Range("A1").Value = "火曜日です"

ElseIf Weekday(Now()) = vbWednesday Then
  Range("A1").Value = "水曜日です"

ElseIf Weekday(Now()) = vbThursday Then
  Range("A1").Value = "木曜日です"

ElseIf Weekday(Now()) = vbFriday Then
  Range("A1").Value = "金曜日です"

ElseIf Weekday(Now()) = vbSaturday Then
  Range("A1").Value = "土曜日です"

ElseIf Weekday(Now()) = vbSunday Then
  Range("A1").Value = "日曜日です"

End If