Excel VBAで直前の日曜日を取得する－Date関数・Weekday関数

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2603（ビルド19822.20168クイック実行）

「マクロ直前の日曜日の日付を取得」
といった検索でアクセスがありました。
Excel VBAで、直前の日曜日がいつなのかを調べるには、どのようなコードを書けばいいのかを調べていらしたのでしょうか。

［スポンサードリンク］

直前の日曜日を取得するサンプルマクロ

以下のようなマクロはどうでしょうか。

Sub 直前の日曜日を取得する()

　Dim last_sunday As Date
　last_sunday = Date - (Weekday(Date, vbSunday) - 1)
　MsgBox last_sunday

End Sub

VBAのWeekday関数の第2引数に定数vbSundayを指定すると、日曜日が「1」、月曜日が「2」、土曜日が「7」といった整数を取得できます。

last_sunday = Date - (Weekday(Date, vbSunday) - 1)

そのような1から7の整数から、更に「1」をマイナスした値を、

last_sunday = Date - (Weekday(Date, vbSunday) - 1)

VBAのDate関数で取得できる値から引き算しています。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » VBA関数 » Excel VBAで直前の日曜日を取得する－Date関数・Weekday関数

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「VBA関数」の記事一覧