アクティブセルを元号年月日に置き換えたいです。

Question

基本的な質問で、失礼します。
化けてしまった年月日の「シリアル値」を元号年月日に変えたいです。
元号から始まる場合は処理をせず、シリアル値であれば、元号年月日に変えセル値を置き換えたいです。
下記の
ActiveCell.Value = ipt 'ここが問題。
で、アクティブセルが「平成 27年 2月26日」に置き換わらないで、シリアル値のままです。
VBAのステップインで次式の「If InStr(1, ipt, "明") = 1 Or ・・・」に処理が移ったところで上式の値を見ると、
左辺が38683のシリアル値、右辺がFormat(ipt, "ggge年mm月dd日")で変換された平成17年11月27日になっています。
「38683」が「平成17年11月27日」に置き換わるはずなのに変わっていません。
よろしくお願いします。

Sub Macro1()
Dim ipt As String

'年月日を取得し、（1860/6/19）等を削除（旧暦の処理）
Range("F1").Select
新件数 ＝ 10
ActiveCell.Offset(新件数 + 1, 0).Range("A1").Select

For 行 = 新件数 + 1 To 2 Step -1
ActiveCell.Offset(-1, 0).Range("A1").Select
ipt = ActiveCell.Value
'
If ipt = "" Then GoTo 99
If InStr(1, ipt, "明") = 1 Or InStr(1, ipt, "大") = 1 Or InStr(1, ipt, "昭") = 1 Or InStr(1, ipt, "平") = 1 Or InStr(1, ipt, "令") = 1 Then GoTo 99

' 年月日の「シリアル値」を元号年月日に変える　　　2020/11/21　変更

     ipt = Format(ipt, "ggge年mm月dd日")
     ActiveCell.Value = ipt     'ここが問題。アクティブセルが「平成 27年 2月26日」に置き換わらない。
   
  If InStr(1, ipt, "明") = 1 Or InStr(1, ipt, "大") = 1 Or InStr(1, ipt, "昭") = 1 Or InStr(1, ipt, "平") = 1 Or InStr(1, ipt, "令") = 1 Then GoTo 99      Else
  
 End If

99 Next 行

Comments

[sazi]

シートがどのような内容になっているのか示してください。
また、コードもコードブロックで括って下さい。

[masatsutsui]

ありがとうございます。シートの内容とは？
何を調べて提供すればいいですか？

[sazi]

そのマクロでアクセスしているシートの初期のデータ状態です。（キャプチャーで良いです）
コードからセルの場所と値を推測するのは面倒です。

[masatsutsui]

解消しました。ありがとうございました。
変更対象のセルを文字列書式にしたいことを初めに述べるべきでした。

Answer 1

化けてしまった年月日の「シリアル値」を元号年月日に変えたいです。

シリアル値がそのまま表示されているなら、そのセルの書式が標準になっています。

If InStr(1, ipt, "明") = 1 Or InStr(1, ipt, "大") = 1 Or InStr(1, ipt, "昭") = 1 Or InStr(1, ipt, "平") = 1 Or InStr(1, ipt, "令") = 1 Then GoTo 99

上記判定が問題無いということは、変更対象外のセルは文字列書式という事ですので、統一するにはそのセルの書式を文字列に変更して下さい。

ActiveCell.NumberFormatLocal = "@"
ActiveCell.Value = ipt

Answer 2

まずは、シリアル値とはなにか、エクセルは日付をどのように管理しているかを理解しましょう。

エクセルのシリアル値とは？日付管理の仕組みを理解しよう

表示されているものとセルに実際に格納されている値は異なるということです。

逆にセルに日付と解釈できる値を入力すると自動でシリアル値に変換されて格納されます。
例えばセルに「令和2年11月22日」と入力してから、イミディエイトウィンドウで、

?CLng(ActiveCell.value)

と入力してEnterキーを押してみてください。
44157
とシリアル値が表示されます。

それが理解できたら、やりたいことは、
セルの日付の表示を和暦表示にしたいのか、
セルの値自体を日付ではなく和暦の文字列にしたいのか、
どちらなのか明確にしましょう。

エクセル上では日付はシリアル値のままの方が扱いやすいし、日付を文字列に変換することにメリットはありません。

ということで、シリアル値のまま書式設定で和暦表示にするのがお勧めです。
VBAでは下記の1行のコードで可能です。

ActiveCell.NumberFormatLocal = "ggge年m月d日"

---

日付形式（シリアル値）で格納しておくと、

?ActiveCell.Value '標準の日付書式
2020/11/22

?CLng(ActiveCell.Value) 'シリアル値
 44157

?CLng(ActiveCell.Value) '表示されている書式
令和2年11月22日

と自由に値を取り出せますし、
並べ変えたり、経過日数を計算したりもできます。

書式を文字列にしてしまうとそれができなくなります。

Comments

[masatsutsui]

上のsazさんiのやり方で解消しました。ありがとうございました。
貴方の方法でもこの時点で上手くいったのですが、後の処理でシリアルになったようでした。
変更対象のセルを文字列書式にしたいことを初めに述べるべきでした。
ありがとうございました。

[masatsutsui]

sajiさんのやり方で解消しました。ありがとうございました。
次の処理でまたシリアル値になってしまいました。変更対象のセルを文字列書式にしたいことを初めに述べるべきでした。

[hatena19]

日付を扱うときに日付書式(シリアル値)がいいのか、文字列書式でいいのかの検討は十分された方がいいでしょう。