[[20041225061651]]　『RAND関数について教えて下さい。』（SOS）　ページの最後に飛ぶ

『RAND関数について教えて下さい。』（SOS）

RAND関数を使ってみたいのですが次の事で困っています。
どうぞ教えて下さい。
A1に「=INT(9*RAND())」として１～９までをランダムに
表示させる事は出来ました。しかしながら他のセルに何か
を入力してEnterキーを押すとA1の値が変化してしまいます。
F9キーを押した時だけRAND関数が働くようにしたいのですが
出来ますでしょうか。
よろしくお願いいたします。

 ツール、オプション、計算方法を手動をＯＮ、保存前に再計算のチェックを外す。
 としますと、そのようになると思います。　　　　　　　　　　　　　　　(LOOKUP)

衝突～

 ツール→オプション→計算方法→手動
で如何でしょうか？
（キリキ）

 おかげさまで解決いたしました。
 LOOKUP様、キリキ様ありがとうございました。
 (sos)

 解決したのですがその先に分からない事が出来ましたので
 お尋ねいたします。
 痴呆予防用の簡単な計算を繰り返し行えるものでなるべくマクロを
 使わない単純なものを作りたいと思っております。
 A1:A10,B1:B10に「=INT(9*RAND())」を入れてそれぞれランダムに
 一桁の数値が発生するようにしA1+B1の答えをC1に手動入力し、C1の
 結果が正しいか否かをD1に○、×で表示させるべく式
   「=IF(C1="","",IF(C1=E1,"○","×"))」を入れて判定させたいと
 考えました。E1は「=SUM(A1+B1)」としました。
 ところが、ツール→オプション→計算方法→手動とするとランダムに
 表示させる部分はうまく行くものの「○,×」の判定がうまく行きません。
 何故でしょうか。また、もっとうまく私の目的を達成できる方法がござい
 ましたら教えて下さい。
 よろしくお願いいたします。
 (SOS)

 なるほど～　計算が手動のために、IF関数も判定してくれないわけですね。。。
部分的に自動計算とか出来るのかな～？

 後は、作業列を作り　コピー→編集→形式を選択して貼り付け→値
で、数字のみを複写するってのはダメ？
（キリキ）

 ＞なるべくマクロを使わないで・・・
 絶対でなければ・・・(^_^A;
 シートモジュールにこんなの入れたらどうでしょうか。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row > 10 Then Exit Sub
    With Cells(Target.Row, 1)
        If .Offset(0, 2).Value = "" Then
            .Resize(1, 2).Formula = "=INT(9*RAND())"
            .Resize(1, 2).Value = .Resize(1, 2).Value
        End If
    End With
End Sub

 （川野鮎太郎）

 キリキ様,川野鮎太郎様ありがとうございます。
 小学生用の百枡計算というのが話題になっておりますよね。
 あれをダウンロードして実際にやってみましてとてもいいなと思いました。
 と同時に高齢者のボケ防止用に本当に簡単なものは出来ないかなと無い知恵を
 絞ってみましたが私には出来そうで出来ません。巷には、老人向けパソコン
 教室が結構盛んで自分のパソコンをお持ちの方もたくさんおります。
 やはり、マクロのセキュリティー云々となると少し難しい面があるようです。
 ですから何とかマクロを使わずにと思います。
 ちなみに一桁の簡単な計算を繰り返すことが予防にもすでに不幸にして痴呆が
 始まってしまった人にも相当な効果が期待できるそうです。
 是非作ってみたいと思いますのでよろしくお願いいたします。
 (SOS)

 マクロをボタンにセットってのは如何でしょう？
 【問題作成】と【採点】ってな感じでf(^_^;)
 高齢者には、マウス操作は難しいかな～？
 （採点は必要ないか？）
（キリキ）

 ＞マクロのセキュリティー云々
 ↑ってことなので、どんなマクロでも無理みたいですね(^_^A;
 しかし、Rand関数使うか、Now関数使うかしないと、数値は変わらないし・・・、
 使うと入力のたびに数値が変わるし・・・＿/￣|○ il||li
 果たして一般機能だけで出来るのかしら・・・。

 値の複写なんかでも、その使う人が操作することになるのだろうから無理でしょうしね（￣ー￣；A アセアセ･･･
 （川野鮎太郎）

 マクロダメ？
 素人が作れるものはこんなものですが...
 Sub test()
 Dim mr As Long, mc As Long, q As Long
 Range("C1:C10").ClearContents
 For mc = 1 To 2
     For mr = 1 To 10
         q = CInt(Int((10 * Rnd()) + 1))
         Cells(mr, mc).Formula = q
     Next mr
 Next mc
 End Sub
ボタンを保護しちゃえば問題なくない？
（キリキ）18:15 コード修正しました

 私は一般機能はよく知りませんが、マクロを一切使わないのは無理じゃないでしょうか。

 商用・業務アプリケーションは作れないみたいですが、Delphi6 Personalなど使うのはダメでしょうか?
 エクセルがなくても大丈夫だし、その程度のものなら簡単に作れると思います。(wizik)

 [Borland Delphi 6 Personal ダウンロード]
http://www.borland.co.jp/delphi/personal/

 皆様色々とありがとうございます。
 エクセルを使うならマクロを使わなければ難しいようですね。
 それではマクロを使って最もやりやすい方法を考えて見ます。
 今後ともよろしくお願いいたします。
 (SOS)

コメント返信：

[ 一覧(最新更新順) ]

[[20041225061651]] 『RAND関数について教えて下さい。』（SOS） ページの最後に飛ぶ

[[20041225061651]]　『RAND関数について教えて下さい。』（SOS）　ページの最後に飛ぶ