【事例で学ぶExcel VBA #6】指定日がその月の第〇週目かを取得する

まえきんです！

このシリーズでは私が普段実務で手作業の自動化ツールを作成する中で実装している

処理の一部を取り上げ、ブログ掲載用にカスタマイズしたものをご紹介しています。

全て私の実務ベースで使っているものなので、使いこなすことが出来れば、

必ずや手作業の自動化に一役買ってくれる内容ばかりと勝手に自負しています笑 😁

「本だけじゃなくてExcel VBAを実践的に勉強してみたい！」「ハードル高くて苦手

だったけどもう一度VBAを勉強してみたい！」「実務で役に立つVBAを学びたい！」

そんな方々の学習意欲向上の一助になればと思っております😊

👇さて、今回のテーマはコチラ

#6：指定日がその月の第〇週目かを取得する

私の場合は実務上、指定された日がその月の第何週目かを知りたいときがあります。

カレンダーを引っ張り出して地道に計算するのも一つの選択肢ですが、VBAerであれば、

これをマクロで実装してみたくなるのはきっと私だけではないはず😎ということで

今回は、指定日がその月の第〇週目かを取得するマクロについてご紹介します👍

ツールの全体像

まずは任意のエクセルシートに任意のフォーマットで一覧を作成しておきます。

本ツールのVBAコードは以下の通りです。

VBAコード ※パソコンでの閲覧推奨

Option Explicit
'===================================================
'ツール名：カレンダー計算ツール（まえきんブログ掲載用にカスタマイズ）
'作成日：2022/04/09
'処理概要：指定日がその月の第〇週目かを取得する
'付属機能：なし
'作成者：まえきん
'===================================================
'===================================================
'関数名　：メイン関数（データ取得ボタン）
'処理内容：指定日がその月の第〇週目かを取得する
'トリガー：データ取得ボタンを押下した際にコールされる
'引数　　：なし
'戻り値　：なし
'===================================================
Private Sub CommandButton1_Click()
'----------
'変数宣言
'----------
Dim FirstDay As String '月初の日付
Dim WeekNumber As Integer '月内週
'----------
'月内週の取得
'----------
With Worksheets("データ取得シート")
'指定日付の月初の日付をセット
FirstDay = DateSerial(Year(.Cells(2, 1).Value), _
Month(.Cells(2, 1).Value), 1)
'月内週のセット
WeekNumber = WorksheetFunction.WeekNum(.Cells(2, 1).Value) - _
WorksheetFunction.WeekNum(FirstDay) + 1
.Cells(2, 2).Value = WeekNumber & "週目"
End With
'----------
'処理完了通知
'----------
MsgBox "データ取得が完了しました！"
End Sub