ラベルやボタンをクリックするたびに色や文字を変える

ユーザーフォームに配置したラベル（Label）やコマンドボタン（CommandButton）の色を変えるには、RGBやColorIndexまたはプロパティで色指定することはできます。

色を固定するのではなく、ラベルやコマンドボタンを1回クリックするたびに「青色」➡「黄色」➡「赤色」と文字と文字色を変えたくなったことありませんか？

IfステートメントとRGBとキャプションを組み合わせるだけで簡単にできます。

If～Then、ElseIf～Then、Elseですぐできる

「もし青色だったら黄色、そうでなく黄色だったら赤色、赤色でなかったら青色に」ともし～だったらが2回連続でVBAコードを書いただけです。

いかがですか？とても簡単ですが「クリックするたびに変化」を難しく考えず、シンプルにとらえるとできますので、実際に「参加」「不参加」「未定」などの表示で使っていて、見た目で分かるので重宝しています。

また、ラベルではなくコマンドボタンの文字を変更するならば、LabelをCommandButtonに代えるだけです。

さらに文字ではなく、背景色を変更するならばForeColorをBackClolorに代えるだけなので、いくらでも応用が利きます。

このように条件によって色を変更するにはRGBを使いましたが、エクセルで利用できる色は決まっているので、下記より色見本を見ながら好きな56色から選んでVBAコードに書けばすぐ利用できます。

条件に応じてラベルの色を変えるVBA

ユーザーフォームのラベルの色をセルの値によって自由に変えたいって思いませんか？例えば、セルの値が重複した時だけ赤色文字にするとか、80点以上は青色で30点以下は赤色にできたら便利ですよ。

tripbowl.com

2020.03.24