関数の質問です。

質問

こんなことが関数でできますか？

１）　A1～A43までに１から４３の数字を入れます。
２）　B1セルにスタートボタンを設置する。
３）　C1セルにストップボタンを設置する。

４）　D１に１、E１に２、F１に３、G１に４、H１に５、I１に６の数字を入れる。
５）　D２、E２、F２、G２、H２、I２、のセルにランダムな組合せ数字が出るようにしたい。

ようは、ロト６の予想するときに宝くじ売り場に置いてある、「あたるくん」みたいなやつが、エクセルの関数を使ってできないかと言う質問です。B1でスタートさせてC1でストップしたとき、D２、E２、F２、G２、H２、I２、のセルにランダムな組合せ数字が出るようにしたいです。

※　エクセルの関数にランダム関数みたいなものがあると思います。これを使えばできそうですが、数式の書き方が分かりません。別の関数の数式でもいいので、結果を出せるような関数式のわかる方、ご教示ください。（ググって探せは、遠慮願います。自分なりに探してみたけど理解できるものに行き着きませんでしたので・・・。）

回答No.3

hallo-2007 · ベストアンサー

重複なし　という事ですが、ひと工夫が必要になります。
仮に
　A　B
　　　１
　　　２
・・・
とB列に１～４３の数値を入れる
A列に　=RAND()　を入れて下までコピーしておく。

D2セルに
=VLOOKUP(SMALL($A:$A,COLUMN(A1)),$A:$B,2,0)
を入れて、右へコピー　
再計算の　F9　を押す

お礼

まさに、ぼくの求めている事（重複なしのランダム表示）ができました。補足はスルーしてください。ロト６やミニロトで予想に悩んだ時に便利そうですね。

回答、ありがとうございました。

補足

回答、ありがとうございます。

一つ、質問があるのですが「=VLOOKUP(SMALL($A:$A,COLUMN(A1)),$A:$B,2,0)」を入れて右へコピーしたとき２５個目までは、数字が表記されるんですが、それ以降、数字が表記されず「＃＃」になります。

贅沢を言えば、４３個目まで数字が出るようにできたらいいなと思うのですが、そんな方法とかはありませんでしょうか。もし、うまい方法があれば教えて欲しいです。

よろしくお願いします。

回答No.2

KURUMITO

ご質問はA1セルからA43までに入力された1から43までの数値をランダムにD2セルからI2セルまでの表示させたいとのことでしょうか？
その場合にはD2セルに次の式を入力し、I2セルまでドラッグコピーします。

=RANDBETWEEN($A1,$A43)

その上で、スタートボタンやストップボタンを設ける場合にはマクロの操作が必要になりますので、ここではその必要もなく、キーボード上のF9ボタンを押し続けることでスタートボタンの役割を持たせることができます。ストップの操作はF9ボタンから手を離すことで良いでしょう。

お礼

ご指導、ありがとうございます。

ナンバーズ４と３にいい感じで使えそうです。

回答、ありがとうございました。

補足

分かりやすく教えていただき、ありがとうございます。

ぼくの求めているものにすごく近いのですが、ぼくの質問文が言葉足らずだったみたいで、すみません。補足させてください。

数字を「D2～I2」までのセル内にランダムな表示をさせたときに数字が重複しないような形（６個の数字が全て違う数字になるように）で表示したいというものです。ご教示いただいた。関数式で表示させてみたら、６個のセルの中に同じ数字が何個か出ることもあるようです。

このへんをどうにか、重複が無いように表示させるような関数式は作れませんか？よければ、教えてもらえると助かります。

よろしくお願いします。

回答No.1

FEX2053

単純にランダムな2桁の数字を表示させたいなら、

=MID(RAND(),3,2)

こいつをコピーしてそこらじゅうに張り付けておき、
F9を押せば押すたびに内容が変わりますけど。

ちなみに3ケタの数字なら

=MID(RAND(),3,3)

4ケタの数字なら

=MID(RAND(),3,4)

でオッケーです。

お礼

これは、すごいです。

こんな簡単な関数式でランダムに数字を表示させることができるんですか。とても参考になります。ナンバーズ４とナンバーズ３に使えそうです。

ご教示、ありがとうございます。