表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか?
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でラベルの色を変える方法
コピペOK!ユーザーフォームに配置しているラベル(Label)の色を初期設定の黒色ではなくて、目立つように赤色に変更したいと思ったことありませんか? ForeColorとRGB… -
コマンドボタン
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
文字色・背景色
エクセルVBA色見本(ColorIndex・RGB・16進数)
【色見本(ColorIndex一覧)】 エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF… -
文字色・背景色
エクセルVBAで条件に一致する複数セルを見つけて背景色の変更方法
表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか? Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるF… -
データの操作
エクセル関数とVBAを組み合わせて商品期限切れ通知を表示する方法
小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか? このエクセルによる商品管理でリストの中にあ…
紅葉スポット
-
フリーパスで12月の茨城紅葉スポットへ
【茨城県内の人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺… -
嵐山渓谷の黄金色ススキと紅葉のコラボが埼玉県代表の景勝地へ
埼玉県を代表する景勝地の嵐山渓谷は秩父から流れる槻川沿いに独特の地形からなり、嵐山町観光サイトには下記のように書かれています。 日本で初めての林学博士・本多静… -
竜神大吊橋の紅葉まつりへ常陸太田駅から路線バスで紅葉絶景へ
竜神大吊橋バンジーや5月の1000匹の鯉のぼりでテレビで取り上げられることが多い竜神大吊橋ですが、実はこの周辺は竜神峡にはもみじなども多く紅葉も年々認知されてきて… -
縁起だるま発祥の少林山達磨寺境内の真っ赤に染まる紅葉景色へ
【紅葉見頃】11月下旬~12月上旬 高崎市内循環バス「ぐるりん」バスのフリーエリア内にあるので、縁起だるま発祥の少林山達磨寺へ紅葉の時期になったら訪れてみてはい… -
塩原温泉・紅の吊橋の紅葉絶景へ那須塩原駅や黒磯駅からバスで行く
【紅葉見頃】10月下旬~11月中旬 塩原温泉郷と言えば、箒川(ほうきがわ)沿いに温泉旅館が点在している首都圏からも近い温泉街ですが、紅葉の時期になるとカエデやも… -
ときわ路パスで行ける茨城県人気紅葉スポット
【茨城県内の紅葉人気ランキング】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周…