【Excel VBA】書式設定からセルに入力されている日付を曜日に変換する方法

はじめに

初めまして、エンジニアのIMMRです。

下記のデータに記載してある日付が何曜日なのかを調べたいことがあると思います。

図1　ブック(日付が入力してあるもの)

日付から曜日の確認は以前にWeekdayNameを使って確認が出来ると説明しました。

WeekdayNameを使って日付から曜日を確認する

ここでは、セルの書式設定を変更して日付から曜日を確認する方法を説明します。

1.セルに入力されている日付から曜日を確認するには

セルに入力されている日付から曜日を確認する方法は、

いくつかありますがここでは、書式設定からセルに入力されている日付を曜日に変換して確認する方法を説明します。

日付の記載してあるセルの横に曜日を表示したい場合、日付をそのままコピーします。

※コピーしなくても出来ますが、書式変更前の日付を残すために下記方法で行います。

図2　ブック(A2をB2にコピー後)

そして、そのコピーしたセルに対して、「セルの書式設定」を行って、書式設定を変更する方法です。

図3　セルの書式設定

2.書式設定からセルに入力されている日付を曜日に変換する方法

セルに入力されている日付から書式設定を変更して曜日を確認するには、

以下の関数で行うことが出来ます。

表示するといってもいくつか表示方法があります。金なのか、金曜日なのか、Fridayなのか等

これは設定値を変更して行います。

Range(””).NumberFormatLocal = 設定値

設定値は、下表の通りになります。

図4　セルの書式設定の設定値一覧

3.書式設定からセルに入力されている日付を曜日に変換するサンプルコード

書式設定からセルに入力されている日付を曜日に変換する方法のサンプルコードは以下のとおりです。

図5　ブック(A2をB2～B5にコピー後)

方法①　曜日(日本語)の略語

セルB2の書式を変更して、2019/9/13　を　金　に変換します。

Range("B2").NumberFormatLocal = "aaa"

方法②　曜日(日本語)

セルB3の書式を変更して、2019/9/13　を　金曜日　に変換します。

Range("B3").NumberFormatLocal = "aaaa"

方法③　曜日(英語)の略語

セルB4の書式を変更して、2019/9/13　を　Fri　に変換します。

Range("B4").NumberFormatLocal = "ddd"

方法④　曜日(英語)

セルB5の書式を変更して、2019/9/13　を　Friday　に変換します。

Range("B5").NumberFormatLocal = "dddd"

4.書式設定からセルに入力されている日付を曜日に変換する方法の実行結果

では、実際にセルに入力されている日付から書式設定を変更して曜日を確認されるか確認していきます。

図6　ブック(A2をB2～B5にコピー後)

下記プログラムを実行して、

　セルB2に記載してある日付を金に

　セルB3に記載してある日付を金曜日に

　セルB4に記載してある日付をFriに

　セルB5に記載してある日付をFridayにします。

サンプルコード

Sub Test12()

    Range("B2").NumberFormatLocal = "aaa"
    Range("B3").NumberFormatLocal = "aaaa"
    Range("B4").NumberFormatLocal = "ddd"
    Range("B5").NumberFormatLocal = "dddd"

End Sub

図7　ブック(上記、コード実行後)

それぞれ

　セルB2の2019/9/13　の書式が変更され、金に

　セルB3の2019/9/13　の書式が変更され、金曜日に

　セルB4の2019/9/13　の書式が変更され、Friに

　セルB5の2019/9/13　の書式が変更され、Fridayになりました。

日付を書式変更で曜日にして、

日付から曜日を確認することが出来ました。

値を入力したわけでなく書式の変更をしただけなので、

実際のセルに記載されているのは2019/9/13　です。

図7　ブック(入力値の確認)