ユーザーフォームに配置してチェックを入れる為のチェックボックス。
ボウリングのリーグ戦での成績表でもボックスの人数を設定する時に、チェックしたらその人数に設定するようにする為に使用していますが、チェック有の時は〇、チェックが無かったときは✖みたいに出来ないものか？
なぜそんな疑問を持ったの？
ボウリングのリーグ戦では、総当たり戦なのですが、リーグ戦により中間ポジションマッチという対戦を行うものがあり、参加人数により当然変わります。
またJリーグのように対戦が1回だけならばいいのですが、プロ野球などは同じチームと何度も対戦する2回戦・3回戦なんてなったら中間ポジションが当然増えます。
そこで、チェックボックスのチェックが入った週はポジションマッチ、チェック無しは通常対戦みたいに出来たらいいのかなってね。
やってみたら意外と簡単だったので良かったかな。
If～True ThenとElseで解決
よくよく考えたら、もともとチェックボックスを使う時はVBAのコードはこのように使いますよね。
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Range(“A3”).Value = “〇”
End If
End Sub
If CheckBox1.Value = True Then
Range(“A3”).Value = “〇”
End If
End Sub
- コマンドボタン１を押したら
- もしチェックボックス１にチェックが入っていたら
- セルA3に〇を入力する
- Ifステートメント終了
- マクロ記述終了
普段から使っていたのですが、Ifステートメント使っているなら、そうでない場合のElseを付け加えれば解決するんですよね。
そこで、チェックが無かったら✖を入力するって加えるだけでした。
そうするとこのようなVBAコードになります。
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Range(“A3”).Value = “〇”
Else
Range(“A3”).Value = “✖”
End If
End Sub
If CheckBox1.Value = True Then
Range(“A3”).Value = “〇”
Else
Range(“A3”).Value = “✖”
End If
End Sub
各コントロールまとめて転記シリーズ
ユーザーフォームを使うと配置したコントロール（テキストボックスやラベルなど）とセルとの間で値のやり取りが多くなります。
よく使うのでまとめてみました。
| 値の場所 | 転記したい場所 | 説明ページ |
| セルの値 | ラベル名 | VBAコード |
| セルの値 | テキストボックスの値 | VBAコード |
| セルの値 | コマンドボタンの表示名 | VBAコード |
| セルの値 | セルの値 | VBAコード |
| テキストボックス入力値 | セルの値 | VBAコード |
波乗りアヒル
成績表作成には知っておきたいExcel-VBAもくじ
ボウリングハンデキャップのつけ方
HDCPの種類はリーグのルールにより複雑に ボウリングの成績表（リーグ戦）で必ず必要になるのが、ハンデキャップ（HDCP）です。 ボウリングご予約の時に一番多く使われているのが、女性にだけハンデキャップをつけてあげることが多いですね。 だいだい何点ぐらいのハンデキャップが多いの？
tripbowl.net
2018.07.25
ボウリングリーグ対戦表の数字を名前に自動変換する方法
リーグ戦の対戦表をエクセルで作る時、数字で表されている番号を名前に自動的に変換できると作業時間が短くなり効率的ですね。たった2つのエクセル関数を使うだけで、簡単にできるんです。今回の回戦数を入力するだけで一発変換完了。もちろんお客様にスケジュール対戦表として渡すことも簡単ですよ。
tripbowl.net
2018.10.03
人数に応じてリーグ対戦表を自動選択する方法
複数の表があり、条件に合った表を選んで、さらにセルの値を選んで数字を名前に自動変換できると、とても便利なエクセルができますよね。ボウリングのリーグ対戦表も人数により表が異なるので、参加人数が決まったら、自動的に表を選んで対戦番号がこれも自動的に参加者名に変換されると便利で作業効率がアップして時間短縮になりますよ。
tripbowl.net
2018.12.03
波乗りアヒル
エクセルの勉強お疲れ様です。ちょっとひと休みしませんか？
コメント