関数で出来ますか～？ 第342回 セル内連続数

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

解答用参考ファイル： 20200621をダウンロード

解答用参考ファイル： 20200621VBAをダウンロード（sakudaさん提供）

******************************************************************************************

出題者を含めて４名の方の解答作成完了宣言の後に、このスレに直接解答式をお書きください。

この問題に関しては解答用の別スレは作成いたしません。

******************************************************************************************

Comments

[投稿情報: くまぷー]

今回、「終了宣言」のルールを変更しましたのでご注意ください。

maronさんお得意の「セル内」は苦手です。
最初から私はお手上げぎみなので
終了宣言必要数4名からちょっと減らさせていただきました。
よろしくお願いいたします。m(__)m

[投稿情報: maron]

◆パスワード「1234」で解除できます

[投稿情報: y sakuda]

これも判定難しそう。なんか作りますね。

[投稿情報: くまぷー]

＞これも判定難しそう。なんか作りますね。

よろしくです。m(__)m

[投稿情報: ｎｉ]

あれえ？　E6に数式貼り付けたら、答えは出るけれど数式が消えてしまった。
FORMULATEXTでも呼び出せない　（＞＜）
保護解除したら出てきたけど、この保護、とんでもないですね。

1桁目と2桁目の和で10

[投稿情報: ｎｉ]

1つ出来たら、あと何にも思いつかん
多分、余分なことしてるんだろうけど

[投稿情報: からくち]

2桁は凄いです
113、、、終了です

第1案：59、、、でも落ちあり
第2案：78、、、こんな事もあるのかを発見
第3案：113、、、多分完璧
これ以上短縮は、、、

[投稿情報: y sakuda]

まだ、VBAやってて問題かんがえてないけど、結構厄介ですねーー
VBAの方も答えをどうわかるようにするかで悩んでます。
例示みたいに色つけられれば良いのですが、式で計算された文字列の一部に色つけられない・・・

[投稿情報: maron]

＞2桁は凄いです
◆出題者解答案は、2桁です
◆でも、文字数は「秘密」・・・

[投稿情報: y sakuda]

VBA飽きちゃったので、式
一応できたけど、長めの二けた
多少のダイエットは可能でしょうが、別の手が全く浮かばない^^

[投稿情報: maron]

◆ちなみに、2桁の解答案は、関数が5種5個です

[投稿情報: y sakuda]

だめだ、VBAでテストしてみたら、式の欠陥いきなり発見。
原因はわかったけど対処が・・・・

[投稿情報: ｎｉ]

5種5関数55文字　5のぞろ目＾＾

[投稿情報: y sakuda]

チェック用ブックYahooの方におくりました。
まだ、式がまともじゃないのと、早くそっちやりたいのでマクロの方は多分大丈夫ってレベルですｗｗｗ
何か変なことがあったらどなたでも投稿していただければ対応して改善版再送付します。

[投稿情報: y sakuda]

一応式できました。
56・・・次のアイデアと削りどころなし・・・

[投稿情報: くまぷー]

＞チェック用ブックYahooの方におくりました。

いつも有難うございます。
早速、アップさせて頂きました。m(__)m

[投稿情報: KUまぷー]

＞2桁は凄いです
＞113、、、終了です

★終了宣言
1.　からくちさん
2.　
3.　
4.　

[投稿情報: くまぷー]

＞5種5関数55文字　5のぞろ目＾＾
＞56・・・次のアイデアと削りどころなし・・・

え～、そんなもんで出来ちゃうの～。
信じられない短さ！！

[投稿情報: y sakuda]

>え～、そんなもんで出来ちゃうの～。
難しいことやらず、普通に書いただけですけど

[投稿情報: maron]

＞＞5種5関数55文字　5のぞろ目＾＾
＞＞56・・・次のアイデアと削りどころなし・・・
◆もう抜かれてしまいました

[投稿情報: maron]

◆少し、重たくなりましたが、5種5関数55文字できました

[投稿情報: からくち]

ジョー3さん、、、
わたしはそろそろ引退ですね
まだ解くだけなら幾らでも考え方は出て来ますが
短縮はどうも、、、

113が102になっても、、、
これは短縮をしてのでは無く
違う考え方で書いたら偶々少々短くなったに過ぎない
5種7関数が6種7関数、、、
この関数だけで55をオーバー
話になりませんので、、、

[投稿情報: からくち]

考え方で沢山書いてみた
夫々の文字数を見たら最短が101
これの短縮を試みたら、、、99
やっとの事で2桁
わたしにはこれで丁度と言うか、、、
ありがとうございます

[投稿情報: くまぷー]

＞わたしはそろそろ引退ですね
＞まだ解くだけなら幾らでも考え方は出て来ますが

解くだけでもダメ・・・　orz

[投稿情報: maron]

◆複素数には参加できませんでしたが、これは至極よく使う関数で出来ました
◆なお、関数を書き出したら、関数の頭文字がそれぞれ違う関数でした

[投稿情報: からくち]

＞5種5関数55文字できました
どうしたらこんな数値になるのでしょう

試しに、、、
0だけのセルと1だけのセルを除いたセル数を、、、
こんな問題があったとしたら
こんな単純なのに
53文字、、、粗同じ

[投稿情報: ni]

答えを見たら、なぁんだそんなことか　という単純な式です。

[投稿情報: y sakuda]

私の56は多分2013なら｛｝で58。
列参照使えば53になるけど、重すぎてちょっと・・・・（多分合ってる）
書き流しの式なのに削りどころ本当にみあたらない。
56で終了です。

[投稿情報: くまぷー]

参加しないのもナンなんで思いつくままにやってみました。
１０６文字。

＞56で終了です。

５０台なんて夢のまた夢・・・

★終了宣言
1.　からくちさん
2.　sakudaさん
3.　
4.　

[投稿情報: くまぷー]

減ったけど１０２　orz

難しく考えているのかなぁ・・・

[投稿情報: maron]

＞難しく考えているのかなぁ・・・
◆多分そうだと思います
◆解答を見たら、「なぁ～んだ」と思われるでしょう

[投稿情報: からくち]

＞５０台なんて夢のまた夢・・・
夢は叶えられます

50台なんて未知の世界
宇宙と一緒です
有ります、、、
果てし無く遠くに、、、

[投稿情報: くまぷー]

＞◆解答を見たら、「なぁ～んだ」と思われるでしょう

そうであれば、最良の問題ですね～。

[投稿情報: min]

見てますが、なかなか頭に浮かばない。
まいりました。

ま、もう少し考えますが。

＞そろそろ引退ですね
からくちさんはともかく、
わたしはそろそろかもですね。

[投稿情報: くまぷー]

＞見てますが、なかなか頭に浮かばない。

minさんでも、そういうことがあるのですね。
珍しい。ちょっと安心しました。

[投稿情報: min]

＞珍しい。
そんなこともないです。
頭で考えることが多く、パソコン開くまで全く思いつかないことが
多々あります。

[投稿情報: y sakuda]

VBAやりながら、チェックするのにパット思いついたの書いたのが70台。
ところが、これ欠陥があり、じゃ、律儀にやるかと書いたら（長くなると思ってた）56。
ただ、この問題その後別の手法が全く浮かびません。

[投稿情報: maron]

◆y sakuda さんが作ったVBAでチェックしたら、55はあまりに時間がかかったので、58にします

[投稿情報: からくち]

＞パソコン開くまで全く思いつかないことが
わたしは全く反対で色々頭に過りますが
同時に頭の中で打ち消している
故にその考え方を書かない
＞試しに、、、
これなどそのいい例、、、
頭に浮かんだ考えを1つしか書かないで53等と
違うのを色々書けば39なども、、、

[投稿情報: からくち]

富岳が世界１の速度に、、、
1秒で41京5530兆、、、凄い

少々前のQ&Aの質問
京では400万年掛かる質問
これで10万年で答えを得られる
この質問に関数式で返答していた人もいたけど
何も言えない、、、

[投稿情報: ｎｉ]

>55はあまりに時間がかかったので、
時間かかるけれど55で終了＾＾

[投稿情報: くまぷー]

＞時間かかるけれど55で終了＾＾

★終了宣言
1.　からくちさん
2.　sakudaさん
3.　niさん
4.　

[投稿情報: maron]

＞終了宣言必要数4名からちょっと減らさせていただきました。
◆4名から何名になったのでしょうか？

[投稿情報: min]

出題者を「含めて｣４名

だそうです。

出題者が終了宣言すれば4人ですね

[投稿情報: くまぷー]

＞出題者が終了宣言すれば4人ですね

そういうことです。
お二人とも朝が早いですね。

[投稿情報: maron]

◆58で終了です

[投稿情報: くまぷー]

＞◆58で終了です

★終了宣言
1.　からくちさん
2.　sakudaさん
3.　niさん
4.　maronさん

揃いました。m(__)m

[投稿情報: maron]

◆58{=SUM(N(MID(0&B4:B13&0,COLUMN(A:J),2+D6)=0&REPT(1,D6)&0))}

[投稿情報: くまぷー]

＞◆58{=SUM(N(MID(0&B4:B13&0,COLUMN(A:J),2+D6)=0&REPT(1,D6)&0))}

なるほど・・・

[投稿情報: くまぷー]

=LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXTJOIN(,,0&B4:B13&0),0,"00"),0&REPT(1,D6)&0,2),0,),1,))

=LEN(CONCAT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(0&B4:B13&0,0,"00"),0&REPT(1,D6)&0,2),1,),0,)))

やるだけはやりました・・・というカンジです。(^^ゞ

[投稿情報: maron]

＞なるほど・・・
◆見たら、なぁんだ・・・でしょう

[投稿情報: くまぷー]

>◆見たら、なぁんだ・・・でしょう

でも、結局は思い浮かびませんでした・・・orz

[投稿情報: ｎｉ]

とても重たい55
{=SUM(N(0&REPT(1,D6)&0=MID(0&B:B&0,COLUMN(A:I),2+D6)))}

[投稿情報: y sakuda]

あっ、始まってる。
56（５８）はやっぱり同じでした。

[投稿情報: ｎｉ]

１をD6個並べる方法
RIGHT(1/9,D6)
INT(10^D6/9)
BASE(2^D6-1,2)
やっぱしREPTが一番簡単だった

[投稿情報: くまぷー]

niさん、よく考えるな～。

[投稿情報: からくち]

暑かった、、、
今日のゴルフ
神奈川県３人とわたし
ここは何処だ、、、神奈川では無いぞ、、、

そうか、、、
SUMと＝か、、、
この１番の単純が頭に出なかったとは、、、

[投稿情報: ｎｉ]

前後に0をつけて総当たりでチェック
数値にしたら左の0が省略できないかと思ったけれど、
数値にすると#Value!になっちゃうのでそれをリカバリしようとすると余計に長くなってしまう。

[投稿情報: min]

遅だしで、、ものまねですが、

niさん
＞数値にしたら左の0が省略できないかと思ったけれど、

数値にして、、０を付け加えないでやってみました。
59
{=SUM(N(MID(B4:B13*12,COLUMN(A:J),1+D6)=1&REPT(3,D6-1)&2))}
なんだあ、１文字多いのか、、(´;ω;｀)

[投稿情報: min]

文字数は変わらないけど
59
{=SUM(N(MID(B4:B13*12,COLUMN(A:J),1+D6)=REPT(1,D6)*12&""))}
こっちの方がちょっとだけ気持ちいい。

[投稿情報: ｎｉ]

>*12
一体どこからこんな発想が！＾＾

[投稿情報: min]

*11だとダメ
で、12にしただけですね。

[投稿情報: maron]

＞一体どこからこんな発想が！＾＾
◆ここの常連さんの発想はすごい・・・！！