関数で出来ますか～？ 第23問 三百六十五歩のマーチ 解答例

わたしのエクセルはお遊びエクセル。
この様な素晴らしい企画に参加すること自体、躊躇いがあります。
ましてやその性質（お遊び）上、出題者側には不向きでは・・・。
にも拘らず多くの方々に取組んで戴けたご様子、
誠にありがとうございました。

　　　　　　　　　　　　　　　　　　　　　　（からくちさん談）

≪回答例≫
Ａ１から版

※ ２進数にしてしまえば ０か１のみなので
：=2-RIGHT(DEC2BIN(RIGHT(ROW())))

※ 考え方としてこんなのは結構好きな方
：{=MATCH(ODD(ROW()),ROW(1:2))}

※ これは有か否か・・・
：{=2-MOD(SUM(B$1:B1+1),2)}

その他・・・

Ａ２から版

※ Ｑ＆Ａ等では殆ど見かけない関数に愛の手を
：=NPV(A1,1,6)

※ 無意味なこの使い方 これも最初にＱ＆Ａ等に書いたのは多分わたしでは
：=HOUR(" :"&4-A1)

※ エクセル君は２月３０日も認識してくれる それなら平年と閏年とで
：=DAY(DATE(2010+A1,2,30))

その他・・・

Comments

[投稿情報: くまぷー]

どうもみなさん、こんばんは
今のうちに・・・(^^ゞ

A2から版
=2/A1
=3-A1

後はロクなのがないから・・・(^^ゞ

[投稿情報: y sakuda]

今回は丸でアイデアなしでした。
A1の9文字ってのも分からなかったし、A2の6～8ってのも思いつかなかったです。
しょうがないので、A1,A2とも多少変わった発想の分を晒します＾＾；
A1
=ISERR(FIND(".",ROW()/2))+1
=2-ISERR((ROW()/2&".")*1)
=2-(RIGHT(ROW()/2,2)=".5")
=IF(ISREF(OFFSET(A1,-1,)),2/OFFSET(A1,-1,),1)
=COS(ROW()*PI()/2)^2+1
=2-ISODD(ROW())

A2
=ABS(O1-3)
=1-SIGN(M1-2)

どれも常識的でからくちさんの想定範囲内でしょうねーーー

からくちさんの出題者解やはり普通のじゃないですねーー
だれも普通のは提出しなかったりしてｗ

[投稿情報: くまぷー]

そうそう、悪児さんの解答です。

－－－－－－－－－－－－－－－－
ありきたりのものばかりですが・・・(^^)ゞ

A2から

５文字　
=3-A1
=2/A1
９文字
=(A1=1)+1
=(A1<2)+1
=2^(2-A1)
=2^(A1=1)
１５文字
=MID(21,A1,1)*1

A1から

９文字
=2-(A3=2)
=2^(A3<2)
１１文字
=3-FACT(A2)
１５文字
=2-MOD(ROW(),2)
=(-1^ROW()+3)/2
=-1^ROW()/2+1.5
２０文字（足りない！！）
=MID(4/33,ROW(A3),1)

最後が、「足りな」かったのが、残念・・・(^^)ゞ

[投稿情報:]

からくちさんの
＞　　=HOUR(" :"&4-A1)
ううーーーー
エクセルの癖を知り尽くしてるような・・・

「　：」
スペースコロンで、
-1/24
に、なるなんて・・・・
（-1時間）
知らんかった。＝あんぐり・・・・
で、その後はまだ・・・・・・

[投稿情報: む印]

被ってるの多いと思いますが

【Ａ１から】
=2-ISODD(ROW())
=2-MOD(ROW(),2)
=2-RIGHT(DEC2BIN(ROW(),10))
=MID(REPT(12,5^6),ROW(),1)
=COUNT(FIND(".",ROW(A2)/2),)
=(ROW()/2=INT(ROW()/2))+1
{=MOD(SUM(B$1:B2+1),2)+1}
{=LEN(MOD(COUNT(B$1:B2+1)/2,1)/1%)}
=1+(SUM(RIGHT(ROW(A2)/2,{2,6})*{-1,1})>0)
=BIN2DEC(MID(REPT(0&1,ROW()),ROW(),2))
=IF(ROWS($1:1)-1,2/OFFSET(I1,-1,),1)
=IF(ROW()-1,3-OFFSET(A1,-1,),1)

＜Ａ1から番外編＞
最後で決まる
=1+(A2=1)

A1:A2で選択
{={1;2}}

【Ａ２から】５文字以外で
=2^-A1*4
=A1^-1*2
=4/(A1/0.5)
=ABS(A1-3)
=MOD(A1,2)+1
=ISODD(A1)+1
=2-INT(A1/2)
=FIND(A1,21)
=MID(21,A1,1)
=SUM(A1=1,1)
=LEN(-A1/2)/2
=LARGE({1,2},A1)
=WEEKDAY(2,A1)
=IF(A1-1,1,2)
=COMBIN(2,A1)
=SUMIF(A1,1)+1
=MATCH(A1,{2,1},)
=RIGHT(A1-3)
=TEXT(A1-2,"1;2")
=COUNT(0/(A1-2),)
=REPLACE(12,A1,1,)

ホントに無駄式で^^;
Ａ1から
=TYPE(IF(ISODD(ROW()),,""))

Ａ２から
=FREQUENCY({2,1,1},A1+{0,-1})
=51-CODE(A1)

[投稿情報: からくち]

「 ：１」＝０：５９：００

「 ：１．０」＝０：０１：００

「 ：０．１」＝０：００：０１

面白いですね
１ では ５９分
１．０ では １分

普通 数値の場合 ．０ は意味が無いのに・・・

[投稿情報: からくち]

＞=COMBIN(2,A1)
これが１番好きです

＞=FREQUENCY({2,1,1},A1+{0,-1})
=FREQUENCY(A1,1)+1

[投稿情報: からくち]

＞=COS(ROW()*PI()/2)^2+1
まったく想定外です
なるほど

[投稿情報: minmax]

だぶっているのも多いと思いますが、
出しても良いかなと思っていた式を出します。

A1から
{={1;2}}
=TYPE((A2-2)^1%)^25%
=ISERR((A2-2)^1%)+1
=IF(ISERR(A65536),3-OFFSET(A1,-1,),1)
=IF(COUNT(A65536+1),1,3-OFFSET(A1,-1,))
=IF(ISBLANK(A65536),1,3-OFFSET(A1,-1,))
=2-MOD(CELL("row",A1),2)
=RIGHT(DEC2BIN(ROW()-1)+1)
{=TRANSPOSE(COLUMN(A:B))}

A2から
=MID(21,A1,1)
=SIGN(1-A1)+2
=LEN(DEC2BIN(3-A1))
=LOOKUP(A1,{1,2;2,1})
=MATCH(A1,{2;1},)
=FIND(A1,21)
=6-LEN(A1=1)
=MODE(3-A1,1,2)
=CELL("row",INDIRECT("a"&3-A1))
=AVERAGE(-A1*2,6)
=COMBIN(2,A1)
=ERROR.TYPE(0/(A1-1)+#NULL!)
=GCD(A1+1,2)
=3-HYPERLINK(A1)
=3-HYPERLINK(,A1)
=ISODD(A1)+1
=LARGE({2,1},A1)
=TEXT(A1,"[=1]2;1")
=LEN(A1-2)

[投稿情報: む印]

からくちさんのＡ２から
どれも奇抜で面白いですねぇ～

y sakudaさんの
>=IF(ISREF(OFFSET(A1,-1,)),2/OFFSET(A1,-1,),1)
これいいなぁー＾＾

それとSIGNは忘れてましたｗｗ

[投稿情報: kir]

こんばんわ。
【Ａ２より】
8：{={2;1}}　※A2:A3を選択での配列数式
8：=2^-A1*4
9：=2-(A1=2)
10：=A1--1^-A1
11：=LEN(11-A1)
11：=LEN(-1^A1)
12：=CHAR(51-A1)
13：=MONTH(33-A1)
14：=SEARCH(A1,21)
15：=CHOOSE(A1,2,1)
16：=INDEX({2;1},A1)
17：=MODE(2*A1,2,1,1)
17：=COUNT(0/(A1=1),)
19：=SUBSTITUTE(12,A1,)
21：=FREQUENCY(A1:B1^1,1)
22：=ROW(OFFSET(A$3,-A1,))
24：=VLOOKUP(A1,{1,2;2,1},2)
24：=HLOOKUP(A1,{1,2;2,1},2)
24：=ROWS(INDIRECT("2:"&A1))

【Ａ１より】
13：=GCD(ROW(),2)
14：=-ISODD(ROW())
ユーザー定義書式：2;1
23：=2-ROW()+FLOOR(ROW(),2)
28：=MID(REPT(12,ROW()),ROW(),1)
※16383行以降エラー
29：=COUNT(0/(OFFSET(A1,-1,)=1),)
31：=IF(ROW()=1,1,2/OFFSET(A1,-1,))
33：=IF(ROW()<3,ROW(),OFFSET(A1,-2,))
33：=MID(REPT(21,5),RIGHT(ROW())+1,1)
35：=ROW(OFFSET(A3,-CEILING(ROW(),2),))

[投稿情報: ジョー3]

Ａ１から、５個ぐらい
Ａ２から、８個ぐらい作ったが、

ほとんど、特異なのが・・・ない・・・

row()　の代わりに
無理やりやった、
=MOD(COUNTBLANK(B$1:B1)+1,2)+1
（あーーー苦しい)

[投稿情報: minmax]

sakudaさんの△関数やろうと思いましたがPIとか使わないとダメだなと思って止めました。。

[投稿情報: ますたあ]

今回は違うことに集中していまして．．．。(^^ゞ
とりあえずやりましたってことで．．．。^^;

A1から
=MOD(ROW(A2),2)+1

A2から
=3-A2
=(A1=1)+1

10文字は =N(A1=1)+1 だったのですが
後でNは付けなくて行けることに気が付きました。
なので、無しかな。(^^ゞ

[投稿情報: jyo-3]

kirさんも、、、
たくさん作りましたねーーー

[投稿情報: ジョー３]

minmaxさんも、、
いろいろ・・・・・・

皆さんすごいですーーー

[投稿情報: からくち]

＞A2から
＞=CELL("row",INDIRECT("a"&3-A1))
やはりＣＥＬＬが出ましたか

Ａ１から
=2-MOD(RIGHT((CELL("address",A1))),2)

＞=LEN(-1^A1)
これ好きですね

[投稿情報: からくち]

＞=LEN(A1-2)
上記と同様でわたし好み

[投稿情報:]

minmaxさんも、む印さんも、
＞8：=2^-A1*4
な、なるほどーーー

[投稿情報: minmax]

今はほかの方のをみている時間がないから
とりあえず自分のこと
＞=ERROR.TYPE(0/(A1-1)+#NULL!)
これが一番好き。

[投稿情報: minmax]

＞minmaxさんも、む印さんも、
ｋｉｒさんの間違いですね。

私にはとても、、、

[投稿情報:]

＞14：=SEARCH(A1,21)
あらら、、、言われてみれば、
単純なのに・・・・おれってだめだなあーー

[投稿情報:]

＞＞minmaxさんも、む印さんも、
＞ｋｉｒさんの間違いですね。
あはは、ごめんごめん

でも、、
minmaxさんも
同じようなのが
＞=FIND(A1,21)
＞=6-LEN(A1=1)
このlenユーモアがあるし、、参った参った

[投稿情報: からくち]

＞=6-LEN(A1=1)
＞このlenユーモアがあるし、、参った参った
無駄式愛好会特別奨励賞

[投稿情報: minmax]

＞無駄式愛好会特別奨励賞
何かすご～～～～くうれしいです。
無駄式でほめられるのって珍しいし。。

[投稿情報: かず]

いやはや皆さん、色々思い付かれるもんですね～

私は…
A1から、=IF(MOD(ROW(),2),1,2)
A2から、=3-A1
の一つづつしか思い浮かびませんでした。

最近ちょっと忙しくて…　来週の後半は富山へ出張です。

[投稿情報: y sakuda]

ちょっと目を離してる内にすごいことに・・・・
とてもじゃないけど、見切れませんねーー
ぱっと見でも、なるほどってやつと、なんで？ってのが沢山ｗ

ところで、私の
>=ABS(O1-3)
>=1-SIGN(M1-2)
他の列でやったの直し忘れてました＾＾；
すみません。

[投稿情報: ジョー３]

む印さん
ｍｉｎｍａｘさん
kirさん
sakudaさん
力作すごいですーーー
あ、、もちろん・・・・・他の皆さん、、も

で、知りたいこと、、、

からくちさんの
かぶらないと思われた、、自信作は、
どれだったんでしょうか？

[投稿情報: supermab]

>からくちさんの
>=HOUR(" :"&4-A1)

え"ーーーー？！

☆X※・・□△●

驚愕・・・・

[投稿情報:]

ユーモアといえば、、
む印さんの
=COMBIN(2,A1)
これも、思わず、、
ふふっ・・・って、笑ってしまう。
よく思いつくもんだ。

[投稿情報: かず]

＞=6-LEN(A1=1)
へ～っ、TRUEもFALSEも、文字にも数値にもなるんですね！
ちなみに、標準のセル位置が、中央ってのも微妙です。

[投稿情報: ジョー３]

↑わたしだった。

[投稿情報: かず]

＞↑わたしだった。

あははっ、いえわたしです。

[投稿情報: ジョー３]

＞あははっ、いえわたしです。

あはは、、、、

おまえとおれーーとは・・・
同じ年だから・・・・

いいのだ、、

[投稿情報: supermab]

minmaxさんの

> =3-HYPERLINK(A1)

こりゃ、、、、
は、、はいぱーりんく・・・

[投稿情報: y sakuda]

NPVなんか出てくるとは思わなかった
私は商売柄財務関数は分かりますので、なんどかMougでレスしたことはありますが、NPVは使ったことないですねーー
PVやPMTくらいがせいぜいです。
（自分でやる時は関数使わないで自分で式書いちゃうｗ）
でもここで出てくるとは・・・・・
それにしても、なんで？って関数のオンパレードで正にからくちさんの言う関数の勉強ｗ
でも真っ当な使いかたじゃないのが楽しいwww

minmaxさんのこれ、全く思いつかなかったです。A0と書けないからA1でエラーにするのにOffset重ねる羽目になった＾＾；
=IF(ISERR(A65536),3-OFFSET(A1,-1,),1)

印象としては繰り返しってことで三角関数もっと出てくるとおもったんですけどね。
ただし、私のも何行目まで生きてるか未確認ですｗ

[投稿情報: y sakuda]

> =3-HYPERLINK(A1)
なんじゃこりゃ×２

想像を絶してるwww

[投稿情報: くまぷー]

>=COMBIN(2,A1)

とか

＞=6-LEN(A1=1)

とか本当に思考が柔軟ですね～

そして・・・

＞>=HOUR(" :"&4-A1)

＞え"ーーーー？！

＞☆X※・・□△●　×２

[投稿情報: からくち]

＞かぶらないと思われた、、自信作は、

＞ヒントはオリンピック
オリンピック年は閏年
２月３０日は
平年、、、３月２日
閏年、、、３月１日
=DAY(DATE(2010+A1,2,30))

ここまで無駄をする方はいないと思い

[投稿情報: くまぷー]

> =3-HYPERLINK(A1)
なんじゃこりゃ×３

[投稿情報:]

>＞かぶらないと思われた、、自信作は、

>＞ヒントはオリンピック
>=DAY(DATE(2010+A1,2,30))
うーーん
でも、、
>=DAY(DATE(2010+A1,2,30))
は見ればなるほどと、すぐ、分かるが

＞>=HOUR(" :"&4-A1)
は、あはは・・・・なんじゃこりゃ・・・で、
・・・・・・
こっちかと、思ったなーーー・・・・

[投稿情報: ジョー３]

↑あ、、、また忘れ物、、、

[投稿情報: ジョー３]

安心した。
sakudaさんの言葉。
＝
＞NPVなんか出てくるとは思わなかった
＞私は商売柄財務関数は分かりますので、なんどかMougでレスしたことはありますが、NPVは使ったことないですねーー
NPV？？？
私なんか、
ヘルプ見ても・・・？？？
（草刈で疲れたせいかなーー)
ってことにしておくしかない。

[投稿情報: くまぷー]

そろそろ、からくちさんから頂いた解答を
全て公開しましょうか？
からくちさん、どうしましょう？

[投稿情報:]

>全て公開しましょうか？
うひゃーーー
・・・・・
良いんじゃない？？

次の問題も始まるだろうし・・・・

なんか、このごろ、
仕事と、風邪と・・・・で、手抜きジョー３
でごめんな、、、

まあ、くまぷーさんほどは忙しくないだろけど・・・わたし、

[投稿情報: くまぷー]

>>全て公開しましょうか？
>うひゃーーー
・・・・・
>良いんじゃない？？

じゃあ、ジョー３さんが言うなら
からくちさんの返事はないけど
今晩、公開しますね。(^_^)v

でも、もうちょっとからくちさんを待ってから・・・

[投稿情報: くまぷー]

それでは、からくちさんの残りの
解答を公開します。
－－－－－－－－－－－－－－－－

Ａ１から版

：=2-MOD(ROW(),2)
：=2/(MOD(ROW(),2)+1)
：=ODD(ROW())-ROW()+1
：=EVEN(ROW(A2))-ROW()
：=EVEN(ROW()+1)-ROW()
：=(ODD(ROW())>ROW())+1
：=(EVEN(ROW())=ROW())+1
：=MAX(MOD(ROW(A2)*2,4),1)
：=MID(21,MOD(ROW(),2)+1,1)
：=TEXT(MOD(ROW(),2),"1;;2")
：=MID(REPT(12,ROW()),ROW(),1)
：=2-MOD(COUNTBLANK(B$1:B1),2)
：=2-MOD(COUNTIF(B$1:B1,""),2)
：{=2/MATCH(EVEN(ROW()),ROW(1:2))}
：=IF(ROW()=1,1,2/INDEX(L:L,ROW()-1))
：=DAY(DATE(RIGHT(ROW(A2)*2,2),2,30))
：=2-MOD(RIGHT((CELL("address",A1))),2)

Ａ２から版

：=3-A1
：=2/A1
：=2-(A1>1)
：=1+(A1=1)
：=1+(A10)+(A1=1)
：=DELTA(A1,1)+1
：=CHOOSE(A1,2,1)
：=GESTEP(1,A1)+1
：=INDEX({2,1},A1)
：=COUNTIF(A1,1)+1
：=LARGE({1,2},A1)
：=MATCH(A1,{2,1},)
：=FREQUENCY(A1,1)+1
：=REPLACE(12,A1,1,)
：=LEN(MID(11,A1,2))
：=TEXT(A1-1,"1;;2")
：=SUBSTITUTE(12,A1,)
：=LEFT(RIGHT(12,A1))
：=TEXT(A1,"[=1]2;1")
：=INT(ROUND(1.95,A1))
：=4-QUARTILE({1,5},A1)
：=LOOKUP(A1,{1,2},{2,1})
：=MONTH(EDATE("3/1",-A1))
：=VLOOKUP(A1,{1,2;2,1},2,)
：=RIGHT(TEXT((" :"&A1)*979,"h"))

[投稿情報: jyo-3]

ちらっ・・・・・

・・・・・・

からくちさんの、リストにないやつ、

作られた、・・・・あのかた、このかた、、

良かったねーーー。

[投稿情報: y sakuda]

しかし、よくもまあ、こんなに思いつくもんだ・・・・・
降参です＾＾；

[投稿情報: む印]

>=DELTA(A1,1)+1
>=GESTEP(1,A1)+1
またヘルプ見ないと・・・^^;