2022.8.10  3

エクセルマクロ(EXCEL VBA) その17 抽選システムを作る(Rnd)



舞台・演劇の制作業務はなるべく自動化してパソコンにやってもらおう企画

 

抽選システムを作る

 

何かのキャンペーンでTweetしてくれた人や、何かを買ってくれた人を対象に、抽選で○名様に△△をプレゼント!
というのは、よくある企画です。

数名だったら、『この人とこの人!』と適当に決めればいいんですが、ちゃんとランダムに決めるシステムを作ってみましょう。

こんな対象者リストがあったとします。

氏名のリスト

それぞれには番号が振ってあるので、1~10の数字が出るような抽選システムを作って、その番号が出た人が当たり、ということにしてみましょう。
ランダムな数値を生成するには Rnd という関数を使います。
試しに、D3あたりにランダムな数値を出してみましょう。
D3は、Cells(3, 4)なので、

Sub chusen()
Cells(3, 4) = Rnd
End Sub

ランダム

と書きます。
これを実行すると、

ランダムな数値が出せた

今回は0.579・・・という値でしたが、実行するたびに値は変わります。
なおここで生成される数値の範囲は、0以上 1未満です。

では、1~10の数字を出せるようにするにはどうしたらいいでしょうか?
まずは10倍して、小数点以下を切り捨てるのはどうでしょう。
そうすると、0 ~ 9 のどれかが出るはずなので、1を足せば 1 ~ 10の目が出るようになるはずです。
小数点以下を切り捨てるには、Int を使うとよいようですので、

Cells(3, 4) = Int(Rnd * 10) + 1

としてみます。

抽選できるようになった

 
ところで、対象者が10人ではなく、12人だったらどうしたらいいでしょう?

実は先ほど10を掛けたところを12にするだけで大丈夫です。

Cells(3, 4) = Int(Rnd * 12) + 1

なぜなら、(Rnd * 12)の最大値はおよそ 0.99999 × 12 = 11.9998
Intで小数点以下を切り捨てるので Int(11.9998) = 11
Int(Rnd * 12) + 1 = 11 + 1 = 12 となるからです。

数字を変更すれば良いはず

最終行を使う

ところで、その13でやったように、リストの最終行は、数値として取得できるのでした。

最終行数を変数 lastRow に入れることにすると、

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

と書けます。
1行目はNo.という項目の行なので、lastRowは、抽選人数よりも 1 多い数になるはずです。

なので、抽選人数を n 人とすると

n = lastRow - 1

とできるので、

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
n = lastRow - 1
Cells(3, 4) = Int(Rnd * n) + 1

これで、人数が増えても、抽選で番号を出せるシステムができました。

 
今回の最終的なコード

Sub chusen()
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
n = lastRow - 1
Cells(3, 4) = Int(Rnd * n) + 1
End Sub

 

宿題-17
当選した人の横(C列)に◎が出るようにしてください。

 
宿題の答えについて

自分の書いたマクロで宿題の内容が実行できれば、答えを見る必要はないと思います。
・・・なのですが、一応 答えファイルを用意してみました。パスコードをご購入いただくことで続きが読めるようになります。ご検討ください。

パスコードの購入はこちら

Protected Area

パスコードを入力すると、続きが読めるようになります。

 
 



もくじ(エクセルマクロ EXCEL VBA)

  

演劇の制作さんへ

→ 他にどんな作業ができたら便利か思いついたらぜひ教えてください!(うまく実現できるかわからないけど・・・。)
http://entre-news.jp/contact
 

 
(文:森脇孝/エントレ)

 

最近の記事

ミュージカル『モダン・ミリー』写真提供:東宝演劇部
仕事も恋も”計画と違う”ことばかり! ミュージカル『モダン・ミリー』観劇レビュー
2
公演中 09月07日(水) 〜 10月02日(日)
SHINKANSEN☆RX『薔薇とサムライ2 -海賊女王の帰還-』ライブビューイング 11月26日(土)に開催
古田新太、天海祐希らの出演で大ヒット上演中の新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』ライブビューイングが11月26日(土)に開催
56
公演中 09月09日(金) 〜 12月06日(火)
演劇ユニットスターチス『絢爛とか爛漫とか~モダンガール版~』
多くのカンパニーで上演され続けた名作! 演劇ユニットスターチス『絢爛とか爛漫とか~モダンガール版~』10月15日(土)から東京・キーノート・シアターで上演
3
公演日程 10月15日(土) 〜 10月16日(日)
『コムサ de MANZAI!』
室龍太が気持ちいい程ツッコミまくる!『コムサdeMANZAI!』観劇レビュー
41
公演中 09月15日(木) 〜 10月08日(土)
昭和精吾事務所が寺山修司戯曲原作の歌と語りの音楽アルバム『仮面劇・犬神』を全国発売
昭和精吾事務所が寺山修司戯曲原作の歌と語りの音楽アルバム『仮面劇・犬神』を全国発売/9月23日に発売記念ライブ『天蓋境』を開催/11月に演劇公演
22
公演日程 11月11日(金) 〜 11月13日(日)
舞台『わたしがピアスをあけたLala...』
NGT48三村妃乃主演「親子」×「ラップ」×「コメディー」!? NBOpresent『わたしがピアスをあけたLala…』11月30日から東京・福島で上演
107
公演日程 11月30日(水) 〜 12月18日(日)
『歌妖曲〜中川大志之丞変化〜』製作発表 撮影:田中亜紀
【動画9分】中川大志、松井玲奈らが出演する音楽劇『歌妖曲〜中川大志之丞変化〜』製作発表レポート
50
公演日程 11月06日(日) 〜 12月25日(日)
『8人の女たち』
8人の真実が生む一つの結末とは『8人の女たち』観劇レビュー
64
公演終了 08月27日(土) 〜 09月12日(月)
SHINKANSEN☆RX『薔薇とサムライ2 -海賊女王の帰還-』古田新太・天海祐希 撮影:田中亜紀
【動画3分】古田新太の石川五右衛門&天海祐希の海賊女王アンヌのコンビがついに復活! 新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』富山公演が開幕/前作のゲキ×シネ上映も
117
公演中 09月09日(金) 〜 12月06日(火)
妄烈キネマレコード2作品同時公演『真昼間の君にさようなら/真夜中のユートピア』
【名古屋】「昼」と「夜」、同じ場所で巻き起こる2つの物語 妄烈キネマレコード2作品同時公演『真昼間の君にさようなら/真夜中のユートピア』9月22日(木)からG/PITにて上演
16
公演終了 09月22日(木) 〜 09月25日(日)
鈴木裕美
【9/28締切】演出家 鈴木裕美による俳優のためのワークショップ参加者募集
5
「WORLD ~Run for the Sun~」
校條拳太朗、杉江大志、佐々木優佳里らが出演の舞台『WORLD ~Run for the Sun~』スペース・ゼロで開幕/9月11日(日)まで
6
公演終了 09月03日(土) 〜 09月11日(日)
劇団☆新感線「薔薇とサムライ」舞台写真 古田新太、天海祐希
劇団☆新感線『薔薇とサムライ2-女王の帰還-』の上演を記念して ゲキ×シネ『薔薇とサムライ』などが各地で上映!/9月12日(月)の富山上映から開始
19
公演終了 09月12日(月) 〜 (木)
100点un・チョイス!『誰かが彼女を知っている』
多田​直人、花奈澪、松村優、近江谷太朗らが出演 100点un・チョイス!『誰かが彼女を知っている』中野 ザ・ポケットで開幕/上演は9月4日(日)まで
27
公演終了 08月31日(水) 〜 09月04日(日)
舞台『蜘蛛巣城』
早乙女太一、倉科カナが
《戦乱の世に翻弄される若き夫婦役》で出演 赤堀雅秋 演出舞台『蜘蛛巣城』2023年2月25日からKAAT神奈川芸術劇場ほかで上演
59
公演日程 02月25日(土) 〜 03月12日(日)
『レオポルトシュタット』に出演の音月桂
浜中文一、音月桂らが出演の舞台『レオポルトシュタット』10月14日から新国立劇場中劇場で上演/音月桂のインタビューが到着
43
公演日程 10月14日(金) 〜 10月31日(月)
ミュージカル『ダディ・ロング・レッグズ』
“幸せの秘密は目の前にある” ミュージカル『ダディ・ロング・レッグズ』観劇レビュー
88
公演終了 08月14日(日) 〜 08月31日(水)
ミュージカル『キャッチ・ミー・イフ・ユー・キャン』撮影:伊藤智美
岩本照が軽やかに欺く!ミュージカル『キャッチ・ミー・イフ・ユー・キャン』観劇レビュー
296
公演終了 08月11日(木) 〜 09月15日(木)
音楽劇『スラムドッグ$ミリオネア』写真提供/東宝演劇部
人生を切り開くエネルギー溢れる 音楽劇『スラムドッグ$ミリオネア』観劇レビュー
58
公演終了 08月06日(土) 〜 09月11日(日)
『建築家とアッシリア皇帝』宣伝美術:秋澤一彰 宣伝写真:山崎伸康
岡本健一と成河による二人芝居『建築家とアッシリア皇帝』11月21日からシアタートラムで上演
3
公演日程 11月21日(月) 〜 12月11日(日)
寺で出来る演劇『クォンタム・アリアの碧い首』
東京・大阪の「寺」で演劇公演!「クォンタム・アリアの碧い首」作演出に架空畳の小野寺邦彦/8月26日開幕
9
公演終了 08月26日(金) 〜 08月28日(日)
ミュージカル『ダディ・ロング・レッグズ』写真提供:東宝演劇部
【動画3分】井上芳雄・上白石萌音によるミュージカル『ダディ・ロング・レッグズ』シアター1010で開幕/8月24日からはシアタークリエで上演
90
公演終了 08月14日(日) 〜 08月31日(水)
©音楽劇『刻』製作委員会/撮影:岩田えり
【動画2分】伊藤裕一、大沢健、大山真志、東山光明らの出演で《極限の愛》を描く 音楽劇『刻』浅草九劇で上演中/9月11日(日)まで
38
公演終了 08月04日(木) 〜 09月11日(日)
TEAM909 第7回公演『役役役役』
百花繚乱 人間模様の墓参りサスペンス! TEAM909 第7回公演『役役役役』8月20日、21日にひつじ座にて上演
8
公演終了 08月20日(土) 〜 08月21日(日)
浦井健治
ミュージカル『アルジャーノンに花束を』浦井健治の主演で2023年GWに上演
37
音楽劇『スラムドッグ$ミリオネア』写真提供/東宝演劇部
屋良朝幸、川平慈英出演の音楽劇『スラムドッグ$ミリオネア』8月6日(土)夜公演からシアタークリエで上演開始
35
公演終了 08月06日(土) 〜 09月11日(日)
撮影:宮川舞子 ©ニッポン放送
音が人をつなぐヒューマンストーリー 室龍太主演『ONAIR~この音をキミに~』観劇レビュー
95
公演終了 07月28日(木) 〜 08月14日(日)
『守銭奴 ザ・マネー・クレイジー』
佐々木蔵之介×プルカレーテのタッグが復活『守銭奴 ザ・マネー・クレイジー』11月23日から東京芸術劇場プレイハウスで上演
5
公演日程 11月23日(水) 〜 12月11日(日)
パルコ・プロデュース 2022『スルメが丘は花の匂い』 撮影:岡千里
シュールさとファンタジーの中にリアルのエッセンス『スルメが丘は花の匂い』観劇レビュー
22
公演終了 07月22日(金) 〜 08月26日(金)
令和座第3回公演『宗教研究クラブ』
宗教研究をテーマに展開する静かで奇妙な一幕劇 令和座『宗教研究クラブ』がAPOCシアターで開幕/上演は7月31日(日)まで
19
公演終了 07月27日(水) 〜 07月31日(日)

 ≫もっと見る
 

編集部ピックアップ!

エントレがおすすめする他の舞台



Copyright 2022 Village Inc.