エクセルでナンバーズフォーのランダム抽選してもらいましょう。

使ってみようVBA			NUMBERS4
Excelでランダム抽選してもらいましょう。
最も簡単で意外に使えるかも？なんだけど、自分としてはグラフで傾向をみてがんばっているので使いませんけど。いや～たよるもんかです。
準備１ まずは、ワークシートから。ここは適当ですよ。	エクセルのSheet１、セルAの１にナンバーズフォー、その下に1個目(千の位）、2個目(百の位）、3個目(十の位）、4個目(一の位）って入力して、表を作ってください。 何でもいいんでけど、見出しだからね。
準備２ コマンドボタンを作ります。	左右角のofficeボタン Excelのオプション ユーザー設定 コマンドの選択→コントロールの挿入→追加 同じようにVisual Basicとデザインモードも追加しておいてください。 かばんにスパナとハンマが書いてあるボタンがでます。 そこからActiveコントロールの最初のボタン(フォームコントロール）を選んでクリックしてください。 マウスポインタでセルDの３あたりでクリックしたら、伸ばして適当な大きさにしてください。
	出来たボタンを選択しながら 右クリック→プロパティ→Caption で、ボタンに好きな名前いれてください。 ここでフォントや色を変えたりします。
手順１	ここからが重要です。 作成したボタンをダブルクリックしてください。 すると、Microsoft Visual Basicに切り替わり、以下の文章がでます。 Private Sub CommandButton1_Click() End Sub
手順２	間に下記のように入れてください。 Private Sub CommandButton1_Click() For i = 1 To 4 Dim MyValuei Randomize ' 乱数発生ルーチンを初期化します。 MyValue1 = Int((10 * Rnd) + 0) MyValue2 = Int((10 * Rnd) + 0) MyValue3 = Int((10 * Rnd) + 0) MyValue4 = Int((10 * Rnd) + 0) Next Range("b2").Value = MyValue1 Range("b3").Value = MyValue2 Range("b4").Value = MyValue3 Range("b5").Value = MyValue4 ActiveCell.Range("a1").Select End Sub これで終了です。Microsoft Visual Basicを閉じてください。
さて使ってみますか？	ボタンを押すとランダムに抽選してくれますよ、 もし、ならないときはデザインモードが押されているとおもいますので解除してください。 次回から、セキュリティの警告がでます。 コンテンツを有効にしてご使用ください。