Ｐａｇｅ 415 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼くじ引きのプログラム nego 02/11/29(金) 22:27 ┗Re:くじ引きのプログラム コロスケ 02/11/30(土) 13:57 ┗Re:くじ引きのプログラム nego 02/11/30(土) 17:40 ┗Re:くじ引きのプログラム JuJu 02/12/1(日) 4:28 ┗Re:くじ引きのプログラム nego 02/12/1(日) 18:03 ─────────────────────────────────────── ■題名 ： くじ引きのプログラム ■名前 ： nego <nego@mail.goo.ne.jp> ■日付 ： 02/11/29(金) 22:27 -------------------------------------------------------------------------
| ExcelVBAで、くじ引きのプログラムを作りたいのですが、 できれば、抽選者名と当選人数を入力して、抽選者の横に○×が着くようなやつができれば最高なのですが。 誰かヒントだけでいいですから教えてください。お願いします。 |
| nego さん こんにちは。 >誰かヒントだけでいいですから教えてください。お願いします。 ということなので...(というか詳細が全然わからないので) VBAのヘルプでrndと打ち込んで調べてみてください。 乱数の発生方法についての知識が得られるはずです。 ではー♪ |
| ▼コロスケ さん： >nego さん こんにちは。 > >>誰かヒントだけでいいですから教えてください。お願いします。 >ということなので...(というか詳細が全然わからないので) >VBAのヘルプでrndと打ち込んで調べてみてください。 >乱数の発生方法についての知識が得られるはずです。 >ではー♪ 単純にrnd使ったら同じ人に2回以上当たっちゃう可能性があるじゃないですか。 その辺を回避する方法がわからないのです。すみません、誰かお知恵を拝借できないでしょうか。（配列使ってもそれをExcel画面にうまく出せないし） |
| negoさん、コロスケさん、こんにちはぁ >単純にrnd使ったら同じ人に2回以上当たっちゃう可能性があるじゃないですか。 >その辺を回避する方法がわからないのです。すみません、誰かお知恵を拝借できないでしょうか。（配列使ってもそれをExcel画面にうまく出せないし） いろいろな方法がありますが、配列内の数値を並び替える方法を覚えておく便利です。 http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=1817;id=Access 1850の > For i = 0 To 9999 > MakeNum(i) = i + 1 > Next の部分を For i = 0 To 9999 MakeNum(i) = IIf(i < 10, 1, 0) Next にすれば、10000人中10人が当りです。 （そのまま、10未満なら当りという判断でもいいと思います） ではではぁ |
| ▼JuJu さん： おかげで何とかできました。ありがとうございました。 >negoさん、コロスケさん、こんにちはぁ > >>単純にrnd使ったら同じ人に2回以上当たっちゃう可能性があるじゃないですか。 >>その辺を回避する方法がわからないのです。すみません、誰かお知恵を拝借できないでしょうか。（配列使ってもそれをExcel画面にうまく出せないし） > >いろいろな方法がありますが、配列内の数値を並び替える方法を覚えておく便利です。 > >http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=1817;id=Access > >1850の >> For i = 0 To 9999 >> MakeNum(i) = i + 1 >> Next >の部分を > For i = 0 To 9999 > MakeNum(i) = IIf(i < 10, 1, 0) > Next >にすれば、10000人中10人が当りです。 >（そのまま、10未満なら当りという判断でもいいと思います） > >ではではぁ |