Sub 西暦を元号_令和_平成_昭和_大正_明治に変換する()

    西暦 = Range("B1") '1900年～
    下2桁 = Right(西暦, 2)
    
    Select Case 西暦
    
        Case 1900 To 1912 '明治の場合
        
            元号 = "明治"
            年 = 下2桁 + 33
        
        Case 1912 To 1926 '大正の場合
        
            元号 = "大正"
            年 = 下2桁 - 11
        
        Case 1926 To 1988 '昭和の場合
        
            元号 = "昭和"
            年 = 下2桁 - 25
        
        Case 1989 To 1999 '平成の場合1
            
            元号 = "平成"
            年 = 下2桁 - 88
        
        Case 2000 To 2018 '平成の場合2
        
            元号 = "平成"
            年 = 下2桁 + 12
        
        Case 2019 To 3000 '令和の場合
        
            元号 = "令和"
            年 = 下2桁 - 18
    
    End Select
    
    Range("A2") = 元号: Range("B2") = 年
    
    MsgBox "西暦" & 西暦 & "年は" & 元号 & 年 & "年です"

End Sub