【VBA×初学者向け】8桁の数字を日付に変換する方法

みなさんこんにちは。

コードを書いているとYYYYMMDD形式となっている8ケタの数字の書式を変換する場面に遭遇することがよくあるかと思います。

Excelでしたら書式設定をすれば一瞬で変換することができますが。

VBAだと少しコツが必要になります。

今回は、8ケタの数字の書式を変更する方法についてご紹介します。

最初は覚えることに集中するかと思いますが、

慣れてくると圧倒的に作業効率は上がるので、

積極的に使用していくことをお勧めします。

この記事はこんな人におすすめ

この記事はこんな人におすすめです！

VBAプログラミング：初級者～中級者
コードだけサクッと取得したい人
効率の良いコードを書きたい人

といったところでしょうか。

初学者向けの過去記事

VBA初学者のための関連項目については過去の記事でもご紹介しております。

【VBA×初学者向け】文字数制限、禁則文字を回避してシート作成する方法

【VBA×初学者向け】文字列の一部に色を付ける方法

8ケタの数字を日付に変換する方法を習得するメリット

8ケタの数字を日付に変換する方法を習得するメリットは以下の通りです。

VBAの基礎スキル定着
時間短縮と作業効率化
正確な操作の実現

といったところでしょうか。

本件は日常業務でも使用する機会が非常に多いかと思いますので、

一度やり方を覚えてしまえばかなり有効的なスキルになるかと思います。

準備

A1セルに以下の内容を入力します。

20241021

A2セルには2024/10/21と日付で出力して、

A3セルには令和6年10月24日と日付で出力するように実装します。

YYYY/DD/MMの形式で出力する

20241021を、A2セルに2024/10/21と日付で出力するサンプルプログラムは下記となります。

Sub TEST_Macro()
	Dim myDate As Date

	myDate = Format(Cells(1, 1).Value, ” ####/##/##”)

	Cells(2, 1).NumberFormat = “yyyy/mm/dd”

	Cells(2, 1).Value = myDate
End Sub

年号の形式で出力する

20241021を、A3セルに令和6年10月21日と日付で出力するサンプルプログラムは下記となります。

Sub TEST_Macro()
    Dim myDate As Date
    Dim Year As Integer, Month As Integer, Day As Integer
    
    Year = Mid(Cells(1, 1).Value, 1, 4)
    Month = Mid(Cells(1, 1).Value, 5, 2)
    Day = Mid(Cells(1, 1).Value, 7, 2)
    myDate = Year & "/" & Month & "/" & Day
    Cells(3, 1).NumberFormat = "ggge年m 月 d 日"
    Cells(3, 1).Value = myDate
End Sub