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.9 回答者： sakenomo 回答日時： 2003/06/20 01:36

０から９までの数字を作るだけですが、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まで、作っていただ本当にありがとうございます。とても、参考になりました。

お礼日時：2003/06/20 08:48

No.8 回答者： grumpy_the_dwarf 回答日時： 2003/06/19 08:47

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

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

この回答へのお礼

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

お礼日時：2003/06/20 08:47

No.7 回答者： jun9031 回答日時： 2003/06/19 03:37

#3です。

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

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

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

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

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

この回答へのお礼

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

お礼日時：2003/06/20 08:45

No.6 回答者： Seiryo 回答日時： 2003/06/19 00:36

#5さんのやり方はvbaで可能でしょうね。

ifで10の時って言うのもいいですけど、
－１でもいいですね

この回答へのお礼

ありがとうございます。

お礼日時：2003/06/19 00:48

No.5 回答者： ymmasayan 回答日時： 2003/06/19 00:32

ＥＸＣＥＬでできるかどうか判りませんが、一般に使う方法です。

いろんなのがありますが手っ取り早いのを。

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

この回答へのお礼

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

お礼日時：2003/06/19 00:50

No.4 回答者： jun9031 回答日時： 2003/06/18 23:56

＃３です。

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

ちょっと考えてみます。

この回答への補足

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

補足日時：2003/06/19 00:19

No.3 ベストアンサー 回答者： jun9031 回答日時： 2003/06/18 23:53

例えばＡ１～Ａ１０にRAND()をいれ、

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

この回答への補足

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

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

補足日時：2003/06/19 00:04

No.2 回答者： paspas 回答日時： 2003/06/18 23:46

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

この回答への補足

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

補足日時：2003/06/18 23:49

No.1 回答者： Hageoyadi 回答日時： 2003/06/18 23:12

=INT(RAND()*10)

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

参考URL：http://deisuitei.pinky.ne.jp/excel/excel10a.htm

この回答への補足

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

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

補足日時：2003/06/18 23:44