• ベストアンサー

エクセルで和暦のみを1つのセルに記す方法

A1に =TODAY()をいれます。 書式の設定は・・・ee/m/d と していますので 現在15/5/6と記されています。 そして B1にA1の和暦のみ・・・ C1にA1の月のみ・・・を 入れたいのです。 現在 B1に =IF(A1="","",YEAR(A1) C1に =IF(A1="","",MONTH(A1) D1に =IF(A1="","",DAY(A1) としるしおのおのの答えが出ていますが B1にはYEARではなくて 和暦で回答がほしいのです。 つまり・・・15 と答えが記されてほしいのです。 この場合はどのように設定すればよいですか? なかなかうまくできなくって・・・・ よろしくお願いいたします!!!

質問者が選んだベストアンサー

  • ベストアンサー
  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.3

こんにちは。maruru01です。 和暦の数字を取り出すなら、B1に、 =IF(A1="","",TEXT(A1,"ee")) で出来ます。 ちなみに月と日も同様に、 =IF(A1="","",TEXT(A1,"m")) =IF(A1="","",TEXT(A1,"d")) で出来ます。 (月と日は、質問欄の方法でも十分ですが。) あと、No.2の人のやり方ですが、B1に、 =IF(A1="","",A1) と入力して表示形式を"ee"で十分だと思いますが。

その他の回答 (2)

  • software
  • ベストアンサー率28% (24/84)
回答No.2

B1に =IF(A1="","",DATEVALUE(YEAR(A1) & "/1/1")) と入力して、セルの書式を"ee"とします。

  • yoneda_16
  • ベストアンサー率47% (166/350)
回答No.1

書式を「e」または「ee」(ゼロ埋めしたい場合)としてはいかがですか。 ちなみに、「ggg」とすると「平成」と出るようです。おもしろいような余計なような。

関連するQ&A

  • 西暦を和暦に変換させたい

    A1に氏名、C1に誕生日を西暦で入力し、D1に年齢を表示させる事が出来ました。 C1に未入力のセルがあると、コピーするとエラーになってしまい、どうにか=IF(C1="","",DATEDIF(C1,TODAY(),"y"))で何とか解決しました。 さて、次はB1に和暦を表示させたいのです。次の条件で出来るでしょうか? 「セルの書式設定から和暦を表示する」を使わない。 (空欄があってもエラー表示無く(空欄のままで)コピーできる方法があれば良いのです。 つまり、C1に入力したものをB1に和暦でC1に年齢を同時に表示させ、未入力は空欄のままにしたいのです。

  • エクセル 年度表示のカスタマイズ

    エクセルで今年の年度を表示したいのですが、年度を3月で区切るのではなく任意の月で区切りたいと思います。 そして、表示形式は和暦としたいと考えています。 和暦でなければ =IF(MONTH(TODAY())<=3,YEAR(TODAY())-1,YEAR(TODAY())) で3の部分を任意の月に変更すればできましたが、書式設定でユーザー定義>ggge"年度"としたり、日付>和暦とすると明治○○年度と表示されてしまいます。 これをちゃんと和暦で今年の年度に表示するにはどうしたらよいでしょうか? 今のところ、8月を年度区切りとしたいと考えていますので、お分かりの方、アドバイスをお願いいたします。

  • 和暦、西暦の変換について(VBA)

    こんにちは、VBAで西暦年から和暦年への変換でエラーが出て原因がよく分かりません。 下のようにして、変換してやろうとしてもyear1,month1,day1の型が違いますとかのエラーが出て、変数の型をInteger、String、 Variantでとろうとしてもエラーばかりです、宜しくお願いします。 もっと簡単に出来る方法があると思うのですが、よく分かりません。 曜日まで「平成○年○月○日(木)」というような表示形式にしたいのです。 year1 = Year(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)")) month1 = Month(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)")) day1 = Day(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)")) youbi1 = Right(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)"), 4) - Right(Format(Calendar1_F.Value, "yyyy/m/d/(aaaa)"), 3) TextBox3.Value = "平成" + (year1 - 1988) + "年" + month1 + "月" + day1 + "日" + "(" + youbi1 + ")"

  • エクセル セルが空欄の時は何も表示したくないのですが・・・

    助けてくださーい! =IF(DATE(YEAR(D22),MONTH(D22),1)<=DATE(YEAR(TODAY()),MONTH(TODAY())+2,1),"期限間近","") 免許証の有効期限が2ヶ月前の場合「期限間近」と表示されるようにしました。 ところが・・・ 有効期限欄が何も入ってない時も「期限間近」とじされてしまいます。 セルが空欄の時は何も表示しないようにするには何を追加すればよいのでしょうか?? おわかりの方教えてくださーい!

  • 2つのセルが同じ数字なら色ならセルを塗り潰す方法

    セルG3に以下の計算式が入っています。 =IF(MONTH(TODAY())<=3,YEAR(TODAY())-1,YEAR(TODAY()))&"年度" これは現在の年度を表す計算式みたいです。 質問した現在でのG3は「2015年度」と表記されます。 次にJ11に「2015」と入力した時に(数字のみ入力です。)J11が赤色で塗りつぶされる方法はどの様にすれば良いのでしょうか?

  • エクセルで、セル内の文字を点滅させるには。

    現在、エクセルで運転免許証の有効期限を管理していす。 L3に =IF(L3="","",IF(L3<=TODAY(),"失効",IF(L3<=DATE(YEAR(TODAY()),MONTH(TODAY()),DAY(TODAY())+15),"間近",""))) この関数を入れて管理していますが、失効 が表示されたらその文字を点滅できればと思っています。 よろしくお願いします。

  • セルが今月に該当したらその列を塗りつぶし方法

    WINDOWS XP EXCELL 2003です。 いつもお世話になります。 ご指導を仰ぎたいのは参照図を参考にして、 E2が今月(この場合は3月)に該当したら 「E3~」の列の指定範囲に色づけをしたい。 私が考えた下記の数式は 条件付書式で設定したが列で1つしか色付けができませんでした。 =AND(YEAR(B1)=YEAR(TODAY()),MONTH(B1)=MONTH(TODAY())) 参照図の内容は A列 文字列 B列 文字列 C3 : E10(参照図のみ) ;例として下記のような数式が     =SUMIF(生産入力!$E:$E,TEXT(F$3,"yymm")&$A4,生産入力!$D:$D) 以上ですがご指導いたたければ幸いです。 どうぞよろしく御願いします。

  • エクセルのカウントダウンでアラートを表示させる方法

    エクセルのA列に目標の日付,B列に経過(完了とか途中とか),C列に以下の関数を入れて、目標日までの日数をカウントダウンしています。 =IF(A3>TODAY(),"あと"&DATEDIF(TODAY(),A3,"D")&"日",IF(A3=TODAY(),"今日が期限",IF(A3<TODAY(),DATEDIF(A3,TODAY(),"D")&"日過ぎ"))) この式に追加で、B列が完了になっているものは「○日過ぎを表示しない」という設定をしたいのですが、どのような関数を入れたらいいのでしょうか? 教えてください!!!

  • エクセル 二つの日付でどちらか早い方の日付を表示させたいのです

    エクセル 二つの日付でどちらか早い方の日付を表示させたいのです 現在 Range("A3").NumberFormat = "ggg ee 年 m 月 d 日" Range("A3").Formula = "=DATE(YEAR(C2),MONTH(C2)+1,26)" セルC2の翌月26日 セルA3にC2の条件を入れています ここにもう一つのセルD2の日付の翌月26日の条件を追加 Range("A3").Formula = "=DATE(YEAR(D2),MONTH(D2)+1,26)"  セルD2の翌月26日 二つの条件で、どちらか早い方をセルA3に表示させる には どの様にすれば良いでしょうか よろしくお願いいたします

  • エクセルの数式で、あるセルのアドレス指定に特定セルの値を利用する方法はありますか

    たとえばセルA1,B1,C1,D1にそれぞれ A    B    C    D 大人 子供 "a" =a1 と入力してあって、D1の式の=a1の部分を C1の値を参照して数式を作ることは可能でしょうか 要するにC1に"a"が入力されていれはD1に"大人" C1に"b"が入力されていれはD1に"子供"と表示させたいのです =if(c1="a",a1,if(c1="b",b1,""))のような答えは期待しておりません よろしくお願いします

専門家に質問してみよう