コピペ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がクリックされたら
- もしセルA1の値とセルA2の値が同じだったら
- ユーザーフォーム1の配置されたラベル1の色を赤色にする
- そうでなかったら
- ユーザーフォーム1の配置されたラベル1の色を黒色にする
- IFステートメント終了
- マクロ記録終了
波乗りアヒルエクセルVBAで使用できる主な色見本に関しては下記をご覧ください。
色見本
エクセルVBA色見本（ColorIndex・RGB・16進数）
色見本（ColorIndex一覧） エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF関数…
関連記事
-
条件に一致したセルを繰り返し探してVBAで文字色を変える方法
表の中で特定の値を目立たせるために色を変更したいと思った事ありませんか？ Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorI… -
エクセルVBA色見本（ColorIndex・RGB・16進数）
色見本（ColorIndex一覧） エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF関数… -
エクセル関数とVBAを組み合わせて商品期限切れ通知を表示する方法
小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか？ このエクセルによる商品管理でリストの中にあ… -
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか？ Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
同じ点数のセルを見つけたらエクセルVBAでラベルの色を変える方法
コピペOK！ユーザーフォームに配置しているラベル（Label）の色を初期設定の黒色ではなくて、目立つように赤色に変更したいと思ったことありませんか？ ForeColorとRGB… -
エクセルVBAで条件に一致する複数セルを見つけて背景色の変更方法
表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか？ Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるF…
新着ページ
よく見られているページ
