ラベル色指定ForeColor=RGBとIfの組み合わせ
ユーザーフォームに配置しているラベル（Label）の色を初期設定の黒色ではなくて、目立つように「赤色」にしたいと思いませんか？
常時赤色にするならば、ラベルのプロパティ内「ForeColor」➡「パレット」で変更することができますが、条件に合えば「赤色」に変更してそうでなければ「黒色」のままってできないものか？
波乗りアヒル
Excel-VBAで色の指定はよく見るけど条件付きって見つからない
Ifステートメントと組み合わせて！
波乗りアヒル
もし○○だったら赤色、そうでなかったら色変更なしって事だね！
ここでは、「ボウリング成績表印刷設定方法～LTB個人リーグ編」で実際に使っているExcel-VBAコードを書いていきますが、詳細についてはここでは省略しますので使い方などについては下記も参考にして下さい。
ボウリング成績表印刷設定方法～LTB個人リーグ編
エクセルで作成しているボウリングリーグ成績表を自動化で、リーグ戦参加者の成績表を作成・印刷専用フォームの使い方
tripbowl.net
2020.01.30
まずは基本となるラベルの色をプロパティからではなくExcel-VBAコードで書くとこうなります。
UserForm7.Label64.ForeColor = RGB(255, 0, 0)
これは、ユーザーフォーム７のラベル64の色を赤色にするというExcel-VBAコードです。
それでは次にラベルの色は初期設定の黒色ですが、条件を付けてセルの値によりラベルの色を赤色にしてみましょう。
ここでは、実際に使っているボウリングリーグ戦の成績表で1位と2位が同点の場合に、メッセージを出して知らせて赤色に変更していますが、この部分だけ切り取っていますのでマクロ開始と終了の表記は省略しています。
If Range(“AE3”).Value = Range(“AE4”).Value Then
MsgBox “男性HGが同点です”
UserForm7.Label64.ForeColor = RGB(255, 0, 0)
UserForm7.Label65.ForeColor = RGB(255, 0, 0)
End If
- もしセルAE3の値とセルAE4の値が一緒だったら
- メッセージで「男性HGが同点です」と表示する
- ユーザーフォーム７のラベル64の色をRGBで指定した「赤色」にする
- ユーザーフォーム７のラベル65の色をRGBで指定した「赤色」にする
- Ifステートメント終了
となっています。
これで、1位と2位のラベル表示が同点である事を目立つように同スコアー（ラベル）を赤色しています。
ColorIndex色見本
エクセルで設定できる色はRGBを使えば、ほぼ無限にできますが、基本的な色だけならばColorIndexの番号指定で簡単にできます。
波乗りアヒル
Excel-VBAを使えば数分かかる作業がたったの1秒で終了しますよ！
コメント