Excel で １０個のセルに、０から９を一つ一つランダムに表示したい

質問

子供の算数の問題を作成するために考えているのですが、Excel で１０個のセルに、０から９を一つ一つランダムに表示したいのです。ただ、一度使用した数字は、二度と使用しないようにするためにいい方法はないでしょうか。
例1　2.5.8.6.3.9.7.4.1.0
例2 1.4.7.2.0.5.8.3.6.9
など、乱数等を使用した方がいいと思うのですが、ｉｆ関数は、最大７つまでしか、判断だきないそうです。
ランダムであり、一度使用した数字は、使用せず、０から９をそれぞれ表示する方法は、ないでしょうか。
よろしくお願いします。

回答No.3

jun9031 · ベストアンサー

例えばＡ１～Ａ１０にRAND()をいれ、
Ｂ１にRANK(A1,A$1:A$10)-1
と言うようにＢ１０までいれれば、
０～９までの数値をランダムに表せます。
RANDで同じ数値が出た場合は、同じ数字が２つになりますが・・・

補足

上記を参考にさせていただきできました。
つまり、別シートに多き目の数値乱数を作成し、その乱数表から本来のシートに必要なRANK関数で指定しました。ただ、０がでず、１０になってしまうので、全体にｉｆ関数を使用してRANKが１０になる時のみ、０に指定しました。

本当にありがとうございました。

回答No.9

sakenomo

０から９までの数字を作るだけですが、VBAでやってみました。A1から１０行分を作ります。
サイコロを振ってでた目で、一つ一つのセルを埋めていく方式です。
最後のほうの、
Loop Until p = 10　
の、10を他の数字に変えれば、その数字分の行数を埋めることができます。32767まで指定できます。

Sub Saikoro()
　Dim i As Byte, c As Range, myRange As Range
　Dim b As Byte, p As Integer
　Set myRange = Range("A1", "J1")
　Do
　　　myRange.Value = 10
　　　i = 1
　　　Do
　　　　　b = Int((9 - 0 + 1) * Rnd + 0)
　　　　　For Each c In myRange
　　　　　　　If c.Value = b Then
　　　　　　　　　Exit For
　　　　　　　End If
　　　　　　　If c.Column = i Then
　　　　　　　　　c.Value = b
　　　　　　　　　i = i + 1
　　　　　　　　　Exit For
　　　　　　　End If
　　　　　Next c
　　　Loop Until i = 11
　　　Set myRange = myRange.Offset(1, 0)
　　　p = p + 1
　Loop Until p = 10
End Sub

お礼

VBAまで、作っていただ本当にありがとうございます。とても、参考になりました。

回答No.8

grumpy_the_dwarf

思いっきりシンプルなモノを。

まず、0から9までの数値をA列にでも用意します。
B列に乱数を発生させ、B列をキーにしてA列を並べ替えます。
おしまい。

お礼

なるほど、このような方法もあるのですね。
ありがとうございます。

回答No.7

jun9031

#3です。

いろいろ考えてみましたが、なかなかしっくりくるのが思い浮かびませんでした・・・。

とりあえずrand()*rand()ぐらいで桁数を増やせば、
同じ数字がでることは確率的にはほとんどなくなりますが・・・。

１シートで利用するセルだけで０～９を振り分けるのはちょっと難しそうです。（VBAを使えばできそうですが・・・１５パズルを作るのと同じ要領ですので。）

やはり別シートで乱数を発生させてrank()-1で計算させるのが楽そうです。
あ、rank()のあとの-1が重要ですよ。
これがないと１～１０のランクになってしまうので、
－１で０～９の数値に変換しています。

ご希望に添えず、すいません。

お礼

いろいろ考えていただきありがとうございます。

回答No.6

Seiryo

#5さんのやり方はvbaで可能でしょうね。
ifで10の時って言うのもいいですけど、
－１でもいいですね

お礼

ありがとうございます。

回答No.5

ymmasayan

ＥＸＣＥＬでできるかどうか判りませんが、一般に使う方法です。
いろんなのがありますが手っ取り早いのを。

最初に０～９を入れておき乱数２つ引いてその順序に相当する２つを入れ替える。
これを２０～３０回もやれば完全にばらばらになりますよ。

お礼

いろいろな方法があるのですね。
本当にありがとうございます。

回答No.4

jun9031

＃３です。
すいません。回答を打ってる時にもろに＃２の方とかぶってしまった上に、補足で言われていることにヒットしてしまっています・・・（笑）

ちょっと考えてみます。

補足

ありがとうございます。
乱数のけた数を大きめにすると、何とかできそうです。
本当にありがとうございます。

回答No.2

paspas

乱数で適当な値を１０個発生させ、rank関数で順位をつけ、その結果を応用したらどうでしょうか？

補足

ご指導ありがとうございます。
rank関数で順位をつけた時、同じ数字がでてきた時、ランクが同じになることと、０から９の乱数内に同じ数字がでない状態のセル位置をそのまま使用したいのです。いい方法は、ないでしょうか。

回答No.1

Hageoyadi

=INT(RAND()*10)
では
>二度と使用しないようにする
ことが出来ませんので、分析ツールを使います。
参考URLへ。

参考URL：

http://deisuitei.pinky.ne.jp/excel/excel10a.htm

補足

早速のご返事誠にありがとうございます。
上記サイトを見て、自分で試してきました。
上記サイト通りに実施したのですが、「乱数発生離散確率の列の合計は、１になります。」とヘルプがでてしまいます。

上記、方法で、０から９の乱数がかならず、二回使用しないように、同時に表示できるのでしょうか。