《 USB3.0 の国内正規品のTOSHIBA USBメモリ 》
![]() | TOSHIBA USBメモリ 32GB USB3.0/2.0対応 キャップ式 ホワイト 1年保証 (国内正規品) UNB-3A032GW |
価格: ¥ 1,943 | |
東芝(TOSHIBA) |
私の仕事用のPC(Windows機)にはまだ、新元号「令和」対応の更新がきていません。
WordのVBエディタを起ち上げ、
Sellection.Range.InsertAfter Format(Date,"ggge年m月d日")
と書き、これを実行すると、Word文書のカーソル位置に、
「平成31年5月9日」
と出ます。
この文書を受け取った方から即座に、
「平成31年に、5月9日なんて日はないですよ。」
との指摘を受けることになります。
そこで、コードを次のように書き換えました。
Sellection.Range.InsertAfter "令和元年" & Format(Date,"m月d日")
これで、「令和元年5月9日」と出るようなりました。
今年いっぱい(12月31日まで)は、これでいけます。
来年になるまでには改元更新がなされるはずなので、
来年にはコードをまた元に戻し、Format(Date,"ggge年m月d日")とすれば、
「令和2年1月3日」
などと出てきます。
![](https://blogimg.goo.ne.jp/user_image/2e/d1/38eb9aae30e4c640c8aecc3df626fe49.jpg)
Format関数、便利ですね。
Dateの値の表示形式を、自由自在に変えてくれますから。
では、また。