OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

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

  • 困ってます
  • 質問No.161304
  • 閲覧数237
  • ありがとう数3
  • 気になる数0
  • 回答数4
  • コメント数0

お礼率 50% (2/4)

エクセルで発生させた乱数をその都度データとして残す方法教えてください。たとえばエクセル内で10回乱数を発生させてその10回分のデータを表に記録して残したいのですが・・・。何かいい方法ありますか?もちろん、関数を使ってですけど。
通報する
  • 回答数4
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全4件)

  • 回答No.1
レベル12

ベストアンサー率 51% (254/492)

こんにちは  例えばA1:A10に =RAND() を入力するのはいかがでしょうか? ...続きを読む
こんにちは

 例えばA1:A10に =RAND() を入力するのはいかがでしょうか?
補足コメント
moto_misa

お礼率 50% (2/4)

説明不足で申し訳ありません。
その都度再計算した時点で関数を使って追記して、残す方法はないでしょうか。もちろんブック内でもあるいはアクセスを使っても構わないのですが何かいい方法がないでしょうか?
投稿日時 - 2001-11-02 02:28:26
お礼コメント
moto_misa

お礼率 50% (2/4)

ありがとうございます。説明不足のようでしたので追記しておきます。
投稿日時 - 2001-11-02 02:13:51

  • 回答No.2
レベル13

ベストアンサー率 68% (791/1163)

RAND()のままだと再計算で値が変わるので、固定したいということですか? 関数とか何も使いませんが、moto_misaさんの意図したこととあっていればいいんですが。 ツール→オプションで計算方法を手動にします。 発生させた乱数をコピーして任意の場所に、『形式を選択して貼り付け』の『値』を実行します。これで、乱数が値になります。 新しい乱数を発生させるにはファンクションキーF9を押します。 ...続きを読む
RAND()のままだと再計算で値が変わるので、固定したいということですか?
関数とか何も使いませんが、moto_misaさんの意図したこととあっていればいいんですが。

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

ご参考に。
補足コメント
moto_misa

お礼率 50% (2/4)

説明不足で申し訳ありません。
自分でコピーをしないでその都度再計算した時点で関数を使って追記して、残す方法はないでしょうか。もちろんブック内でもあるいはアクセスを使っても構わないのですが何かいい方法がないでしょうか?
投稿日時 - 2001-11-02 02:21:24
お礼コメント
moto_misa

お礼率 50% (2/4)

はい、意図はその通りです。少ない説明で理解してくださり、ありがとうございます。
投稿日時 - 2001-11-02 02:27:04
  • 回答No.3
レベル13

ベストアンサー率 68% (791/1163)

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

'*** 乱数の固定(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.4
レベル12

ベストアンサー率 51% (254/492)

こんにちは  実際におやりになりたいことが、まだよくわかっていませんが...  nishi6さんの For rw = 1 To 10  'セルA1~A10の値をB1~B10に書く  Cells(rw, 2).Value = Cells(rw, 1).Value Next の部分については、 Range("B1:B10").Valu ...続きを読む
こんにちは

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

 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

というふうに書くこともできます。
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ