Excel2007で西暦1900年以前の関数は？

解決済

質問者：aerio
質問日時：2010/09/13 17:31
回答数：4件

Excel2007で西暦1900年以前の関数は？
Excel自身は1901年以降に関しては日付関数で表現されています。
例えば明治40年は1907年に直ぐ置き換わります。
このように西暦と元号を置き換えることができる仕組みか関数はありませんか？

年号表はあります。従って目で見ながら置き換えるのは出来ます。
そうではなく、一方を入力すると片方が表示される仕組を探しています。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

No.1ベストアンサー

回答者： CottoN2007
回答日時：2010/09/13 17:39

つかえるかな？

和暦←→西暦の変換
http://www.vector.co.jp/soft/win95/business/se45 …

- 0
- 件

通報する

この回答へのお礼

私がイメージしていたのはこれでした。ありがとうございました。

早速ダウンロードしましたが、マクロ、セキュリティ、無効等の語句が出てきて
まだうまく行っておりません。

通報する

お礼日時：2010/09/13 22:41

No.2

回答者： KURUMITO
回答日時：2010/09/13 18:14

１９００年１月０日以降はエクセルではシリアル値としてすなわち数値として取り扱われており、西暦と元号を置き換えることは簡単にできますが、１９００年以前を例えば1989/12/31と入力してもシリアル値としては理解されずに単なる文字列として理解されます。

したがってセルの表示形式などの操作で元号に置き換えることもできません。
Ａ１セルに1989/12/31と入力したものを式を使って明治３１年１２月３１日と表示させることはできますが日数の計算などに使えるものではありません。
なお、参考までに、Ａ１セルに1989/12/31などと入力してＢ１セルに2010/9/13と入力したときの年齢の計算は次のような式になります。

=DATEDIF(DATE(LEFT(A1,FIND("/",A1)-1)+200,MID(A1,FIND("/",A1)+1,FIND("/",A1,FIND("/",A1)+1)-FIND("/",A1)-1),RIGHT(A1,LEN(A1)-FIND("/",A1,FIND("/",A1)+1))),IF(ISNUMBER(B1)=TRUE,DATE(YEAR(B1)+200,MONTH(B1),DAY(B1)),DATE(LEFT(B1,FIND("/",B1)-1)+200,MID(B1,FIND("/",B1)+1,FIND("/",B1,FIND("/",B1)+1)-FIND("/",B1)-1),RIGHT(B1,LEN(B1)-FIND("/",B1,FIND("/",B1)+1)))),"Y")

- 3
- 件

通報する

No.3

回答者： layy
回答日時：2010/09/13 21:54

ロジックが明確なわけですから、

ＶＢＡで自作関数として準備したらと思います。
（西暦渡して元号を返す関数<FUNCTION>とか。）

いろんな場面で使うとなると数式よりはこの方が便利ではないでしょうか？。
何やっているかもコメントできます。

- 0
- 件

通報する

No.4

回答者： tom04
回答日時：2010/09/13 22:19

こんばんは！

1900年1月1日より前の日付は文字列（明治31年○月○日）としての表示は可能ですが、シリアル値でなないので、かなり強引な方法でやってみました。

↓の画像でA列は手入力しているとします。
B2セルに
=IF(A2="","",IF(LEFT(A2,2)="明治",IF(RIGHT(LEFT(A2,4),2)*1<33,1867+RIGHT(LEFT(A2,4),2)*1&MID(A2,FIND("年",A2),LEN(A2)-FIND("年",A2)+1),TEXT(A2,"yyyy年m月d日")),TEXT(A2,"yyyy年m月d日")))

明治の二桁での数式ですので、もし明治一桁も対応したいのであれば数式も少し変わってきます。

という数式を入れ、オートフィルで下へコピーしています。

明治33年1月1日以降であればシリアル値ですので、計算等に利用できますが、
それ以前は単なる文字列ですので、見た目だけの表示になります。

以上、参考になればよいのですが・・・m(__)m