Format関数を書式設定のテッパン関数にする！実務での書式と重要5例

こんにちは、じゅんぱ店長（@junpa33）です。

今回は、文字列操作のVBA関数「Format関数」の使い方についてです。

文字列操作の記事一覧

2021年10月31日 Format関数を書式設定のテッパン関数にする！実務での書式と重要5例 2021年8月9日 Instr関数・InstrRev関数は文字列を検索する。ファイルパス取得に威力 2021年6月23日 Len関数・LenB関数で文字列の文字数を知る方法。使用例で解説します 2021年7月3日 Mid関数・Right関数・Left関数は文字列中の文字を切り出します 2021年8月7日 Replace関数は文字列を置換・削除する利用度の高い関数 2021年7月20日 String関数の使い方は文字を指定した数だけ並べることが出来る 2021年6月28日 Trim関数・RTrim関数・LTrim関数 余分なスペースを取り除く関数の利用法

「関数リファレンス」を調べる

Format関数を書籍設定のテッパン関数にする

Format関数は、エクセルVBAの書式変換のメインとなる関数と言えます。

Format関数は、「指定された書式に変換した値を返す」という機能の関数です。

「数値と通貨型」「日付と時刻」「（日付時刻の）シリアル値」「文字列」のデータについて処理することが出来ます。

エクセルVBAの使い手になるためには、是非とも自分のテッパン関数にしないといけない部類のものになります。

ただ、利用範囲の広いFormat関数だからこそ、やたら意図なしに使いすぎると「訳が分からなくなる（コードの設計意図が見え難くなる）」こともあります。

なので、Format関数を自分のテッパン関数にするには、

「このコード設計の時にはFormat関数一択」という使い方をしていくのがいいでしょう。

多用途で利用できそうなFormat関数であるからこそ、逆に

自分が、実務で使うVBAコード組み立てでのFormat関数は、「この処理ではいつもFormat関数」と決めておくべきです。

Format関数でデータを指定の表示形式に変換する書式

Format関数は、データを指定された書式に変換しその結果を返します。（バリアント型）

Format関数は多用途な関数ですが、構文は比較的シンプルなものです。

適用データ形式は、「日付と時刻」「（日付時刻の）シリアル値」「数値と通貨型」「文字列」になります。

順番に説明していきます。

日付と時刻データについて

Format関数の中で一番表示バリエーションがあるデータ型になります。

普段使いしない表示パターンもありますので、必要なものだけピックアップして覚えていきましょう。

主な書式指定文字は

リストに戻る

（日付時刻の）シリアル値データについて

エクセルの日付時刻はシリアル値によって管理されています。

データとしてシリアル値を指定された書式に変換します。

定義済み書式は

リストに戻る

数値と通貨型について

PCの設定で設定した地域の通貨記号と、3桁区切を表示させるには「Currency」を指定します。

頻度的には、書式指定文字の利用頻度も多いかと思います。

定義済み数値書式は

数値表示書式指定文字

リストに戻る

文字列について

文字列の操作についてはこのような書式指定文字があります。

文字列表示書式指定文字

リストに戻る

Format関数 実務での書式設定と重要5例

Format関数を使うおすすめの場面を独断と偏見で、これからいくつか紹介していきたいと思います。

西暦表示の日付を和暦に変更する方法

Sub Format関数テスト1()

Dim MyVal As Variant
    MyVal = Worksheets("Sheet1").Range("B3")
    Worksheets("Sheet1").Range("C3") = Format(MyVal, "ggge年oooodd日(aaaa)")

End Sub

リストに戻る

有効期限の終了日を求める方法

Sub Format関数テスト2()

Dim MyVal, Mylim As Variant
    MyVal = Worksheets("Sheet1").Range("B3")
    Mylim = Worksheets("Sheet1").Range("C3")
    Worksheets("Sheet1").Range("D3") = Format(MyVal + Mylim, "ggge年oooodd日(aaaa)")

End Sub

リストに戻る

「年月日-時刻」の区切り記号なしの表示方法

Sub Format関数テスト3()

Dim MyVal As Variant
    Worksheets("Sheet1").Range("B3") = Now()
    MyVal = Worksheets("Sheet1").Range("B3")
    Worksheets("Sheet1").Range("D3") = Format(MyVal, "yymmdd-hhnn")

End Sub

リストに戻る

ID番号付加で桁数を統一する方法

MEMO

With～End Withの使い方については、この記事を参考にしてください。

With～End Withの使い方。VBAコードを簡潔に記述する

Sub Format関数テスト4()

Dim MyVal As Variant
Dim i As Long

    Worksheets("Sheet1").Range("B3") = 1
    Worksheets("Sheet1").Range("B4") = 23
    Worksheets("Sheet1").Range("B5") = 155
    Worksheets("Sheet1").Range("B6") = 1797
    Worksheets("Sheet1").Range("B7") = 25791

    For i = 3 To 7
        MyVal = Worksheets("Sheet1").Range("B" & i)
        
        With Worksheets("Sheet1").Range("D" & i)
            .NumberFormatLocal = "@"
            .HorizontalAlignment = xlRight
            .Value = Format(CStr(MyVal), "00000")
        End With
        
    Next i

End Sub

リストに戻る

数値データを単位記号を付けて表示する方法

Sub Format関数テスト5()

Dim MyVal As Variant

    Worksheets("Sheet1").Range("B3") = 13
    Worksheets("Sheet1").Range("C3") = 11

    MyVal = Worksheets("Sheet1").Range("B3") * Worksheets("Sheet1").Range("C3")
    Worksheets("Sheet1").Range("D" & 3) = Format(MyVal, "0.00￥c￥㎡")

End Sub

リストに戻る

Format関数を書式設定のテッパン関数に　まとめ

Format関数を利用するに当たっては、そのたくさんの機能を覚える必要はありません。

自分の業務の中で、必要となる部分を知っておけばまずは十分だと言えます。

この記事の最初の方で、変換できる書式をたくさん説明しましたが、

読んでいるだけで面倒な気分になったのではないでしょうか。

「自分の業務では、このコード設計の時はFormat関数を使う。」

という様な使い方が、Format関数をテッパン関数にする一番の近道になると思います。

短期間でエクセルVBAの独学習得を目指したいなら

エクセルVBAを独学する独習方法は、学習者それぞれ十人十色、多種多様と思われます。

けれども、

出来るだけ効率よく学習するためには、いくつかの大切なポイントがあります。

独学でもVBA習得の中級クラスに達するのはそんなに難しいことではありません。

先人が行った勉強方法をあなたがそのまま利用すればよいということです。

2021年3月18日 エクセルVBAを独学で習得する！ために大切な7つのポイントを解説します

独習のための大切な7つのポイントは、上記記事にて解説しています。

正直、VBAの学習について自分の周りの仕事（業務）からだけ実例を得るのでは効率良い習熟は無理です。

ハッキリ言って、

本当に短い期間でVBA習得を成功させたいなら、今使っている参考書が良書かどうかを判断し、新ツールとしてオンライン学習も取り入れて行うことが、

手っ取り早く短期間習得できるというのは間違いないでしょう。

エクセルVBA最速理解で必要な知識を集めよう！

今回の記事はここまでです。   最後までご覧いただき有難うございました。