【文字列】としてセルに入力された日付のデータを【数値】としての日付データに変換するマクロ

2022年11月12日

Excelのマクロを使って「文字列」としてセルに入力された日付のデータを「数値」としての日付データに変換する必要があり、どういうふうに加工すればよいかを調べてみたので備忘記録代わりに記事にしておきます。

結論、Replace関数を使って解決しました。

【文字列】としてセルに入力された日付のデータを【数値】としての日付データに変換するマクロ

今回は下記の画像のようにB3セルに「文字列」としての日付のデータが記載されていることを前提にします。

文字列とはどんな状態かというと該当のセルを選択した際にExcelの数式バーにこういった状態で表示されているものです↓

文字列のデータはセルにデータを入力した際に左側に寄った形で表示されます。

Excelで作成したデータを会計ソフトに取り込む際には「日付」のデータは必須項目になることが多く、よく使うのですが、今回のように「文字列」として日付がある場合には会計ソフトに取り込む際にエラーになることがあります。

その場合には日付のデータ形式を「文字列」から「数値」に変換する必要があります。

「数値」形式の日付のデータとは例えば下記の画像のような状態をいいます。セルに入力した際に右側に寄った形で表示されます。

数式バーの部分を確認してみるとこんな感じに表示されているはずです↓

この状態にしてあげると基本的には会計ソフトに取り込む際にも問題なく取り込むことができます。

具体的には「文字列」である「2022年11月9日分」から「数値」である「2022/11/9」に変換すればよいわけです。

で、そこで使うのがReplace関数になります。

Replace関数は指定した文字を、別の指定した文字に変換することができる関数です。

今回のケースにあてはめていくと

「2022年11月9日分」というデータのうち、「年」を「/」に変換することで

「2022/11月9日分」というデータにすることができます。

続いて

「2022/11月9日分」というデータのうち「月」を「/」に変換することで

「2022/11/9日分」というデータにすることができます。

最後に

「2022/11/9日分」というデータのうち「日分」を「（空白）」に変換することで

「2022/11/9」というデータができあがることになります。

それをマクロで表現するとこんな感じになります↓

Sub test1()

'■文字データの日付から数値データの日付に変換するマクロ

'加工①　「年」を「/」に置き換え

Range("c3") = Replace(Range("b3").Value, "年", "/")

'加工②　「月」を「/」に置き換え

Range("d3") = Replace(Range("c3"), "月", "/")

'加工③　「日分」を「（空欄）」に置き換え

Range("e3") = Replace(Range("d3"), "日分", "")


End Sub

マクロを実行すると下記の画像のような結果になります↓

これで「文字列」としての日付のデータから「数値」としての日付のデータを取得することができました。

変数を使用して【文字列】としてセルに入力された日付のデータを【数値】としての日付データに変換するマクロ

ここまでの説明でどういう操作で「文字列」の日付を「数値」としての日付に加工するのかについて、理解できたと思います。

が、

実際に現場でさきほどのコードを使うのは少しまどろっこしいのと、他の作業への応用も兼ね、変数を使ってコードを書きなおしてみました。

それがこちらのコードになります↓

Sub test()

'■文字データの日付から数値データの日付に変換するマクロ

'変数宣言

Dim tmp As Variant

tmp = Replace(Range("b3").Value, "年", "/")
tmp = Replace(tmp, "月", "/")
tmp = Replace(tmp, "日分", "")

Range("f3").Value = tmp

End Sub

このコードを実行すると下記の画像のようになります↓