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

Question

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

jun9031 · Accepted Answer

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

sakenomo · Answer

０から９までの数字を作るだけですが、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

grumpy_the_dwarf · Answer

思いっきりシンプルなモノを。

まず、0から9までの数値をA列にでも用意します。
B列に乱数を発生させ、B列をキーにしてA列を並べ替えます。
おしまい。

jun9031 · Answer

#3です。

いろいろ考えてみましたが、なかなかしっくりくるのが思い浮かびませんでした・・・。

とりあえずrand()*rand()ぐらいで桁数を増やせば、
同じ数字がでることは確率的にはほとんどなくなりますが・・・。

１シートで利用するセルだけで０～９を振り分けるのはちょっと難しそうです。（VBAを使えばできそうですが・・・１５パズルを作るのと同じ要領ですので。）

やはり別シートで乱数を発生させてrank()-1で計算させるのが楽そうです。
あ、rank()のあとの-1が重要ですよ。
これがないと１～１０のランクになってしまうので、
－１で０～９の数値に変換しています。

ご希望に添えず、すいません。

Seiryo · Answer

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

ymmasayan · Answer

ＥＸＣＥＬでできるかどうか判りませんが、一般に使う方法です。
いろんなのがありますが手っ取り早いのを。

最初に０～９を入れておき乱数２つ引いてその順序に相当する２つを入れ替える。
これを２０～３０回もやれば完全にばらばらになりますよ。

jun9031 · Answer

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

paspas · Answer

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

Hageoyadi · Answer

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

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

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

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

この回答への補足

０から９までの数字を作るだけですが、VBAでやってみました。

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

#3です。

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

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

＃３です。

この回答への補足

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

この回答への補足

=INT(RAND()*10)

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

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