第37回 1の連続数は？

◆相変わらず、長い式になりました。
◆皆さんの助けを借りて、短い解答になりますように。

　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

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

答用参考ファイルの拡張子zipをxlsxにしてお使いください。 

 

・sakudaさん提供

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

ファイルの拡張子zipをxlsmにしてお使いください。 

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

解答発表は03/10（土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

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

Comments

[投稿情報: maron]

◆まさに「関数で出来ますか？」という問題です。
◆だから、長くなりました。
◆今の解答例は3桁ですが、2桁にしたいです。

[投稿情報: くまぷー]

こところ、全く手が出せません。(T.T)

[投稿情報: y sakuda]

しばらく問題の意味が分からなかったです。
意味が分かってもどうやるかは別の話ｗ

[投稿情報: y sakuda]

結構難しい。
とにかく、上手く行かないところを場当たり的に修正してったら、とりあえずできたみたいですけど、立派な３ケタです^^

[投稿情報: y sakuda]

大分粘ってダイエットしたけど、今晩は123で終了みたい。
そろそろ細かい削りどころ見当たらなくなったから、方法変えないとダメかな？

[投稿情報: maron]

◆とにかく力技です。
◆最初は、114でした。
◆今はそれよりは、短くなっています。

[投稿情報: y sakuda]

123は理屈としては118で行けるはずでしたが、原因不明のゴミが出て、その始末で＋５になっちゃった。

[投稿情報: maron]

◆今は、102です。
◆2桁までもう少し、頑張ります。

[投稿情報: y sakuda]

今日も時々眺めてたけど、別手法も大幅な削りどころも見えず、マイナーチェンジで121になっただけ。
二桁なんて、霞の先はるかです。
しかし、人の気配が・・・・

[投稿情報: ｎｉ]

ども、遅くなりました＾＾
＞◆とにかく力技です。
力技の182です

[投稿情報: くまぷー]

>力技の182です

解答を作っているだけで立派なもんです。
私なんか･･･

ところで問題の在庫が0になってしまいました。
SOSです。

[投稿情報: y sakuda]

別法のアイデアがでない・・・・
問題のアイデアも・・・・・

[投稿情報: min]

ダウンロードしてみましたが、
なぜか、ｂ３の数式がエラーになります。

しょうがないから、ｂ３は15桁の数値が表示されると想定してやってみました。
細かいことは無視してとりあえずやってみました。

無駄はあるのでしょうが、81でした。
正式な数式が見えないので何とも言えませんが。

[投稿情報: y sakuda]

B3の式エラーになるようなものとは思えないんですが・・・・
=IF(RANDBETWEEN(1,3)=3,REPLACE(TEXT(BASE(RAND()*10^4,2,3),REPT(0,RANDBETWEEN(5,15))),3,REPT(1,RANDBETWEEN(3,5)),1),TEXT(BASE(RAND()*10^4,2,3),REPT(0,RANDBETWEEN(5,15))))

15ケタ未満の１，０の数列です。
しかし、81！！！

[投稿情報: min]

sukudaさんありがとうございます。
今、携帯からなので、教えていただいた数式でやってみます。

81は、もう少し減ると想定してますが。

[投稿情報: y sakuda]

>81は、もう少し減ると想定してますが。
私なんか、なんとか120を切れないか、もがいてるのに・・・・・

[投稿情報: む印]

＞ダウンロードしてみましたが、
＞なぜか、ｂ３の数式がエラーになります。×２
Excel2007なのでBASE関数は対応できなくて、、、
で、手入力で1と0を15桁適当にやって
とりあえず出来たのは91です、、

[投稿情報: む印]

B3がエラーのため判らないのですが
多分問題の性質上、1の最大連続数は9までと考えて
式を立てています。
10以上だと対応しません、、、

[投稿情報: y sakuda]

そうか、Baseは2007じゃだめなんだ^^;

[投稿情報: maron]

◆これでいかがでしょうか？
B3=TEXT(DEC2BIN(INT(RAND()*10^2))&DEC2BIN(INT(RAND()*10^2)),REPT(0,RANDBETWEEN(5,15)))

[投稿情報: む印]

＞◆これでいかがでしょうか？
うまく表示できてます
ありがとうございました！

[投稿情報: maron]

＞ところで問題の在庫が0になってしまいました。
◆ただ今作成中です。
◆間に合うとは思いますが、皆さんも出題をよろしくお願いします。

[投稿情報: からくち]

わたしは２００７までしか無いので、、、
質問があります

１００００１１０００００、、、１２？

１１１１１１１１１１１１、、、１２？

[投稿情報: maron]

◆そうなります。

[投稿情報: y sakuda]

今朝がた寝ぼけてるとき何となく思い付いて、それっきりになってたアイデア思い出しつつやってみたら、多少分かり易い式になって108
書いてる途中は却って長くなるように思えたんですが、お飾りが不要になって短縮。
でも80とか90とかおっしゃってる方にはとてもじゃないけど^^

[投稿情報: からくち]

取り敢えず書いて見ましたけど、、、

＞81は
その文字数、、、話にならないです
皆さんの式を見る楽しみに変更

[投稿情報: y sakuda]

108をもう少しいじって、101惜しくも二けた入りならず^^;
でも・・・・
何となくF9押してたら、セットしてある条件付き書式が一回光った・・・・・
その後、F9押しっぱなしにしても、ちょっと思い当たったケース固定でいれてもOK
なんか、ものすごいレアケースがあるのかも・・・・・・

[投稿情報: y sakuda]

どうも、赤く光ったのは、目に見えない（と言うか、表示されない）微小な計算誤差みたいなんで、問題ないことにする^^

[投稿情報: y sakuda]

原因不明で、条件付き書式が反応してましたので、ループチェックのVBA作りました。
今のでは、UIが他人様に使っていただくようなものではありませんが、ご希望があれば、少々手を入れて、今晩中にくまぷーさんの所に送っておきますけど？

[投稿情報: y sakuda]

どうも、第2の方法も101止まりみたい・・・・
せめて、99でも良いから二けたにしたいんだけど・・・・

[投稿情報: くまぷー]

>今晩中にくまぷーさんの所に送っておきますけど？

送って頂ければすぐにファイルを差し替えます。m(__)m

[投稿情報: min]

実際に見直してませんが私の81も10には対応出来ないと思います。

ごめんなさい(>_<)

[投稿情報: y sakuda]

>送って頂ければすぐにファイルを差し替えます。m(__)m
じゃ、ちょっと作業して30分くらいで送ります^^

[投稿情報: y sakuda]

送りました。
宜しくお願いします。

[投稿情報: くまぷー]

>宜しくお願いします。

では、これからアップします。m(__)m

[投稿情報: くまぷー]

アップしました。
どうもありがとうございました。

[投稿情報: ｎｉ]

100できました
でも、10個以上の連続はたぶんダメ

これであの文字列連結が使えたらさらに短縮できるはずだけど、
Office365サブスクリプションなんて購入してない・・・

[投稿情報: maron]

くまぷーさん、
◆解答例を送ります。
◆皆さんの解答を見るのが、とても楽しみです。
　maron

[投稿情報: y sakuda]

なんか、皆さん１０文字連続がとおっしゃってるけど、理解不能。
私の全然ちがうんだろうな。
どういう方針なんだろうか？

[投稿情報: maron]

＞10文字連続
◆きっと、1が10個連続することだと思います。

[投稿情報: からくち]

わたしは２００７なので、、、

＞B3=TEXT(DEC2BIN(INT(RAND()*10^2))&DEC2BIN(INT(RAND()*10^2)),REPT(0,RANDBETWEEN(5,15)))
これの
DEC2BIN(RAND()*100)
この部分RANDが63.*******なら111111
111111＆111111なら111111111111
つまり求める値は、、、12
と言う事ではないでしょうか

[投稿情報: y sakuda]

>◆きっと、1が10個連続することだと思います。
それは分かってるんですが、私の考えたのは連続文字がいくつまでって制限は出ようがないので、皆さんの方針がさっぱり分かりません。

[投稿情報: ｎｉ]

試してみました
1が11個並んでいるときはOKですが、私の方法では10個の時、間違えてしまいます。

[投稿情報: ｎｉ]

91になりましたが、10個以上１が並ぶとウソつきます
今回は１１もダメ

[投稿情報: くまぷー]

>くまぷーさん、
>◆解答例を送ります。

ありがとうございます。m(__)m
お陰様で準備することができます。

[投稿情報: y sakuda]

結局私は101で終戦みたいです

[投稿情報: ｎｉ]

連続9個以下限定　89になりました。

[投稿情報: ｎｉ]

連続9個以下限定　だいぶ重たいけれど　86です。
私のExcel2013では使えないあの関数を使えば77になるはず(動作未確認)

[投稿情報: ｎｉ]

>15ケタ未満の１，０の数列です。
15桁未満だったら、もう1つ減って85

[投稿情報: y sakuda]

>15ケタ未満の１，０の数列です。
15桁出ますから15ケタ以下だと思いますけど？

[投稿情報: ni]

19桁以下ならokです。
連続は9以下ですけど。

[投稿情報: む印]

やっとPC起動の時間が出来、
連続9まで限定で、、、
90とは違うやり方で考えていたのをやってみたら69
このやり方で完全版は残念ながら無理、、、

完全版のアイデアはまだ浮かびません、、
ただ、90のやり方に手を加えたら出来そうなきがしますが
何れにせよ三桁は否めないです、、

これから、出かけますので完全版は降参しますm(__)m