Excel2007で広範囲のセルに乱数を入れる

質問

sheet5の広範囲のセル(L6:BXI10000 )に1～5の数字を不規則に極力短時間で隙間なく埋める方法ってありますかね？

回答No.13

Mathmi · ベストアンサー

＞＋1の意味は格納するときに一歩進むという意味でしょうか？

一歩進むという意味が分かりませんが、多分違います。単純な算数です。

Rnd()は、0以上1未満の単精度浮動小数点数型 (Single) の乱数を返す関数です。
なので、int(Rnd()*5)で得られる乱数は0、1、2、3、4のいずれかです。
今回1～5の乱数が欲しいので、各々に1足してやれば、望む乱数が得られます。
この1足すのが、式の中の+1です。

お礼

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

回答No.12

Mathmi

＞0～9の数字にする場合はArr(i, j) = Int(Rnd() * 9 + 1)

いいえ、それだと1～9になります。
0から9にしたい場合、Int(Rnd() * 10)ですね。
もっと詳しく書くなら、Int(Rnd() * (最大値 - 最小値 + 1) + 最小値)になります。
Int(Rnd() * (9 - 0 + 1) + 0)→Int(Rnd() * 10)という訳です。

お礼

Randomize
　　　Arr(i, j) = Int(Rnd() * 5 + 1) の
＋1の意味は格納するときに一歩進むという意味でしょうか？

回答No.11

kkkkkm

> sheet 5 だけにするやり方ってどうすればよろしいでしょうか？

他のシートをすべて削除するとか、新しいブックで作業するとかです。

回答No.10

kkkkkm

最初の
As Variant
を
As Integer
にしたら多少変わるかも。
「かも」です。

回答No.9

kkkkkm

> 実行中のソフトを止めるとはどういうことなんですかね？

OKWAVEを開いたままとか、自身で何かソフトを起動したままにしているとかでなければ止めるものは無いと思って差し支えないです。バックグラウンドで動いているものもありますが、そのあたりは考えてなくていいと思います(止めていいものと駄目なものの判別ができないと思うので)

Sheet5ということは別のシートもあるということのように思えますが、もしできるのならSheet5だけにしてみてもいいかもしれません。あくまで「かもしれません」です。

お礼

こんばんはkkkkkm さん。回答ありがとうございます。
sheet 5 だけにするやり方ってどうすればよろしいでしょうか？
マクロを実行する前に"作業中のブック"というのを選択した状態がsheet5だけという形なんですかね？

回答No.8

kkkkkm

> メモリー不足とならないようにするにはどうすることが必要ですか？

PCのメモリを増やす。実行中のソフトを止める。
とかでしょうか。多分です。

お礼

実行中のソフトを止めるとはどういうことなんですかね？まだまだ詳しくなくて……_(^^;)ゞ
あまり詳しくなくて。ブックを開いてsheetに移りマクロ作業を指定回数指示する以外にソフトって動いてるんでしょうか？

回答No.7

Mathmi

既に回答がついているので控えようかと思いましたが、セル範囲の数指定を何度も繰り返しており、修正する時大変なので、一か所にまとめたコードを作成しました。
更新の停止も、三点セットに増やしています。

Sub RandomNumber()
　Dim i As Long, j As Long
　Dim TargetRange As Range
　Dim Arr() As Integer

　Set TargetRange = Worksheets("Sheet5").Range("L6:BXI10000") '数字を出力する範囲を設定
　ReDim Arr(1 To TargetRange.Rows.Count, 1 To TargetRange.Columns.Count)
　For i = 1 To TargetRange.Rows.Count
　　For j = 1 To TargetRange.Columns.Count
　　　Randomize
　　　Arr(i, j) = Int(Rnd() * 5 + 1) '1～5の乱数を配列に格納
　　Next j
　Next i

　Application.EnableEvents = False
　Application.ScreenUpdating = False
　Application.Calculation = xlCalculationManual
　TargetRange.Value = Arr '乱数を格納した配列をセルに出力
　Application.EnableEvents = True
　Application.ScreenUpdating = True
　Application.Calculation = xlCalculationAutomatic
End Sub

お礼

mathmi さん回答ありがとうございます。0～9の数字にする場合は

Randomize
　　　Arr(i, j) = Int(Rnd() * 5 + 1) を

Randomize
　　　Arr(i, j) = Int(Rnd() * 9 + 1) に
すれば大丈夫ですか？

回答No.6

kkkkkm

BXでなくてBXIだったんですね。Iを見落としてました。
65は1974に変更です。

お礼

回答ありがとうございます。
列を、欲張って10000 にしたときメモリー不足になりメッセージが出ました。
メモリー不足とならないようにするにはどうすることが必要ですか？

回答No.5

kkkkkm

> 所で６５とはどういう意味になりますか？

L列からBX列までの列数です。

回答No.4

msMike

１．式 =RANDBETWEEN(1,5) を入力したセル L6 を選択して、Ctrl+C
￣￣をパシーッ
２．[数式バー]にマウスカーソル放り込んで、それまで表示されていた
￣￣L6 を L6:BXI1000 に上書きして、Enterキーを「エイヤッ!」と叩き
￣￣付け
３．Ctrl+V をパシーッ
４．そのままの状態で、再度 Ctrl+C をパシーッ
５．そのままの状態で、[値の貼り付け]を実行

回答No.3

nishi6

これだけ広範囲だと何が起きるか分かりません。 私のパソコンでは2～3秒かかりました。
win10、Excel2010です。

以下の操作でできるはずです。

（１）セルL6に「=INT(RAND()*5+1)」と入力。
（２）名前ボックス（左上）をクリックすると、L6が選択状態になっているので、名前ボックスの何もないところをクリックして、後ろに「:BXI10000」を入力して「L6:BXI10000」にしてEnterキーを押す。
（３）ファンクションキーF2を押す。
（４）Ctrlキーを押しながらEnterキーを押す。