同じ点数のセルを見つけたらエクセルVBAでラベルの色を変える方法

ユーザーフォームに配置しているラベル（Label）の色を初期設定の黒色ではなくて、目立つように赤色に変更したいと思ったことありませんか？

ForeColorとRGBの組み合わせで重複した値を見つけたら色変更もできるので、ご紹介いたします。

ラベル色指定ForeColor=RGBとIfの組み合わせ

ユーザーフォームに配置したラベルの色を初期設定の黒色ではなく、赤色に変えるならばラベルのプロパティ内より「ForeColor」➡「パレット」で変更することができます。

しかしながらこの場合は常時赤色になってしまい、条件によってラベルの色を変更することはできません。

そこでIFステートメントとForeColor = RGBを組み合わせることで、「もし〇〇だったら、赤色、そうでなかったら黒色」というように条件に応じて色を変更することができます。

ここでは、セルA1とセルA2の点数が同じ場合に、ユーザーフォームに配置したラベルの色を変更するVBAコードをご紹介します。