Excel Maniacs

トーナメント表自動作成 Knockout Tournament

(●`ε´●)：明日、バドミントンの地区顧問会議なんだけど個人戦のトーナメント表を

　　　　　　作るのがかったるいよ。

【´･ω･`】：いつも時間がかかるからね。

(●`ε´●)：何とかならないのか？

【´･ω･`】：わかった。こんなのどうだい？

'---------------------------------------------------------------------------------------------

'トーナメント表自動作成システム（Knockout Tournament）

'仕様　

'　　　　参加校：　９校まで

'           参加数：　２４から３６まで

'            シード：　８シードまで

'------------------------------------------------------------------------

★使用法

 １．Knockout Tournament.xlsm　をダブルクリック。マクロを有効ににすると

　　下のようなメニューが現れる。

 

２．「チーム名を登録」をクリックする。下の表が現れるので、ここで団体（学校）名を入力する。

入力が終わったら、「次へ（メニュー表示）」をクリックする。

　メニューが表示されるので「選手名登録」をクリック。

 ３．下表が現れる。ここで選手名を入力する。

入力が終わったら、「次へ（メニュー表示）」をクリックする。ここまでで初期設定終了。

 

４．必要があれば「シード指定」をクリックしてシードを設定する。

　　シードはドロップダウンリストから選択する

 

作業が終わったら、、「次へ（メニュー表示）」をクリックする。

５．「トーナメント表作成」をクリック。

　　表が作成されたら「トーナメント表印刷」をクリック。

 

　備考：　表はA4サイズで印刷される。

　　　　：　Ctrlキーとmキーを同時に押せばメニューが表示される。

           :   抽選まで自動。当然のことながら同じ団体（学校）の者が重なって４分の１のヤマに入らない。

 

(●`ε´●)：バドミントンに限らず、テニスでも卓球でも小規模な大会ならトーナメント表が

　　　　　　簡単に作れるな！

Knockout Tournamentをダウンロード

関数で出来ますか～？ 第239回 簡単ランダム2問 解答例

では、

 

短さは考えなかった。

 

かいたまんま、、、

 

１）35:=RANDBETWEEN(1,DAY(DATE(B7,C7+1,)))

 

2)38:=INT((INT(RAND()*10+1)^(RAND()*10+1)))

 

　　　　　　　　　　　　　　　　　　（ジョー3さん）

関数で出来ますか～？ 第239回 簡単ランダム2問

問題1 年と月をランダムで出したつもり （小さな欠点がいっぱいかも：出生数、丙午、閏年）

　　　　まあ、そこは目をつむって、日を出してほしい あ、、もちろん2月29日とかも時には

　　　　出るはずではある。

 

問題２ 1桁から10桁までの数字を出したい 失敗例は、1桁の数字はほとんど出てくれない。

　　　　1桁も、2桁も、・・・10桁もほぼ均等に出てほしいのだ。

 

　　　・・・ってことで、、どこにでもありそうな問題ですが、 しばらくぶりってことで、お許しください。

　　　まあ、各問題とも、5分以内で最終解答に（常連は秒？？） 到達しそうではありますけれども、

　　　初めての方でも参加 出来そうでは、あるってことで、、 お許しください。

 

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん）

 

解答用参考ファイル： Q239をダウンロード

 

**********************************************************************************

尚、解答締め切りは０４／１８（土）の午後８時の予定です。

状況によっては 変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

********************************************************************************