【VBA】Format関数で日付や数値をフォーマットする

VBAでデータを処理しているとき、日付や時刻などを特定の形式で表示したいことはよくあると思います。そんな時に便利なのが、Format関数です。

本記事では、Format関数の基礎知識や具体的な使い方について詳しく解説していきたいと思います！

VBAのFormat関数とは？

Format関数とは、引数に渡した特定の値を指定する書式の文字列に変換する関数です。

日時を指定して、年月日や時分秒のような形式に変換したり、日付や時刻を抜き出したりする際に使用します。書式には、和暦や曜日の表示なども設定できるようになっています。
その他にも、数値を通貨として表示したり、区切り文字を使って表示したりすることもできます。

Format関数の使い方

Format関数を使用する際の構文は以下の通りです。

【基本構文】

Format( expression [,format [,firstdayofweek [,firstweekofyear]]])

[ ]で囲まれた部分に関しては省略が可能です。
各引数についての説明は以下の表を参考にしてください。

formatについては、既存で使用できる書式の数が多く、ユーザー側で定義する方法も様々あるため、後ほどいくつかの項目に分けて詳しく解説します。
その他の引数に設定できる値は以下の表の通りです。

firstdayofweek

firstweekofyear

日付・時刻の表示設定

特定の値を日付や時刻を表示する文字列に変換する場合、主に2通りの書式指定方法があります。

１つはVBA側で既に定義されている書式を使用する方法、もう１つは書式指定文字を使用してユーザー自身で書式を指定する方法です。

それぞれの指定の仕方について、説明をしていきたいと思います。

定義済みの書式を使用して表示する

まずは、定義済みの書式を使用する方法について解説します。

既存の書式を使用する場合の基本構文は、次の通りです。

【基本構文】

Format(値, "書式名")

指定できる書式名の一覧を以下の表にまとめました。

以下はサンプルコードです。

【サンプルコード】

Sub sampleDate1()

　Dim str As String

　str = "2025/01/01 15:30:45"

　MsgBox "General Date：" & Format(str, "General Date") & vbCrLf & _
         "Long Date　　：" & Format(str, "Long Date") & vbCrLf & _
         "Medium Date：" & Format(str, "Medium Date") & vbCrLf & _
         "Short Date　　：" & Format(str, "Short Date") & vbCrLf & _
         "Long Time　　：" & Format(str, "Long Time") & vbCrLf & _
         "Medium Time：" & Format(str, "Medium Time") & vbCrLf & _
         "Short Time　　：" & Format(str, "Short Time")

End Sub

【実行結果】

ユーザー定義の書式を使用して表示する

次に、既存の書式は使わずにユーザー自身で書式を指定する方法について解説します。

１から書式を設定する場合は、書式指定文字を使用して、出力したい文字列の形式を作成します。

以下の表は、使用できる文字の一例です。

日付に使用できる文字

時刻に使用できる文字

実際に様々なフォーマットでの出力例を出すサンプルコードを以下にまとめました。

【サンプルコード】

Sub sampleDate2()

　Dim str As String

　str = "2025/01/01 01:02:03"

　MsgBox Format(str, "yy/m/d") & vbCrLf & _
         Format(str, "yyyy/mm/dd") & vbCrLf & _
         Format(str, "ddddd ttttt") & vbCrLf & _
         Format(str, "dddddd") & vbCrLf & _
         Format(str, "h:n:s AM/PM") & vbCrLf & _
         Format(str, "hh:nn:ss AMPM")

End Sub

【実行結果】

日付の西暦と和暦を変換して表示する

書式指定文字を使用して、西暦から和暦に、あるいは和暦から西暦に変換して表示することもできます。

【サンプルコード】

Sub sampleDate3()

  MsgBox Format("2025/01/01", "ge m月d日") & vbCrLf & _
         Format("2025/01/01", "ggee年m月d日") & vbCrLf & _
         Format("2025/01/01", "ggge年m月d日") & vbCrLf & _
         Format("令和7年1月1日", "yyyy/mm/dd")
End Sub

【実行結果】

日付に対応する曜日を表示する

書式指定文字には、曜日を指定できる文字も存在します。

【サンプルコード】

Sub sampleDate4()

  MsgBox Format("2025/01/01", "ddd") & vbCrLf & _
         Format("2025/01/01", "dddd") & vbCrLf & _
         Format("2025/01/01", "aaa") & vbCrLf & _
         Format("2025/01/01", "aaaa")

End Sub

【実行結果】

数値・文字列の表示設定

日時以外の書式を定義する場合は、以下の指定文字を使用します。

【サンプルコード】

Sub sampleStr1()

  Dim str As String

  str = "ABC"

  MsgBox Format(str, "@、@、@") & vbCrLf & _
         Format(str, "@@") & vbCrLf & _
         Format(str, "@@@") & vbCrLf & _
         Format(str, "@@@@@") & "です" & vbCrLf & _
         Format(str, "!@@@@@") & "です" & vbCrLf & _
         Format(str, "&&&&&") & "です"

End Sub

【実行結果】

0(ゼロ)埋めをして数値を表示する

0(ゼロ)埋めで数値を表示する場合は以下のように記述します。

【サンプルコード】

Sub sampleStr2()

    Dim str As String

    str = "123"
    
    MsgBox Format(str, "00") & vbCrLf & _
           Format(str, "000") & vbCrLf & _
           Format(str, "0000") & vbCrLf & _
           Format(str, "00000")

End Sub

【実行結果】

小数点以下の桁数を設定する

小数点以下の桁数を設定する方法について確認してみましょう。

【サンプルコード】

Sub sampleStr3()

    Dim str As String
    str = "123.4567"
    
    MsgBox Format(str, "0.00")

End Sub

【実行結果】

指定の桁数以下の数字は四捨五入されます。

文字列の表示を設定する

文字の大小を変換する方法について確認してみましょう。

【サンプルコード】

Sub sample4()

    Dim str1 As String, str2 As String

    str1 = "HELLO"
    str2 = "hello"
    
    MsgBox Format(str1, "<") & vbCrLf & Format(str2, ">")

End Sub

【実行結果】

Format関数を使う際の注意点

Format関数で返される値は、数値などではなく文字列である点に注意が必要です。

例えば、返却された値をIf構文の判定に使用する際は、以下のように 「””」で囲み文字列として比較する必要があります。

【処理内容の例】

If Format(Cells(1, 1), "m") = "5" Then
    処理内容
End If

日時を数値で扱いたい場合、日付であれば「Year関数、Month関数、Day関数」を、時刻であれば「Hour関数、Minute関数、Second関数」を使用する方法があります。

状況に応じて使い分けるといいでしょう。

まとめ

Format関数はVBAを扱う上でとても重要な関数です。

使いこなせるようになるまで、ぜひ頑張ってみてください！

関連記事

• VBAとは
• Excelで覚えておくべき17の基本関数と目的別逆引き一覧
• オートフィルターの設定・解除方法
• メッセージボックスの設定方法
• セルの値を取得・上書きするValueプロパティの使い方を解説
• 【Excel VBA】Rangeでセルを範囲選択する方法を解説

VBAの勉強方法は？

書籍やインターネットで学習する方法があります。昨今では、YouTubeなどの動画サイトやエンジニアのコミュニティサイトなども充実していて多くの情報が手に入ります。
そして、より効率的に知識・スキルを習得するには、知識をつけながら実際に手を動かしてみるなど、インプットとアウトプットを繰り返していくことが重要です。特に独学の場合は、有識者に質問ができたりフィードバックをもらえるような環境があると、理解度が深まるでしょう。

ただ、VBAに限らず、ITスキルを身につける際、どうしても課題にぶつかってしまうことはありますよね。特に独学だと、わからない部分をプロに質問できる機会を確保しにくく、モチベーションが続きにくいという側面があります。独学でモチベーションを維持する自信がない人にはプログラミングスクールという手もあります。費用は掛かりますが、その分スキルを身につけやすいです。しっかりと知識・スキルを習得して実践に活かしたいという人はプログラミングスクールがおすすめです。

プログラミングスクールならテックマニアがおすすめ！

ITスキル需要の高まりとともにプログラミングスクールも増えました。しかし、どのスクールに通うべきか迷ってしまう人もいるでしょう。そんな方にはテックマニアをおすすめします！これまで多くのITエンジニアを育成・輩出してきたテックマニアでもプログラミングスクールを開講しています。

このような特徴を持つテックマニアはITエンジニアのスタートラインとして最適です。
話を聞きたい・詳しく知りたいという方はこちらからお気軽にお問い合わせください。