MENU

ボウリング成績表レーン抽選方法~LTBリーグ編

レーン抽選を行ったリーグ参加者のレコードシートを作成・印刷する事ができます。
VBA(マクロ)が無効の場合はユーザーフォームが使えません。
必ず有効にして下さい。
目次

レーン抽選・印刷方法~LTBリーグ編

リーグ戦参加者を新規登録するには、まずエクセルファイルを開くと自動的にMENU画面(ユーザーフォーム)が表示されます。

あわせて読みたい
エクセルを開くと自動的にユーザーフォームが表示する方法 【ThisWorkBookにVBAコードを書く】 ボウリングのリーグ戦での成績表をエクセルで作成していますが、作業効率化と作成業務軽減の為にExcel-VBAをエクセル関数と合わせて...

表示されたMENU画面より、回戦数を入力して【レーン抽選】を選択してください。

ボウリングリーグ戦MENU~LTB編

MENU画面より【レーン抽選】を選択すると、レーン抽選フォームが表示されます。

レーン抽選は選手登録が最大40名なので、抽選可能人数も40名となっています。

ボウリングレーン抽選Ver1

入力項目は「LANE」番号と「投球順」のみで、全て半角数字となっています。

選手名表示ボタン

【レーン抽選】フォームが開くと、選手番号が表示されているだけの状態なので、【選手名表示】ボタンを押して、登録済みリーグ参加者の名前を読み込ませて選手名を表示させます。

【選手名表示】ボタンを押すと、選手1~選手40の表示が登録選手名に切り替わります。

※未登録選手番号は表示されなくなります。

このExcel-VBAを使用しています

あわせて読みたい
複数のラベル名を一括で複数のセルの値に書き換える方法 【ラベルキャプションをセルの値から一括取得】 ボウリングの大会や予約でASで名前登録作業を行っていて、一人目の名前を入れると、空欄の部分に登録した名前が表示され...
レーン抽選を実施後

表示選手名の右側の入力枠(テキストボックス)にLANE番号と投球順を入力します。

5番レーンの第2投球者なら、「レーン番号」は5、「投球順」は2、ですね。

全ての投球者のレーン番号・投球順の入力が終了したら、【抽選終了】ボタンを押します。

【抽選終了】ボタン

【抽選終了】ボタンを押すと、レコードシートに自動的に割り振られます。

投球者がいないレーン・投球順は空欄のままで大丈夫です。

誤って指定レーン以外(リーグ設定時)を誤入力すると警告が表示されます。

この場合、レコードシートに割振りが中止されますので、誤操作によるレーン番号を修正の上、再度【レーン抽選】ボタンを押してください

このExcel-VBAを使用しています

あわせて読みたい
VBAメッセージボックスをセルの値で表示する方法 【MsgBoxをセルの値と文字で表示】 ボウリング成績表でも使っているユーザーフォームに配置したコマンドボタンを押したら、メッセージを表示して「はい」を押せば、次の...
同一レーン・投球順が入力された場合(重複)は警告が表示されます。

同じレーン・同じ投球順の参加者がいる場合、レコードシート割振りが中止されますので、重複入力を修正の上、再度【レーン抽選】ボタンを押してください。

このエクセル関数を使用しています

あわせて読みたい
エクセル重複データを見つけてメッセージを出す 【入力データが重複していないかを見つけて知らせる】 エクセルで入力データ量が増えてくると、知らない間に同じデータを入力してしまったことありませんか? ボウリン...

このExcel-VBAを使用しています

あわせて読みたい
複数テキストボックスの入力値を一括して各セルへ記載する方法 【テキストボックスの値をセルに書き写す方法】 エクセルでの作業効率化の為にオリジナルの入力フォーム(ユーザーフォーム)を使ってデータの入力作業を行うようにテキ...

【レコードシート】を見るボタン

確認用のボタンです。

実際に割り振られたレコードシートを見ることができます。

実際に見られる時間は15秒間です。15秒後、再度「レーン抽選」画面が表示されます。

このExcel-VBAを使用しています

あわせて読みたい
Excel-VBAタイマー機能~数秒後に表示させる方法 【15秒後に自動的にユーザーフォームを自動表示】 ボウリングのリーグ戦での成績表でも必ず使うユーザーフォーム。 これがあるとボタンひとつで繰り返し作業を自動で行...

【印刷】ボタン

実際にレコードシートを印刷するボタンです。

印刷ページ数は、自動的に使用レーン数より判断して印刷しますので設定の必要はありません。

使用開始レーン番号と終了レーン番号は、レーン抽選画面上部に表示されています。

おまけ機能

通常は使うことが無いのですが、レコードシートを予備として「レーン番号」「選手名」などが未記入の白紙を印刷することができます。

印刷方法は、画面上部の「白紙印刷1枚する」にチェックを入れてから印刷ボタンを押すと、予備1枚を含めて、レコードシートが印刷されます。

【入力データを消去してMENUへ戻る】ボタン

通常使用の【MENU】ボタンと同じなのですが、ここでレーン抽選を行った「レーン番号」「投球順」の入力データを消去(クリア)してMENU画面が再度表示されます。

このExcel-VBAを使用しています

あわせて読みたい
ユーザーフォームを閉じて別のユーザーフォームを開く方法 ユーザーフォームをいくつか作って使い分ける事ってよくありませんか? そして苦労して作ったユーザーフォームは、設定をしなければエクセルのワークシートに表示させる...
あわせて読みたい
Excel-VBA指定した範囲のセルの値をクリアする方法 【指定した範囲の入力済みデータを消去する】 エクセルに名前がありランダムに番号を振って入力したり、抽選を行ってから番号を振ったりした後に、次回使う為に入力した...

ここで使うエクセル

ボウリング成績表レーン抽選方法~LTBリーグ編を作った時に使用した、エクセルのマクロ(Excel-VBA)とエクセル数式(関数)を使用しています。

この2つをマスターして、オリジナルのボウリングリーグ成績表を作ってみませんか?

Excel-VBA

エクセル数式(関数)

各コントロールまとめて転記シリーズ

ユーザーフォームを使うと配置したコントロール(テキストボックスやラベルなど)とセルとの間で値のやり取りが多くなります。

よく使うのでまとめてみました。

値の場所 転記したい場所 説明ページ
セルの値 ラベル名 VBAコード
セルの値 テキストボックスの値 VBAコード
セルの値 コマンドボタンの表示名 VBAコード
セルの値 セルの値 VBAコード
テキストボックス入力値 セルの値 VBAコード
波乗りアヒル
波乗りアヒル

成績表作成には知っておきたいExcel-VBAもくじ

あわせて読みたい
ボウリングハンデキャップのつけ方 【HDCPの種類はリーグのルールにより複雑に】 ボウリングの成績表(リーグ戦)で必ず必要になるのが、ハンデキャップ(HDCP)です。 ボウリングご予約の時に一番多く使...
あわせて読みたい
ボウリングリーグ対戦表の数字を名前に自動変換する方法 エクセルって色々なことできますが、頭から煙が出そうになること毎日です。 ボウリングのリーグ戦でのスケジュール表(対戦表)を使って、毎回リーグ対戦を行いますよね...
あわせて読みたい
人数に応じてボウリングリーグ対戦表を自動選択する方法 【エクセルでボウリングリーグスケジュール管理】 ボウリングのリーグ戦もスケジュール表に(対戦表)を使って、毎回リーグ対戦をおこないますが、エクセルで管理してい...
あわせて読みたい
エクセル関数とVBAで和暦西暦対応カレンダー作成 エクセル関数を基本として作成し、ユーザーフォームで日付選択ができるようにすることで複雑なマクロが分からなくても、自由にカスタマイズして自分のエクセルに組み込...
波乗りアヒル
波乗りアヒル

エクセルの勉強お疲れ様です。ちょっとひと休みしませんか?

Excel-VBAもくじへ

よかったらシェアしてね!
目次
閉じる