新・関数で出来ますか~ 第25回 解答例

B2に以下の式を入れてください。

=TEXT(IF(B1="",1,(B1&"12月31日")+(LEFT(B1)=TEXT((B1&"12月31日")+1,"gg"))),"ｒｒ年")

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（む印さん）

Comments

[投稿情報: maron]

66=TEXT((B1>0)*(B1&"12月31日")+ISNA(MATCH(ROW(),{15,30,94},)),"ggge年")

[投稿情報: y sakuda]

全然追い付かなかったな^^
最初にとりあえず作った128
=CHOOSE(SUM((B1={0,"明治45年","大正15年","昭和64年"})*{1,2,3,4})+1,LEFT(B1,2)&MID(LEFT(B1,LEN(B1)-1),3,2)+1,"明治33","大正1","昭和1","平成1")&"年"
次に考えた97
=LOOKUP(ROW(),{0,15,30,94;"明治","大正","昭和","平成"})&ROW()-LOOKUP(ROW(),{0,15,30,94;-31,14,29,93})&"年"
最後にText使うことは思いついたけど85でストップでした。
=TEXT(DATE(ROW()+1898+SUM(-(ROW()>{14,29,93})),1,1)+OR({15,30,94}=ROW())*360,"ｇｇｇe年")

[投稿情報: maron]

＞"ｒｒ年")
◆知らなかったです。

[投稿情報: からくち]

=TEXT((ROW()-1)*LOOKUP(ROW(),{1,29,45,93},{339,340,354,353.4}),"rr年")
でも、、、
これより長いけど
=IF(Q2="","明治33年",IFERROR(MID("大正01年昭和01年平成01年",FIND(Q2,"明治45年大正15年昭和64年"),4),REPLACE(Q2,3,2,TEXT(MID(Q2,3,2)+1,"00"))))
この方が、、、面白いです

ううん、、、
LOOKUPといい文字使いといい、、、
y sakudaさんと感じ方が似ている様な、、、

[投稿情報: maron]

◆初めて２桁になった、TEXT関数を使わない式です。
94=CHOOSE(MATCH(ROW(),{1,15,30,94}),"明治"&31+ROW(),"大正"&ROW()-14,"昭和"&ROW()-29,"平成"&ROW()-93)&"年"

[投稿情報: からくち]

=TEXT(1898-SUM(N(ROW()>{14,29,93}))+ROW()&IF(OR(ROW()={15,30,94}),-12&-31,-1),"rr年")
文字数が長いからかな、、、
これなら被ってはいないような、、、

[投稿情報: む印]

"rr年"これも からくちさんに教わりました
maronさんも、"rr年"で64字減ですね

それにしても　MATCH(ROW(),{15,30,94},)　と、
こっち方向は全然頭になかったです、、

y sakudaさんのはどれも大作ですね
やはり{15,30,94}が活躍するのかぁ～
なるほどです！

=TEXT((ROW()-1)*LOOKUP(ROW(),{1,29,45,93},{339,340,354,353.4}),"rr年")
他、やっぱり からくちさんは一味違いますねｄ

私の76も下の64もあまりいい式とは言えません
=TEXT(((B1&"12月31日")+(B1=TEXT(B1&"12月31日","rr年")))^(B1>0),"rr年")
と結局こっち方向から抜けられなかったです、、

（まあ今回の平成までは問題ないのですがねぇ・・・
只々、年号が変わってもこの式が通用することを祈るだけです^^;）

しかし、思っていた以上に皆さん遊んでいただいたみたいで
感謝に堪えません、「ありがとうございました」m(__)m

[投稿情報: む印]

あれ、、
＞"rr年"で64字減ですね
"rr年"で64文字ですね　で・し・た、、、、(>_<)

[投稿情報: y sakuda]

結構いろんな手があるもんですねーー
rrってなんだ？
これから動き見て見ます^^

[投稿情報: jyo3]

へーーーー

すごいすごい

む印さん、、、

すごいなーーーー

数値をいじくりまわす・・・んじゃ、、、ないのねーーー

私出せませんねーーーーお恥ずかしい‥‥

でも、、、

べたべた、、、出しましょうかねーーーー・・・

何にも、、、、推敲のないやつ・・・

７４
=TEXT(ROW()*359.6-500-(ROW()>14)*200-(ROW()>29)*230-(ROW()>93)*24,"ggge年")

[投稿情報: からくち]

＞=TEXT((B1>0)*(B1&"12月31日")+ISNA(MATCH(ROW(),{15,30,94},)),"ggge年")
この式、、、
=TEXT((B1>0)*(B1&"12月31日")+1-OR(ROW()={15,30,94}),"rr年")
と書く事も、、、

[投稿情報: maron]

＞OR(ROW()={15,30,94}),"
◆考えたのですが、MATCH関数から抜け切れず、
=TEXT((F1>0)*(F1&"12月31日")+1-COUNT(MATCH(ROW(),{15,30,94},)),"ggge年")

◆もっと、頭を柔らかくしなければ・・・

[投稿情報: からくち]

＞もっと、頭を柔らかくしなければ・・・
いえいえ、、
わたしには《B1&"12月31日"》この考え方、、、出ません
これだと５６、、、短いです、、、

[投稿情報: jyo3]

rr年
ずーーーと前に

からくち さんに教えて頂いて、、
すっかりわすれてたし、、

[投稿情報: む印]

jor3さんも参加、ありがとうございますm(__)m

＞=TEXT(ROW()*359.6-500-(ROW()>14)*200-(ROW()>29)*230-(ROW()>93)*24,"ggge年")
y.sakudaさんの大作もそうですが、
こういう式はわたくし、一生かかってもできません、、、

で、今日晩御飯の後に、自分の式を見ていたら
やたらと括弧が多い、、、ので、、maronさんの様に
＞(B1>0)*(B1&"12月31日")
に変えたら2文字減らせました。
でもやっぱりまだ括弧が気になるので
IF(B1>0,B1&"12月31日")にしたらスッキリした感じで同じ62、

からくちさんがmaronさんの式から
＞=TEXT((B1>0)*(B1&"12月31日")+1-OR(ROW()={15,30,94}),"rr年")
また10文字減の56文字と大きく削って下さいました。

ただ、なんとなくですが、からくちさんが、この式をもう少し磨いといてねーと
おっしゃっているように思え、minさんが登場して磨いてくれるかなぁと
期待したのですが、かなりの長風呂のようで・・・・

で、そろそろ次の問題が出題されそうなので
＞(B1&"12月31日")+1　
の+1を何とか出来ないかと考えてみました。
すると
=TEXT(IF(B1>0,B1&"12月31日")+AND(ROW()＜＞{15,30,94}),"rr年")　
というのが出来ました
でも、＜＞を一文字で出来たら55文字になるのになぁ～と思い
minさんならどうするかな？と考えてみたら

=TEXT(IF(B1>0,B1&"12月31日")+AND(ROW()-{15,30,94}),"rr年")

というのが出来ました。何とかなるもんですね^^

・・・と、あまりPCを相手にしてるとカミさんにしかられるので
このへんで失礼しますm(__)m

[投稿情報: jyo3]

む印さん、、、

なんだかんだで、、、いろいろ、、、すごいねーーー

＞こういう式はわたくし、一生かかってもできません、、、
あの式は、、、、日本酒が作ったいい加減な式ですから

私も、これから一生かかっても、、、作れません、、いや、、作りません

エクセルバカさんのころは、、、愛嬌があったけど、、、

む印さんになったら、、、

恐ろしい、、、、

minさんと、、、
からくちさんと、、、、
む印さんには、、、、

何が出るか・・・わからんです。

[投稿情報: からくち]

次の問題は、、、まだ、、、か

エクセルは西暦１９００年がスタート
西暦１９００年は日本特有の歴
皇紀２５６０年にあたる
この２５６０、、、
仏暦２５６０年は西暦２０１７年
つまり今年にあたる
今年って、、、そんな年だったのか、、、

女性に年齢を聞くのは失礼
それなら、、、
『A1に生年月日を入れてください
そしてB1に=2560-text(a1,"bbb")としてください
B1は幾つになりました』
と聞くのは、、、インチキかな