エクセルで「１～１５」の乱数表を作りたい。

解決済

質問者：heisenberg
質問日時：2006/11/09 21:30
回答数：3件

エクセルで、「１」から「１５」までの１５種類の数字を使ってランダムの数列表を作りたいのですが、どのようにすればできますか？

その際、各数字はそれぞれ１個ずつ、一つのセルに入れるものとします。重複しても構いません。
例えば「７」「２」「９」「１３」「２」「４」「１」「９」・・・でもＯＫです。
また、同じ数字が連続するケースの発生もＯＫです。
例えば、「３」「８」「１４」「６」「６」「５」「７」・・・でもＯＫです。２連続だけでなく、３連続もＯＫです。

要は「１～１５の数字のランダムな出現による乱数表」が作成できればいいのです。

表の範囲は「Ａ７～ＩＶ２００」までです。

ＰＣの初心者ですので、詳しく丁寧に教えて頂ければ有り難いです。
例えば次のように・・・。

１．・・・・・・・・・
２．・・・・・・・・・・・・
３．・・・・・・・・
４．・・・・・・・・・・・・・・
５．・・・・・・・・・

と、いう風に、順を追ってウィザード風に書いて頂ければ・・・と思います。
ＰＣやエクセルや関数に詳しい方、宜しくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「ドラッグ意味」に関するQ&A：「ホイールドラッグ」の意味

さらに表示

「」」に関するQ&A：「ヒゲの笑顔」が素敵な芸能人といえば？

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： te12889
回答日時：2006/11/09 22:07

(1) A7からIV200までを範囲指定

(2) 数式バーに「=RANDBETWEEN(1,15)」（「」は不要）を入力し、「Ctrl」キーを押しながら「Enter」

その前に、「ツール」メニューから「アドイン」の「分析ツール」にチェックを入れておいてください。

参考URL：http://www.relief.jp/itnote/archives/001184.php

- 3
- 件

通報する

この回答へのお礼

有難うございました。
お陰さまで、簡単に乱数表が作成できました。

通報する

お礼日時：2006/11/10 11:21

No.3

回答者： kakkysan
回答日時：2006/11/09 22:23

いろいろな方法があると思いますが、例えば

○Ａ７に=MOD(MID(RAND(),3,2),15)+1 の数式を入れて
ＩＶ２００までコピー（Ａ７のセルを左クリックして、セルの右下にカーソルを持ってくると＋記号になります。そのまま適当な範囲までドラッグします）

●式の意味

☆MOD(数、15) は数を１５で割った余りを出します。（0～14)それに＋
１をして１～１５の数にします。

☆MID(文字列、文字位置、文字数）は指定した文字列の指定した左からの文字位置から、文字数だけを切り取った値にします。
例えば＝mid(0.345675、3,2) は 45

☆RAND()は０以上１以下の数の乱数を発生させます。

なおNO１、NO2 のかたの数式の方が楽ですが、エクセルによってはこのRANDBETWEENが入っていない場合もありますのでご注意ください。

- 2
- 件

通報する

この回答へのお礼

ご回答、有難うございました。
今回は、＃１さんに教えて頂いた方法で簡単に作成できましたので、その方法を使いたいと思います。
幸い、ＲＡＮＤＢＥＴＷＥＥＮは入っていました。

通報する

お礼日時：2006/11/10 11:34

No.2

回答者： Hayashi_Trek
回答日時：2006/11/09 22:19

エクセルの起動、

マウス操作等により指定したセルを選択する、
指定したセルにキーボードから文字を入力する、
等の操作は説明しなくても出来ると想定します。

１：セル［A7］を選択する。
２：セル［A7］に式『=RANDBETWEEN(1,15)』を入力する。（ただし『』は入力しない）
３：セル［A7］を選択して、コピーする。
４：セル［A7］から［IV200］の範囲を選択する。
５：編集メニューから「形式を選択して貼り付け」を選択してダイアログを表示させる。
６：「貼り付け」の形式として「数式」を選択する。
７：ダイアログのOKボタンを押して、貼り付けを実行する。
これで選択した範囲に1～15の乱数が入ります。
しかし、このままだと何か操作するたびに乱数が変わります。
セル［A7］から［IV200］の乱数を固定するには次のようにします。
８：セル［A7］から［IV200］の範囲を選択してコピーする。
９：セル［A7］から［IV200］の範囲を選択する。
　　（８のコピーから引き続き操作するなら選択しなおさなくても良い）
10：編集メニューから「形式を選択して貼り付け」を選択してダイアログを表示させる。
11：「貼り付け」の形式として「値」を選択する。
12：ダイアログのOKボタンを押して、貼り付けを実行する。
これでセル［A7］から［IV200］の範囲の乱数が固定されました。

- 0
- 件

通報する

この回答へのお礼

ご回答、有難うございました。
今回は、＃１さんの方法で簡単に作成できました。
＃２さんにご教示頂いた方法も、これからの参考にさせて頂きます。

通報する

お礼日時：2006/11/10 11:26

このQ&Aに関連する人気のQ&A

「」」に関するQ&A：「おおざと」と「こざとへん」の区別の起源

さらに表示

「ドラッグ意味」に関するQ&A：「ドラッグ・クイーン」てどういう意味?

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

ピックアップおすすめ記事

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q乱数表の定義が理解できません

乱数表は０から９までの数字をランダムに並べた表。どの部分をとっても０～９の数字が同じ確率（1/10）で現れるように作られる。任意抽出その他標本調査や実験計画法に応用される。
と、ありますが、この確立1/10を、どう理解したら良いのでしょうか。

例えば、啓林館の乱数表で、
28
30
95
01
10

05
04
05
84
28

と、並んでいますが、一番左の数字は0が4/10出てますし，
二桁数字を考えても、05が2回出ているので、1/10にならないと思うのです。
どの部分をとっても1/10では無いと思うのですが、教科書が間違っているはずも無いですから、私の考え方がおかしいのだと思います。
どうぞ、お知恵をおかしください。

Aベストアンサー

まず大前提として、乱数表とは、本当に乱数の表なのではなく、
概ね乱数っぽいもの、または、乱数であることを目指している何か
であることを理解しましょう。その上で…

表上で近所にある数の並びを見て、狭い範囲で０～９が均等に
現れてはいけない　ことは、ちょっと考えれば解ります。

乱数表の１字目～１０字目と、２字目～１１字目を比べて、
どちらにも０～９が一個づつ現れていたとしたら、１１字目の
数字は１字目と同じということになってしまいます。これを
繰り返すと、その表は１０文字周期の規則正しいものになり、
全く乱数ではありません。

表全体として、いろいろな数の並びが均等に現れるためには、
狭い範囲での偏りも各種均等に現れなければならないのです。

質問にある「2桁の数10個中、十の位が0のものが4個」という
事象は、確率 (10C4)((1/10)^4)((9/10)^6) 程度で現れるはずです。
「2桁の数10個」を 90 組ほど表から抜き出せば、一組くらいは
在るのが正しいのです。

他の回答も見る

Qエクセルで１００マスの乱数表を作るには

エクセルで縦１０×横１０の計１００マスで、１から１００までの数字（数字の重複なし）で乱数表を作るにはどうすれば良いか。

Aベストアンサー

VBAでやるのが簡単です。以下は重複の無い乱数発生のVBAサンプルです。

【手順】
1.　[Alt]+[F11]で Visual Basic Editor（以下VBE）起動
2.　[挿入]-[標準モジュール]クリック
3.　下記VBAコードをコピー&ペースト
4.　VBEを閉じる
5.　[ツール]-[マクロ]-[マクロ]で実行

【VBAコード】（次行から終わりまで）

'10×10の重複しない乱数表
Sub Sample()

　　Dim NumberBuf%(1 To 10, 1 To 10)
　　Dim intNum%, i%, j%, ItemNum%
　　Dim tmpBuf
　　Dim Dic As Object

　　'Dictionaryオ...続きを読む

他の回答も見る

Qエクセルで１から１０の数字をランダムに並び替えたいのですが、わかりません。

　エクセルで乱数表をつくる方法があると聞き、やってみましたが、さっぱりわかりません。宿題で使うので困っています。どなたか、教えて下さい。お願いします。

Aベストアンサー

関数を使います
セルに下の式をコピーして
他のセルにコピー→貼り付けしてみてください
元の関数は、０～１の乱数発生です
それを１０倍して、切り上げました。
（切り上げでも丸めでも何でも良いとは思いますが）

=ROUNDUP(RAND()*10,0)

他の回答も見る

Q【エクセル】ランダムで重複しない整数を出したい。

Windows 7、エクセル2007です。
ランダムで重複しない整数を任意の範囲から一部のみ入力するにはどうしたら良いでしょうか？

１．任意の範囲「１～５０」とか「１～１００」とか「１５～３００」とかから、２０個だけとか４０個だけとか。
２．ランダムなので「２，６，３，４，８，１・・・」とかのｎ、ｎ＋１、ｎ＋２ではないランダムな整数。
３．重複しないこと。

上記１～３を満たしたやり方ってありますか？
出てこない数があっても良いんです。

例えば、１～１０までの範囲でランダムに３個だけセルに入...続きを読む

Aベストアンサー

No.4・5・6です。
たびたびごめんなさい。

すでに当方の回答よりも良い回答は出ていますが・・・

前回の数式があまりにも長すぎたので少し簡単にしてみました。
作成する表には○から○までの整数だけを表示し、
そのかなからRAND関数の大きい順に「表示数」だけ表示するようにしています。

↓の画像の
G1セルに
=IF(H1="","",RAND())
H1セルに
=IF(C2="","",C2)
という数式を入れオートフィルでしっかり下へコピー！

A1セルに
=IF(COUNTBLANK($C$2:$E$2),"",IF($E$2<ROW(A1),"",VLOOKUP(LARGE(G:G,ROW(A1)),G:H,2,0)))
という数式を入れオートフィルで下へコピーすると
画像のような感じになります。

前回と考え方は同じですが、作業用の表に余計なものを表示しないようにしてみました。

何度も失礼しました。m（_ _）m

他の回答も見る

Qエクセルで、乱数の関数　同じ数が無いように

乱数を発生させる関数で、ＲＡＮＤ関数は、小数点（０～１の間）で、ＲＡＮＤＢＥＴＷＥＥＮ関数は整数で出るとのことですが、ＲＡＮＤＢＥＴＷＥＥＮ関数は同じ数字がいくつか重複して出ます。整数で同じ数が出ないようにする関数はないでしょうか？

Aベストアンサー

そういう関数はありませんが，そういう数字を簡単に並べる方法は沢山あります。

たとえば１から１０をランダムに並べるなら。

方法１
Ａ１：Ａ１０に　=RAND()　を記入しておく
Ｂ１に　=RANK(A1,A:A)　と記入し，Ｂ１０までコピーする。
Ｆ９を押すたびに何度でも順序が入れ替わる。

方法２
Ａ１：Ａ１０に　=RAND()　を記入しておく
Ｂ１：Ｂ１０に　１から１０までの数字を記入しておく
Ａ列昇順で全体を並べ替える。何度でも。

方法３：
エクセルのオプションで反復計算のチェックを入れ，回数を10000回ほどにしておく
Ａ１に　=IF(AND(A1<>0,COUNTIF($A$1:$A$10,A1)=1),A1,RANDBETWEEN(1,10))　と記入し，
Ａ１０までコピー貼り付ける。

他の回答も見る

Qエクセル指定した範囲からランダムで一つ抽出

エクセルの関数についての質問なのですが、

B1～B5に値がならんでいたとして、B1～B5の中からランダムに一つ抽出したものをA3に表示する関数はありますか？

Aベストアンサー

Ａ3に次の式を入力すればよいでしょう。

=INDEX(B1:B5,RANDBETWEEN(1,5))

他の回答も見る

Q重複しない乱数表を作る関数について

重複しない乱数表を作成したいと思います。
「＝RANDBETWEEN(0,50)」では、「0～50」の範囲内で、数字が重複する乱数表ができますが、数字が重複しない乱数表を作成するには、どういう関数を使えばよいですか？
縦方向（つまり「列」）では重複しても構いません。
横方向（つまり「行」）で重複しないようにしたいのです。
つまり、「横方向に0から50までの数字51個が一通り、必ず1個ずつ出現してから、次に同じく、0から50までの51個の数字による新たな数列を、各数字が重複しないように作りたい」のです。
51個の数字による一まとまりの数列内で数字が重複していなければ、これと同じ数値配列が全く別の場所に出現しても構いません。
表の範囲は任意ですが、仮に「Ｂ7～Ｎ106」とします。

過去の回答を検索しましたが、適切なものがなかったので質問しました。
宜しくお願い致します。

Aベストアンサー

はじめまして
発想を変えて０～５１の数字をランダムに並べ替えるというのはいかがでしょうか。
1.Ａ１に０～Ａ５１に５０の数字を順次入力
2.Ｂ1～Ｂ５１に=rand()を入力
3.Ｂ列をキーにして並び替え
これでＡ列には０～５０の数字がランダムに並びます。

その後、Ａ列をコピー＆形式を指定して貼り付け（行列を入れ替える）を行えば横に０～５１の数字がランダムに並びます。

この作業の繰り返しで質問の表が作れるかと思います。
…同じ作業の繰り返しなのでマクロを使えばもっと楽になります。

他の回答も見る

QExcelで事前にセルに入力した言葉をランダムに表示

例えばA1に「いぬ」 A２に「ねこ」 A３に「ぞう」 A4に「たぬき」 A５に「きつね」と入力します
次に
Ｂ１～Ｂ１０に「いぬ」「ねこ」「ぞう」「たぬき」「きつね」のいずれかを自動にランダムに表示する方法を教えてください
こんな便利な機能があれば良いと思うのですが・・・

Aベストアンサー

=INDIRECT("A"&INT(RAND()/0.2)+1)

INT(RAND()/0.2)+1 で１～５までの整数が得られます。
INT(RAND()/0.1)+1 で１～10までの整数が得られます。
INT(RAND()/0.02)+1 で１～５0までの整数が得られます。
INT(RAND()/0.01)+1 で１～100までの整数が得られます。

それでA1からA5、A1からA10、A1～A50、A1～A100のセルの内容を取得しています。A2からなら＋２にしてください。
F9キーを押すたびに再計算されて、表示も変わります。

他の回答も見る

Qエクセルで、任意の数字で乱数表を作りたい・・・。

関数を使って乱数表を作成する場合
例えば、「『１～１００』の数字から８個の数字を選んで乱数表を作成する」とか、「『１～９』の数字を使って乱数表を作る」とかしますが、
そうではなくて、自分が選んだ数字のみで乱数表を作りたいのです。
例えば、「２」「４」「５」「８」「１１」「１３」「１６」という風に数字を選んで、その数字がランダムに出現する乱数表です。
「５　１１　２　８　１３　５　１６　４　４　１３　２　８　８　５　１１　２　２　２　１６　８・・・」
こういう感じの乱数表です。

ＰＣの初心者ですので、ウィザード風にして、次のようにご教示してくださると助かります。
　　１．・・・・・・・・・・
　　２．・・・・・・・・・・・・・・
　　３．・・・・・・・
　　４．・・・・・・・・・・・・・・・・・・・・
　　５．・・・・・・
　　６．・・・・・・・・・・
　　　　　　・
　　　　　　・
　　　　　　・

関数等に詳しい方
宜しくお願い致します。

Aベストアンサー

No.2です。
おかしいですね、私の環境では正常に表示されるのですが。

#NAME? とは関数名を間違えていたり、アドインが入ってないのにアドインが必要な関数を使っていたりするときに出るのですが、今回はアドインが必要な関数は使ってません。OFFSET,INT,RAND,COUNTは全部標準で使用できる関数です。

式をそのままコピーして貼り付けたなら、間違うことはないと思うのですが、そのようにされてますでしょうか？

他の回答も見る

Qテニス（ダブルス）乱数表　Excelマクロ

テニス等のダブルスゲームのペアを決めるための乱数表を作りたいと思い、Web検索したところrio_dさんが作成されたExcelマクロプログラムを見つけました（http://oshiete1.goo.ne.jp/kotaeru.php3?q=1388951）。記載されている通りにマクロを作成しましたが、実行すると「SubまたはFunctionが定義されていません」というコンパイルエラーメッセージが出てしまいます。rio_dさんのマクロプログラムの最初に「Sub 乱数表作成()」がありますが、この（　）の中に何かを入力する必要があるのでしょうか。この他にも空白の（　）がいくつかあります。マクロについて全くの素人で何も分かりません。このrio_dさんのマクロプログラムを実行する方法を素人にも分かるように解説していただければ幸いです。

【rio_dさんが書かれたマクロは以下の通りです】

＜マクロ準備編＞
(1)新規ブックを開き、とりあえず名前をつけて保存します。『てにす乱数表.xls』にしましょうか。
(2)メニューバーから、ツール→マクロ→Visual Basic Editorを選択します。
　　Visual Basic Editorが起動します。
(3)左側に「VBAProject(てにす乱数表).xls」というのがあると思います。
　ツリー状になっていて、左の[+]で展開していくと、「ThisWorkbook」という
　ものが表示されると思います。
(4)その「ThisWorkbook」をダブルクリックします。
　右側に「～～.xls - Thisworkbook(コード)」というウインドウが表示されます。
(5)そこに、下記のコードをコピー&ペーストしてください。
(6)Visual Basic Editorを閉じます。
(7)ここで一旦上書き保存しておきましょう。

＜データ準備編＞
(1)セルA1に、コート数を入力してください。数字でお願いします。
(2)セルB1から横方向に、人数を入れていってください。
(3)セルA2から縦方向に、試合数を入れていってください。

こんなかんじ
　＿A＿＿B＿C＿D＿_E＿_F＿_G＿＿H＿＿I＿＿J＿＿K
1|　　3　　5　　6　　7　　8　　9　　10　　11　　12　　13　　14…
2|　　1
3|　　2
4|　　3
5|　　4
6|　　5
7|　　6
　　　：

＜データ作成編＞
(1)メニューバーから、ツール→マクロ→マクロ　と選択してください。
(2)実行するマクロの一覧に「ThisWorkbook.乱数表作成」というのがでるので、
　　それを選択して「実行」してください。
(3)砂時計が消えたら完成です。

このマクロは実行するたびに結果が変わります。気に入らなかったら何度でも
やり直してください。
また、全セルを消去すれば、データ準備からやり直すことも出来ます。
好きな表をいくつでも作ってください。
ちなみに100人とかデータ数がえらく膨大になると、なかなか計算が終わりませんので。
その場合は気長に待ってください。

'-----マクロ　ここから-----
Sub 乱数表作成()
Dim iRow As Integer
Dim iCol As Integer
Dim iCnt As Integer
Dim iCnt2 As Integer
Dim iTmp As Integer
Dim sNum() As String
Dim bChk() As Boolean
Dim bChk2() As Boolean
Dim bFull As Boolean
Dim iCourt As Integer
iCol = 2

Do Until Cells(1, iCol) = ""
iRow = 2
If Cells(1, 1) * 4 > Cells(1, iCol) Then
iCourt = Round(Cells(1, iCol) / 4 - 0.5, 0)
Else
iCourt = Cells(1, 1)
End If
ReDim sNum(iCourt * 4 - 1)
ReDim bChk(Cells(1, iCol))
ReDim bChk2(Cells(1, iCol))
For iCnt = 1 To Cells(1, iCol)
bChk(iCnt) = True
bChk2(iCnt) = True
Next iCnt
Do Until Cells(iRow, 1) = ""
iCnt = 0
Do Until iCnt = iCourt * 4
iTmp = Round(Rnd(Second(Now)) * Cells(1, iCol) + 0.5, 0)
If bChk(iTmp) And bChk2(iTmp) Then
sNum(iCnt) = "[" & Trim(Str(iTmp)) & "]"
iCnt = iCnt + 1
bChk(iTmp) = False
bChk2(iTmp) = False
bFull = False
For iCnt2 = 1 To Cells(1, iCol)
bFull = bFull Or bChk(iCnt2)
Next iCnt2
If bFull = False Then
For iCnt2 = 1 To Cells(1, iCol)
bChk(iCnt2) = True
Next iCnt2
End If
End If
Loop
Cells(iRow, iCol) = sNum(0)
For iCnt = 1 To iCourt * 4 - 1
Select Case iCnt Mod 4
Case 0
Cells(iRow, iCol) = Cells(iRow, iCol) & Chr(10) & sNum(iCnt)
Case 2
Cells(iRow, iCol) = Cells(iRow, iCol) & "：" & sNum(iCnt)
Case Else
Cells(iRow, iCol) = Cells(iRow, iCol) & sNum(iCnt)
End Select
Next iCnt
For iCnt = 1 To Cells(1, iCol)
bChk2(iCnt) = True
Next iCnt
iRow = iRow + 1
Loop
iCol = iCol + 1
Loop
End Sub
'-----マクロ　ここまで-----

Aベストアンサー

> この（　）の中に何かを入力する必要があるのでしょうか？
　　　関数なので、カッコは、このままで構いません。【入力不要】

　rio_dさんの通りに、マクロを入力して実行させたところ、
下記のような結果になりました。

３　　　　　　　５　　　　　　　６　　　　　　　　７　　　　　　　　　　８

1　[4][3]：[2][1]　　[1][5]：[2][3]　　[1][2]：[7][3]　　[7][3]：[6][1]
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　[2][4]：[5][8]

2　[5][4]：[1][3]　　[6][4]：...続きを読む

他の回答も見る

ページトップ