コピペ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色見本(ColorIndex・RGB・16進数)
【色見本(ColorIndex一覧)】 エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF… -
文字色・背景色
条件に一致したセルを繰り返し探してVBAで文字色を変える方法
表の中で特定の値を目立たせるために色を変更したいと思った事ありませんか? Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorI… -
文字色・背景色
エクセルVBAで条件に一致する複数セルを見つけて背景色の変更方法
表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか? Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるF… -
データの操作
エクセル関数とVBAを組み合わせて商品期限切れ通知を表示する方法
小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか? このエクセルによる商品管理でリストの中にあ… -
コマンドボタン
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
文字色・背景色
同じ点数のセルを見つけたらエクセルVBAでラベルの色を変える方法
コピペOK!ユーザーフォームに配置しているラベル(Label)の色を初期設定の黒色ではなくて、目立つように赤色に変更したいと思ったことありませんか? ForeColorとRGB…
紅葉スポット
-
嵐山渓谷の黄金色ススキと紅葉のコラボが埼玉県代表の景勝地へ
埼玉県を代表する景勝地の嵐山渓谷は秩父から流れる槻川沿いに独特の地形からなり、嵐山町観光サイトには下記のように書かれています。 日本で初めての林学博士・本多静… -
鬼怒川温泉駅からバスで川俣ダムと瀬戸合峡渡らっしゃい吊橋紅葉へ
【紅葉見頃】10月中旬~11月上旬 紅葉を見に日光を訪れて中禅寺湖周辺を目指して、大渋滞や混雑に巻き込まれて大変な思いをした方多いと思いますが、関東エリアの紅葉… -
9月中旬から始まる尾瀬ヶ原の草紅葉へ日光駅や沼田駅からバスで行く
まだまだ残暑厳しい夏日が続く東京ですが、ひと足早く奥日光の更に山奥の尾瀬ヶ原では、9月中旬ごろから湿原の草がオレンジ色・黄金色・赤色と移り変わる姿を見ることが… -
透明度抜群の丸沼ダムのダム湖に紅葉景色が反射する秋らしい絶景へ
丸沼といえば丸沼高原スキー場が有名で、日光と沼田の中間に位置しているので、日光駅からでも沼田駅からも丸沼ダムへバスで紅葉を見に行くことができます。 特に東武鉄… -
北関東トップクラスの日本庭園がある徳明園の標高差による紅葉絶景へ
【紅葉見頃】11月中旬~12月上旬 高崎市内循環バス「ぐるりん」バスのフリーエリア内のあるので、電車とバスを利用して気軽に訪れることができ、北関東一ともいわれる… -
日本三名瀑・袋田の滝は紅葉ライトアップの名所で袋田駅からバス
日本三名瀑でもある袋田の滝は、高さ120m幅70mの大きさを誇りトンネル横の展望台からは、目の前に迫った滝を見ることができます。 そしてエレベーターで昇った展望台…