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

エクセル検索
HOMEUserForm印刷画面ファイル図形
日付・時刻データセル関数VBA関数

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

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

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

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

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

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

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

VBAコード

Private Sub CommandButton1_Click()
If Range(“A1”).Value = Range(“A2”).Value Then
UserForm1.Label1.ForeColor = RGB(255, 0, 0)
Else
UserForm1.Label1.ForeColor = RGB(0, 0, 0)
End If
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. もしセルA1の値とセルA2の値が同じだったら
  3. ユーザーフォーム1の配置されたラベル1の色を赤色にする
  4. そうでなかったら
  5. ユーザーフォーム1の配置されたラベル1の色を黒色にする
  6. IFステートメント終了
  7. マクロ記録終了
波乗りアヒル

エクセルVBAで使用できる主な色見本に関しては下記をご覧ください。

関連記事

どこかにビューーン
ちょっとの工夫で往復無料の時代が来た!!

新着ページ

よく見られているページ

大容量無料ファイル転送サービス【ACデータ】 無料イラスト【イラストAC】

紅葉スポット