エクセルで同一セルに2013と入力したら平成25年のみを表示する方法

Question

エクセルで月別の集計表を作成しています。

同じ課のメンバーから「同一のセルに2013と入力したら平成25年と自動的に変換できたらいいね」と相談受けました。

エクセルで

セルの書式設定→ユーザー定義→ggge”年”と入力→ok

にしたあと、2013と入力して「平成25年」でなく「明治38年」の表示（他にも1905/07/15）など）

です。

関数を利用して、他のセル表示は問題ないのです。

同一セルでの変換です。

この問題を解決する方法を教えて下さい。

ＶＢＡ・マクロ利用ならプログラム例も掲示して頂ければ有難いです。

申し訳ありませんが、よろしくお願いします。

もし、マイクロソフト社の方が見ていただいたなら、ＵＰＤＡＴＥプログラムに追加して頂けるならありがたいです。

御検討お願いします。

Answer 1

VBAになります。

A列のみその様に変換できるようにする場合の例です。

シートの見出しで右クリック-[コードの表示]で、以下を貼り付けて下さい。

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

 Application.EnableEvents = False

 With Target

 .Value = DateSerial(.Value, 1, 1)

 .NumberFormatLocal = "ggge年"

 End With

 Application.EnableEvents = True

End Sub

※Ａ列以外の場合は、Range("A:A")のA:Aを適当な範囲（E1:E100等）に変えてください。

Answer 2

nombo さん、いつもアドバイスありがとうございます。

鑓水健氏 さん、こんにちは。

少々お時間が経過したのですが、nombo さんのコメントは確認していただけたでしょうか ?

手元にある環境で nombo さんが紹介されているコードで動作を確かめてみたところ、 2013 と入力して 「平成25年」 と入る動作になりましたよ。もし違った動作になる場合は遠慮なく追加で質問をしてみてくださいね。

同様の質問でこちらのスレッドを見られた方にも参考としていただけるよう [ 回答としてマーク ] をさせていただきました。

回答としてマーク後も引き続き返信は可能なので、何かありましたら返信をお待ちしています。