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

締切済

質問者：moto_misa
質問日時：2001/11/01 19:30
回答数：4件

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

通報する

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

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： kbonb
回答日時：2001/11/02 21:35

こんにちは

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

　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/

- 0
- 件

通報する

No.3

回答者： nishi6
回答日時：2001/11/02 10:58

アクセスはいいけどコピーはしたくないということがよくわかりませんが、アクセスを使ってもいいということなので、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

- 0
- 件

通報する

No.2

回答者： nishi6
回答日時：2001/11/02 00:17

RAND()のままだと再計算で値が変わるので、固定したいということですか？

関数とか何も使いませんが、moto_misaさんの意図したこととあっていればいいんですが。

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

ご参考に。