ユーザーフォームを使っていると便利な反面、フォームの数が増えすぎて困ったことありませんか？

同じフォームなのに用途が微妙に違うので、やむを得ず複数作成して使っているとか。

ボウリングのリーグ戦での成績入力でも、スコアー入力する日付は全選手一緒だけど、個人別の入力は当然ながらスコアーが混じってはいけないので一緒にできない。

だからと言って入力フォームを参加選手分同じものを作るのも面倒で大変で非効率。

Select Caseを使ってみたら意外と出来たぞ！

Select Caseの2段重ね

やりたいことは、こんな感じ。

1. 日付を選択すると各参加選手それぞれの個人成績表で日付と同じセルを選択させる。
2. 次にスコアーを入力したい選手（会員番号）を選択すると、指定された選手の個人成績表に移動する
3. 入力が終わると、次に入力する選手を選択するフォームに戻る
4. 繰り返す

これを簡単にVBAコードで書くと、

最初の日付選択がひとつ目の条件なので、Select Caseを使います。

1回目の日付を「１」、2回目の日付を「２」・・・とすると、

と、なりますが、2つ目の条件を加えると、ひとつ目の条件で日付を選び、尚且つ2つ目の条件で選手番号を指定するので、
Case Is =1 の次にもう一度Select Caseを加えます。

そうすると、

となります。黄色い最初のSelect Caseの中にもう1回Select Caseを挟み込んだら完成です。

これができたおかげで、ボウリングのリーグ戦での参加者の成績を入力するのに、回戦数を入力して、選手選択ボタンを押すと、

この画面が表示されて会員番号を入力して、選択ボタンを押せば、個人のスコアー入力セルに一気に移動します。

そして、入力すべく日付のセル（行）にカーソルが指定されているので、マウスでいちいちセルを選択する必要がなくなり、誤って他の日付の欄に誤記入することもなくなりました。

[temp id=19]

画面左上は移動はscrollrowとscrollcolumnを組み合わせる

ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦参加者の成績表を入力する為の専用フォームに配置した、ネームプレート（コマンドボタン）を作成しています。

スコアーを入力したい参加者のネームプレートを押すとその個人のスコアー表へ確実に移動させます。

このコマンドボタンを41個配置した【選手選択】フォームの使い方については、「ボウリング個人スコアー入力方法～LTB個人リーグ編」に記載していますので、ここでは省略します。

https://tripbowl.net/manual-score-input/

このコマンドボタンに単純にセルへ移動するVBAコードを書いてしまうと、意図しない位置に表示されてしまいます。

まだ、真ん中ぐらいに移動してくれればいいけど、どうせなら、画面左上にきちっと移動してほしい。

更に縦（行）も移動を加えると表の真ん中ぐらいで切れたりして使い物にならない。

そこで、scrollrowとscrollcolumnを組み合わせることにより、コマンドボタンを押したら必ず画面左上にスクロールしてくれます。

※画像スペースの関係で18週目まで切り取って表示しています。

これはコマンドボタン2の記述なので選手番号２の神田さんです。同じように選手40までは列は同じなので、行番号とセル番地を変更するだけで使えるようになります。

ま、40回コード書くのが大変ですけど、完成すれば、個人スコアー表を探すのにワークシート上でスクロールして探すことがなくなるので、ボウリング成績表では絶対必要で時間短縮効果が高いVBAコードです。

難しくないでしょ！ここでの説明で使用した参考ページで、各ボタンの説明やマニュアルを記載しています

https://tripbowl.net/manual-score-input/

[temp id=19]