表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか?
Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorIndexと条件分岐のIFステートメント、さらに繰り返し処理を行うFor~Nextを組み合わせた方法ご紹介します。
ColorIndexとFor~Next
Excel-VBAを使わずに表の中で条件に合ったセルの値の文字色を変更することもでき、ワークシート上で【ホーム】➡【条件付き書式】➡【新しいルール】で条件設定したい全てのセルに設定できますが、複数となるとめんどくさいし大変ですよね。
そこでExcel-VBAを使って、ユーザーフォームに配置したコマンドボタンにVBAコードを書きこんでおけば、ボタン1回押すだけでできるので効率的ですし簡単です。
ここでやりたいことは、条件に一致したセルを繰り返し探してVBAで背景色を変える事なので、複数のセルをそれぞれ条件に合っていれば、うすピンク背景色に変更、そうでない場合は白色背景色に変更するという事です。
VBAコード
Private Sub CommandButton2_Click()
For i = 1 To 10
If Cells(i, 1).Value = “3” Then
Cells(i, 1).Interior.ColorIndex = 38
Else
Cells(i, 1).Interior.ColorIndex = 2
End If
Next i
End Sub
解説
- コマンドボタン1がクリックされたら
- 繰り返し処理の変数「i」を宣言し変数は1~10
- Ifステートメントでセル(i行の1列)の値が3だったら
- セル(i行の1列)の背景色は色番号38にする
- そうでなかったら
- セル(i行の1列)の背景色は色番号2にする
- Ifステートメント終了
- 繰り返す
- マクロ記録終了
というVBAコードで繰り返し指定した行の値を探して条件に合致すれば、背景色を変えてくれます。
波乗りアヒル
エクセルVBAで使用できる主な色見本に関しては下記をご覧ください。
エクセルVBA色見本(ColorIndex・RGB・16進数)
【色見本(ColorIndex一覧)】 エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF…
関連記事
-
文字色・背景色
条件に一致したセルを繰り返し探してVBAで文字色を変える方法
表の中で特定の値を目立たせるために色を変更したいと思った事ありませんか? Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorI… -
文字色・背景色
エクセルVBAで条件に一致する複数セルを見つけて背景色の変更方法
表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか? Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるF… -
文字色・背景色
同じ点数のセルを見つけたらエクセルVBAでラベルの色を変える方法
コピペOK!ユーザーフォームに配置しているラベル(Label)の色を初期設定の黒色ではなくて、目立つように赤色に変更したいと思ったことありませんか? ForeColorとRGB… -
データの操作
エクセル関数とVBAを組み合わせて商品期限切れ通知を表示する方法
小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか? このエクセルによる商品管理でリストの中にあ… -
文字色・背景色
エクセルVBA色見本(ColorIndex・RGB・16進数)
【色見本(ColorIndex一覧)】 エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF… -
コマンドボタン
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ…
紅葉スポット
-
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初!と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと… -
雲場池へバスで軽井沢駅から紅葉絶景観光スポットへ滞在時間50分
【紅葉見頃】10月中旬~11月中旬 避暑地軽井沢は実は紅葉も綺麗に見られる観光スポットでも知られ、紅葉名所の雲場池は軽井沢駅から1.3㎞程なので徒歩でも行けますし… -
ときわ路パスで行ける茨城県人気紅葉スポット
【茨城県内の紅葉人気ランキング】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周… -
フリーきっぷで行く群馬県内の紅葉名所や穴場スポット21選
渋滞避けて電車とバスでのんびり紅葉を見に行きませんか?群馬県の山間部ならば9月中旬頃から紅葉が見られる名所・スポットがありますので、少し早い秋の訪れを感じに出… -
北関東トップクラスの日本庭園がある徳明園の標高差による紅葉絶景へ
【紅葉見頃】11月中旬~12月上旬 高崎市内循環バス「ぐるりん」バスのフリーエリア内のあるので、電車とバスを利用して気軽に訪れることができ、北関東一ともいわれる… -
フリーきっぷで行く千葉県内の紅葉名所や穴場スポット7選
10月中旬頃から始まる関東地方の紅葉も11月中旬過ぎると、ようやく千葉県内の紅葉名所ももみじが真っ赤に色づいて見頃になってきます。 千葉県内の紅葉は12月上旬まで楽…