Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Excel 2003)
これから作成するエクセルファイルすべてに令和〇年となるようにしたいです
投稿日時: 19/04/19 20:59:52
投稿者: un-pon
メールを送信

私の会社の私のパソコンはネットにつながっていないです。令和に更新するプログラムもやってきません・・・
これからブック開くと、どこでも日付形式で入力すれば5/1以降は令和〇年と表示するようにできないでしょうか?
「令和対応新規ブック」として一つつくっておいて、いつもそこから名前を付けて保存するかたちでもいいと思っています。ただVBAがあると他の人に渡しづらいです・・・

回答
投稿日時: 19/04/19 21:22:24
投稿者: ライスマン

下記を参考に
 
更新プログラムが適用されるまでの間は、条件付き書式かユーザー定義表示形式を使うのが簡単(?)だと思われます。
https://www.waenavi.com/entry/20190401/1554087637

回答
投稿日時: 19/04/19 21:38:03
投稿者: ライスマン

自分のパソコンなら
自宅に持ち帰り更新してくれば良いんじゃないですか?
そんなわけにはいかないのですか?

回答
投稿日時: 19/04/19 21:48:40
投稿者: ライスマン

サポートが切れている古いバージョン(2007以前)のエクセルは新元号対応にならないですね〜
これが参考になるかどうか
https://supvalue.net/archives/2467

回答
投稿日時: 19/04/19 23:47:51
投稿者: xls-hashimoto

Excel2003をMicrosoftが「令和」対応にしてくれるかどうかはわかりません。
 
Excel2003で「令和」をVBAやアドインを使わずに表示させるには、
 
「日付の新元号対応」について質問されたperiodayoさんへ
https://www.moug.net/faq/viewtopic.php?t=78104
 
でも書きましたが、
入力セルが表示セルなら、「セルの書式設定」−「表示形式」−「ユーザー定義」で
「種類(T)」を
表示セルが「令和元年」なら
[<43586]ggge"年"m"月"d"日";[<43831]"令和元年"m"月"d"日";ggge"年"m"月"d"日"
 
表示セルが「令和2年」なら
[<43831]ggge"年"m"月"d"日";[<44197]"令和2年"m"月"d"日";ggge"年"m"月"d"日"
 
表示セルが「令和3年」なら
[<44197]ggge"年"m"月"d"日";[<44562]"令和3年"m"月"d"日";ggge"年"m"月"d"日"



と必要な年数だけ登録して選択させます。

2019/5/1	 43586	令和元年5月1日
2020/1/1	 43831	令和2年1月1日
2021/1/1	 44197	令和3年1月1日
2022/1/1	 44562	令和4年1月1日
2023/1/1	 44927	令和5年1月1日
2024/1/1	 45292	

 
入力セルが表示セルと異なるなら、「んなっとさん」の式が使えます。
A1セルを入力セルとした場合
 
B1
=IF(A1<43586,TEXT(A1,"ggg"&IF(TEXT(A1,"e")="1","元","e")),"令和"&TEXT(TEXT(A1,"yyyy")-2018,"[=1]元;0"))&TEXT(A1,"年m月d日")
 
理解しやすいように改行させると、
=IF(A1<43586,
TEXT(A1,"ggg"&IF(TEXT(A1,"e")="1","元","e")),
"令和"&TEXT(TEXT(A1,"yyyy")-2018,"[=1]元;0"))&TEXT(A1,"年m月d日")
 
もっと理解しやすいように改行を増やし字下げをさせると、式が目で追えます。
=IF(A1<43586,
     TEXT(A1,"ggg"
                 &IF(TEXT(A1,"e")="1",
                     "元",
                     "e"
                     )
          ),
      "令和"
           &TEXT(
                 TEXT(A1,"yyyy")-2018,
                                      "[=1]元;0"
                 )
     )
     &TEXT(A1,"年m月d日")
 
平成以前と令和で年数の求め方を変えてあり、明治以降令和まで対応しています。
 
これらのことはExcel2003で動作確認済みです。

投稿日時: 19/04/30 20:05:22
投稿者: un-pon
メールを送信

ライスマンさん、xls-hashimotoさんありがとうございます。
お二方とも大変わかりやすくおしえてくださり、解決できました!