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列)に◎が出るようにしてください。

 

▼ クリックで解説を表示

 
 



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

  

演劇の制作さんへ

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

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

 

最近の記事

『MEAN GIRLS』会見より
演出家とのディスカッションを重ね 生田絵梨花主演『MEAN GIRLS』開幕
0
公演中 01月30日(月) 〜 02月27日(月)
マグマ∞「南四局は終わらない」
青年座のベテラン俳優たちが集結して新ユニットを結成! マグマ∞『南四局は終わらない』浅草九劇で2月1日(水)に開幕/上演は12日(日)まで
10
公演中 02月01日(水) 〜 02月12日(日)
『舞台・エヴァンゲリオン ビヨンド』出演者
窪田正孝、石橋静河らの出演でエヴァを舞台化 『舞台・エヴァンゲリオン ビヨンド』5月6日(土)からTHEATER MILANO-Zaで上演
7
公演日程 05月06日(土) 〜 06月19日(月)
三浦涼介、鳥越裕貴、平野良らが豪華共演! CCCreation Presents 舞台『桜姫東文章』5月3日(水)から新宿スペース・ゼロで上演
37
公演日程 05月03日(水) 〜 05月10日(水)
月影番外地その7『暮らしなずむばかりで』 撮影:田中亜紀
素通り出来ない台詞だらけ! 高田聖子の月影番外地その7『暮らしなずむばかりで』下北沢ザ・スズナリで上演中/1月29日まで
4
公演終了 01月18日(水) 〜 01月29日(日)
劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』製作発表より 撮影:田中亜紀
三宅健、松井玲奈、寺西拓人ら 新たな挑戦に意欲 劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』製作発表レポート
182
公演日程 03月10日(金) 〜 05月01日(月)
『Dear Me!』出演者インタビュー
川崎のとある夜間保育園で繰り広げられる、ドタバ タな親たちと、それに振り回され続ける保育士たちの物語。青春事情・大野ユウジ氏 の珠玉作『Dear Me!』出演者インタビュー ラゾーナ川崎プラザソルで1月22日から上演!
22
公演終了 01月21日(土) 〜 01月29日(日)
青春事情『キレナイ』初演
川崎のとある美容院で繰り広げられる、何かと“キレナイ”思いを抱える人たちを描く 青春事情・大野ユウジ氏の珠玉作『キレナイ』出演者インタビュー ラゾーナ川崎プラザソルで1月21日から上演!
20
公演終了 01月21日(土) 〜 01月29日(日)
骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』
カフェ公演ならではの空気感を味わおう 骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』1月27日(金)から池袋Honey Beat Studioで上演
1
公演終了 01月27日(金) 〜 01月30日(月)
青年座『時をちぎれ』
土田英生書き下ろし新作 室町幕府を偏愛する社長とその会社を描いたコメディ! 青年座『時をちぎれ』1月20日(金)から東京芸術劇場シアターウエストで上演
13
公演終了 01月20日(金) 〜 01月29日(日)
ミュージカル『スクルージ』
クリスマスを嫌う男が起こす最高な奇跡 ミュージカル『スクルージ~クリスマス・キャロル~』観劇レビュー
4
公演終了 12月07日(水) 〜 12月25日(日)
ゲキ×シネ「神州無頼街」ポスター
【全国生中継あり】ゲキ×シネ『神州無頼街』福士蒼汰、宮野真守が登壇する舞台挨拶が1月14日(土)に新宿バルト9で開催/ゲキ×シネ『髑髏城の七人』Season月の特別上映も
108
公演終了 01月13日(金) 〜 02月02日(木)
秋吉織栄・松村彩永・結瀬ことり
秋吉織栄・松村彩永・結瀬ことりの女優3人組ユニット・おごチャン企画第1弾『戦隊!鷺ノ宮元子』1月19日から下北沢シアター711で上演
6
公演終了 01月17日(火) 〜 01月22日(日)
月影番外地その7『暮らしなずむばかりで』
明日を想えば、死がちらつく! そんな五十路の逆噴火物語! 高田聖子の月影番外地その7『暮らしなずむばかりで』1月18日(水)から下北沢ザ・スズナリで上演
5
公演終了 01月18日(水) 〜 01月29日(日)
劇団佐賀さわげが「九州若手劇団アワード!2022」を受賞
劇団佐賀さわげが「九州若手劇団アワード!2022」を受賞/寄付金を引き続き募集中
2
Ring-Bong第10回公演「さなぎになりたい子どもたち」
中学校の保健室に集う子供たちとその事情を描く Ring-Bong第10回公演『さなぎになりたい子どもたち』 1月18日(水)から座・高円寺1で上演
7
公演終了 01月18日(水) 〜 01月22日(日)
CEDAR×僕たち私たち『The Birthday Party』
大鶴義丹、​藤田朋子、​大森博史らが不条理でミステリアスなハロルド・ピンター作品に挑む CEDAR×僕たち私たち『The Birthday Party』12月17日 (土) から新宿シアターモリエールで上演
13
公演終了 12月17日(土) 〜 12月25日(土)
古田新太、天海祐希らの熱演で完走した劇団☆新感線『薔薇とサムライ2−海賊女王の帰還−』12月13日(火)にディレイビューイングを開催
80
公演終了 12月13日(火) 〜 12月13日(火)
八王子ユースシアター2022全舞台一斉上演会『TAMARIBA』
コンセプトは「つくる、タマリバ。」 八王子ユースシアター『全舞台一斉上演会“TAMARIBA”』12月16日(金)~18日(日)に八王子市文化会館で開催
20
公演終了 12月16日(金) 〜 12月18日(日)
製作委員会第13回公演 『メイン通りの妖怪』
60代からの「自分との折り合いのつけ方」をテーマにしたコメディ 製作委員会 第13回公演 『メイン通りの妖怪』が12月2日に新宿シアター・ミラクルで開幕
10
公演終了 12月02日(金) 〜 12月08日(木)
劇団チャリT企画『アベベのベ 2』撮影:鈴木 淳
風刺か? 冒涜か? 4者にムチ打つ茶番コメディ! 劇団チャリT企画『アベベのベ 2』が下北沢・駅前劇場で開幕/上演は12月4日(日)まで!
8
公演終了 11月30日(水) 〜 12月04日(日)
中村倫也主演ミュージカル『ルードヴィヒ~Beethoven The Piano~』
【予告動画あり】中村倫也主演ミュージカル『ルードヴィヒ~Beethoven The Piano~』2023年2月24日から全国11館の映画館で上映
160
公演日程 02月24日(金) 〜 (木)
『守銭奴 ザ・マネー・クレイジー』 撮影:田中亜紀
虚飾の城の裸の王様のものがたり『守銭奴 ザ・マネー・クレイジー』観劇レビュー
23
公演終了 11月23日(水) 〜 12月11日(日)
『ルーシーフェス/大盤振舞』
楽劇座10周年記念公演をオンラインで開催! 公演映像2本+生配信6回の『ルーシーフェス/大盤振舞』12月10日から1ヶ月にわたり開催
17
公演終了 12月10日(土) 〜 01月10日(火)
お座敷コブラ『TRIANGLE』
チームTartaglia 出演者インタビュー 『非対面芝居』がさらに進化! 濃密な会話サスペンス リモート取材の裏に隠された17年前の未解決事件。衝撃のラストは必見! お座敷コブラ『TRIANGLE』2022年11月30日から溝ノ口劇場で上演
37
公演終了 11月30日(水) 〜 12月04日(日)
劇団B-Stage『どうか私と黄泉の果てまで』
劇団B-Stageが初のオリジナル作品に挑戦! 舞台『どうか私と黄泉の果てまで』12月9日(金)~11日(日)に北翔大学札幌円山キャンパス多目的ホールにて上演
5
公演終了 12月09日(金) 〜 12月11日(日)
ゲキ×シネ「神州無頼街」ポスター
【予告編動画あり】福士蒼汰・宮野真守の最強バディに映画館でまた会える! ゲキ×シネ『神州無頼街』2023年1月13日から全国上映
86
公演終了 01月13日(金) 〜 (木)
音楽劇『ジェイド・バイン』
アンドロイドの世界、人間の熱で今伝えたいメッセージ 音楽劇『ジェイド・バイン』観劇レビュー
25
公演終了 11月17日(木) 〜 11月23日(水)
made by nakice
モノと生息し、身体を含む物質が持つ現象と形跡を表出させる nakice『ABITA@京都芸術センター』12月16日~18日に開催
9
公演終了 12月16日(金) 〜 12月18日(日)
令和座 第5回公演『バビロンに死す』
劇場の区域一帯までを作品の背景に仕立てようと画策する 令和座 第5回公演『バビロンに死す』12月7日(水)からシアターバビロンの流れのほとりにて で上演
21
公演終了 12月07日(水) 〜 12月11日(日)

 ≫もっと見る
 

編集部ピックアップ!

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



Copyright 2023 Village Inc.