EXECEL2003で令和表示

なかなか上手くいかない令和表示をやっと満足のいくモノに
出来ました。

以前のは、シートのチェンジイベントにVBで書き込んでいましたが

今回はブックのチェンジイベントに書き込んでいます。

 

WorkbookのSheetChangeイベントに

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　Dim Reiwa1 As String, Reiwa2 As String, Wareki As Long
　If Target.Column = 2 And Target.Row >= 2 And Target.Row <= 26 Then
　On Error Resume Next
　Wareki = Year(Target) - 2018
　Reiwa1 = """令和" & "1年""" & "m""月""d""日""（""""aaa""""曜日""）"""
　Reiwa2 = """令和" & Wareki & "年""" & "m""月""d""日""（""""aaa""""曜日""）"""
　　If Target >= 43586 And Target <= 43830 Then '2019/5/1~2019/12/31
　　　Target.NumberFormatLocal = Reiwa1
　　　ElseIf Target >= 43831 Then
　　　Target.NumberFormatLocal = Reiwa2
　　Else
　　　Target.NumberFormatLocal = "ggge""年""m""月""d""日""（""""aaa""""曜日""）"""
　　　End If
　　End If
End Sub

 

Reiwa1 = """令和" & "1年"""

Reiwa1 = """令和" & "元年"""

と書き換えれば令和元年と表示されます。

やっとスッキリしました。