第240回 連続整数重複無しランダム生成 解答例

89：

{=MOD(MAX(MID(RAND(),ROW($3:$12),6)*(COUNTIF(B$2:B2,ROW($1:$10))=0)/1%+ROW($1:$10)),100)}

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

---------------------------------------------------------------------------------------------------------

解答チェック用VBSファイル： Checker2015_5_10をダウンロード

解答ワークシートをアクティブにしてVBSファイルをダブルクリックして下さい。

セルA1に検証回数が表示され、１万回検証し、問題があればストップします。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（くまぷー）

 

Comments

[投稿情報: くまぷー]

１０００回に１回くらいの割合でエラーになるようですが
なんだかんだ言っても形にしてしまうのだから
たいしたものです。

[投稿情報: む印]

昨夜問題を覗いてしまい、考えてみたのですが
番外編だけすぐに出来たので、久しぶりにお邪魔いたしました、、、

問題の「・B3の式を下にコピーして、」に違反していますが･･･

B3をアクティブにしてB12まで（入力範囲）選択状態にして、
B3に
=MOD(SMALL(MID(RANDBETWEEN(1,9^15),ROW(),2)/1%+ROW()-2,ROW()-2),20)
と書いてCtrl+Shift+Enter

B3:B12まで同じ式↓が入力されます。
{=MOD(SMALL(MID(RANDBETWEEN(1,9^15),ROW(),2)/1%+ROW()-2,ROW()-2),20)}
一応結果は満たせているかと思います。

[投稿情報: maron]

◆今帰ってきました

◆minさんの「無理やりやってみました」の解答も是非見たいです

[投稿情報: min]

countifでやろうと考えたんですが、そうやればよかったのですね。
それにしても、なぜエラーが発生するのか？
桁が足りなくなることがあるからなのかな。

randbetweenも考えたんですが、条件にb2をコピーとあるのでやめました。
む印さんも健在ですねえ。

私のは完全にランダムとはいえない条件に合致しないものです。

[投稿情報: min]

69{=MOD(SMALL(RIGHT(NOW()*ROW($1:$10),3)*100+ROW($1:$10),ROW(A1)),100)}

どうせ完全じゃないのだから思い切ってなんでもありで上記式を短くしていました。

54{=MOD(LARGE(RIGHT(NOW()*D$3:D12,3)/1%+D$3:D12,D3),20)}

[投稿情報: min]

ん、む印さんもmod（・・,20)ですね。
100としがちですが。

[投稿情報: min]

一番最初にやったのは、過去の経験を無理やり使ったCOUNTIFを使ったやつでした。

168{=INDEX(MID(RIGHT(NOW(),5)^3&RIGHT(NOW(),5)^2&12234567890,ROW($1:$36),1),MATCH(,COUNTIF(B2:B$2,MID(RIGHT(NOW(),5)^3&RIGHT(NOW(),5)^2&12234567890,ROW($1:$36),1)+1),))+1}

http://kumapooh.typepad.jp/blog/2010/07/64-f53f.html

[投稿情報: くまぷー]

minさん、む印さん、ご参加有り難うございます。m(__)m

この頃、「関数で出来ますか～？」は不定期になってしまったので
時々でも見てくれていたようでサンキューです。m(__)m

あ、今日はこれから市民大会の引率です。体育館が呼んでます。
ちなみに昨日は高校総体の地区予選でやはり、体育館に詰めていました(T_T)

[投稿情報: くまぷー]

む印さんのとminさんの１６８を検証してみました。

む印さんのは３０００回から１万回の間にエラーがでるようです。
minさんの１６８は１００回に１回くらい数字が重複するようです。
やはり、作業列無しでは厳しいですかね～

[投稿情報: min]

そうですか

適当な式でも検証していただいて嬉しいです。

[投稿情報: くまぷー]

お節介な気もしましたが検証用VBSファイルを
アップしました。