MENU
観光地にはお得なフリーパスあり

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

広告
文字色・背景色
  1. ホーム
  2. エクセル
  3. 文字色・背景色
  4. 同じ点数のセルを見つけたらエクセル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で使用できる主な色見本に関しては下記をご覧ください。

色見本
エクセルVBA色見本（ColorIndex・RGB・16進数） 色見本（ColorIndex一覧） エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF関数…

関連記事

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

新着ページ

もっと見る

よく見られているページ

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

フリーきっぷ TOP

紅葉スポット

もっと見る
文字色・背景色