表の中で特定の値を目立たせるために色を変更したいと思った事ありませんか？
Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorIndexと条件分岐のIFステートメント、さらに繰り返し処理を行うFor～Nextを組み合わせた方法ご紹介します。
条件により文字色を変更
Excel-VBAを使わずに表の中で条件に合ったセルの値の文字色を変更することもでき、ワークシート上で【ホーム】➡【条件付き書式】➡【新しいルール】で条件設定したい全てのセルに設定できますが、複数となるとめんどくさいし大変ですよね。
そこでExcel-VBAを使って、ユーザーフォームに配置したコマンドボタンにVBAコードを書きこんでおけば、ボタン1回押すだけでできるので効率的ですし簡単です。
波乗りアヒルただ単に文字色を指定するならばColorIndexでしたいセル番号を書けばいいのですが、それだけならば、下記ページに詳細を書いてあるので、ここでは省略します。
IF～ThenとFor～Nextを組み合わせ
ここでやりたいことは、条件に一致したセルを繰り返し探してVBAで文字色を変える事なので、複数のセルをそれぞれ条件に合っていれば、赤色文字に変更、そうでない場合は黒色文字に変更するという事です。
Private Sub CommandButton1_Click()
For i = 1 To 10
If Cells(i, 5) = 3 Then
Cells(i, 5).Font.ColorIndex = 3
Else
Cells(i, 5).Font.ColorIndex = 1
End If
Next i
End Sub
- コマンドボタン1がクリックされたら
- 繰り返し処理Forを使い変数は1～10を指定
- もし、セルi行目、5列目の値が3だったら
- セルi行目、5列目の文字色を赤色にする
- そうでなかったら
- セルi行目、5列目の文字色を黒色にする
- IFステートメント終了
- 変数iの範囲で繰り返す
- マクロ記述終了
波乗りアヒルたったこれだけのVBAコードで、指定した範囲内の値が合致すれば赤色文字にして、異なった時は黒色文字にできちゃいます。
関連記事
新着ページ
よく見られているページ
紅葉スポット
記事が見つかりませんでした。