エクセルで昭和・平成・令和を西暦に変換するフォームを作成方法

昭和●●年って西暦で何年？調べるの結構面倒だと思ったことありませんか？

令和の時代になり和暦を使わずに西暦を基本に使うようになっていますが、簡単に変換できるフォームがあると便利なので、作り方をご紹介します。

和暦から西暦変換フォーム

まず始めに、全ての事をマクロ上で行う事もできるのですが、とても複雑なVBAが必要になるので、ここでは体裁は無視してエクセル関数とユーザーフォームを使って、比較的簡単に作ってみました。

ワークシート上の準備

繰り返しになりますが、今回は体裁は無視なので、まず始めにエクセルワークシート上に和暦と西暦の表を作ります。

薄い青色のセル（A2とB2）はユーザーフォームから転記されるデータで、薄い緑色にはエクセル関数が入っています。

セルA4から下に和暦を入力していきます。アナログですが、昭和元年～令和82年（西暦2100年）まで入力してあります。

セルB4から下に西暦を入力していきます。1926年から2100年まで入力していますが、和暦が変わった年（昭和64年・平成元年）と（平成31年・令和元年）はそれぞれ西暦が入力されています。

セルC2には、ユーザーフォームから転記された元号（セルA2）と年（セルB2）を結合させる数式をいれるので、このようになります。

A2は和暦、B2は年数、B1は年を＆で値を順番にくっつけただけなのですが、もちろんVBAでやることも可能ですが、ここでは省略します。

C4は結合された「平成5年」をA5からB181の中から探して表示するVLOOKUP関数を使って表示させていますが、この説明もここでは省略します。

これで、ワークシート上での作業は終了です。

セルの値を結合する

エクセルで苗字と名前2つのセルの値をくっつける（セルの値の結合） CSVファイルなどを取り込んだ時に、苗字と名前が別々のセルに分かれていることが多いと思いますが、１つのセルに結合して表示したいと思ったことありませんか？ 例えば…

エクセルVBAの準備

和暦を入力して西暦を表示させるには、自分自身で自由にパーツを配置して作ることができるのでとても便利なユーザーフォームを使用します。

ここでは、オプションボタンで元号を選択して、テキストボックスに年数を入力してから、コマンドボタンを押して西暦をラベルに表示させるという方法をとります。

例えば平成5年の西暦を知りたければ、「平成」にチェックして「5」テキストボックスに入力して「変換」ボタンを押せば、「西暦」と書いてあるラベルが「1993」と表示が変わります。

波乗りアヒル

では、そのようになるようにコマンドボタンにVBAコードを書きこみましょう。

波乗りアヒル

これで完成です、体裁無視すれば簡単にできます。
もちろんItemを使って、VBAコードを記載すればワークシートは白紙で綺麗なままなので、体裁は良くなりますが大変ですよ。

関連記事