エクセルで発生させた乱数のデータを残す方法教えてください

質問

エクセルで発生させた乱数をその都度データとして残す方法教えてください。たとえばエクセル内で１０回乱数を発生させてその１０回分のデータを表に記録して残したいのですが・・・。何かいい方法ありますか？もちろん、関数を使ってですけど。

回答No.4

kbonb

こんにちは

　実際におやりになりたいことが、まだよくわかっていませんが...

　nishi6さんの

For rw = 1 To 10
　'セルA1～A10の値をB1～B10に書く
　Cells(rw, 2).Value = Cells(rw, 1).Value
Next

の部分については、

Range("B1:B10").Value = Range("A1:A10").Value

というふうに書くこともできます。

参考URL：

http://www2.odn.ne.jp/excel/

回答No.3

nishi6

アクセスはいいけどコピーはしたくないということがよくわかりませんが、アクセスを使ってもいいということなので、VBAを使ってもいい？
シートの計算方法を手動にしておけば、再計算のタイミングでA1～A10の乱数を数値としてB1～B10に書き出します。再計算はＦ９です。
下記モジュールをシートのコードウインドウに貼り付けます。
ご参考に。

'*** 乱数の固定(A1～A10をB1～B10に書く) ***
'　　　　シートの計算方法を手動にしておく
Private Sub Worksheet_Calculate()
　　Dim rw As Long '行カウンタ

　　On Error GoTo ErrorHandler '何かエラーが起きた場合の処理

　　Application.EnableEvents = False 'イベントを発生させない
　　For rw = 1 To 10
　　　　'セルA1～A10の値をB1～B10に書く
　　　　Cells(rw, 2).Value = Cells(rw, 1).Value
　　Next
　　Application.EnableEvents = True 'イベントを発生させる

　　Exit Sub
ErrorHandler:
　　'何かエラーが起きたらイベント発生させるように戻す
　　Application.EnableEvents = True
End Sub

回答No.2

nishi6

RAND()のままだと再計算で値が変わるので、固定したいということですか？
関数とか何も使いませんが、moto_misaさんの意図したこととあっていればいいんですが。

ツール→オプションで計算方法を手動にします。
発生させた乱数をコピーして任意の場所に、『形式を選択して貼り付け』の『値』を実行します。これで、乱数が値になります。
新しい乱数を発生させるにはファンクションキーＦ９を押します。

ご参考に。

お礼

はい、意図はその通りです。少ない説明で理解してくださり、ありがとうございます。

補足

説明不足で申し訳ありません。
自分でコピーをしないでその都度再計算した時点で関数を使って追記して、残す方法はないでしょうか。もちろんブック内でもあるいはアクセスを使っても構わないのですが何かいい方法がないでしょうか？

回答No.1

kbonb

こんにちは

　例えばA1:A10に =RAND() を入力するのはいかがでしょうか？

参考URL：

http://www2.odn.ne.jp/excel/

お礼

ありがとうございます。説明不足のようでしたので追記しておきます。

補足

説明不足で申し訳ありません。
その都度再計算した時点で関数を使って追記して、残す方法はないでしょうか。もちろんブック内でもあるいはアクセスを使っても構わないのですが何かいい方法がないでしょうか？