朧の.Netの足跡
問合せ先:support@oborodukiyo.info サイト内検索はこちら
エクセルVBA 和暦も普通に認識する





エクセルで日付を扱う時に西暦でないと不都合がありそうな気がしますが、和暦でもきちんと認識してくれます。



Option Explicit

Public Sub ConvertWareki()
    Dim wareki As Date
    
    'wareki = ActiveSheet.Range("A1").Value
    '数字が全角でもきちんと認識される
    wareki = "令和2年1月15日"
    MsgBox IsDate(wareki)
    '2020/1/15と表示
    ActiveSheet.Range("B1").Value = Format(wareki, "yyyy/MM/dd")
    '令和02/01/15と表示
    ActiveSheet.Range("C1").Value = Format(wareki, "gggee/MM/dd")
    
End Sub
        








良いやや良い普通やや悪い悪い

投稿日時評価コメント