VBA IF文で回し「該当する文字を赤く」が、何度も実行すると他もどんどん赤くなる

Question

いつもお世話になっております。
下記のようなIF文があります。
90以上と60以下を判定し文字を赤くしています。
一度だけの実行であれば問題ないのですが何度も
実行してしまうと他も赤くなってしまいます。
セルの設定で、文字「赤」と変わっているのが
原因だとは思うのですがどう修正すれば良いですか？

Sub ketuatusaitei()
     Dim gyo
     Dim Bmax
    Bmax = Range("B65536").End(xlUp).Row
    For gyo = 6 To Bmax
     If Range("J" & gyo).Value >= 90 Then
        Range("J" & gyo).Font.Color = vbRed
    ElseIf Range("J" & gyo).Value <= 60 Then
           Range("J" & gyo).Font.Color = vbRed
    End If
    Next
End Sub

Answer 1

試してみましたが、再現されませんでした。
一度だけの実行で有れば正常なのでしたら、下記でシート上のフォントの色が初期化されますので、現状の前に入れれてみたらどうでしょうか。

    Cells.Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With

Comments

[cat_junko]

回答ありがとうございます。
すいません、「現状の前」と言うのは具体的にどの場所になるのでしょうか？
Bmax=～の下に入れてみたり上に入れてみたりしたのですがシート全体が選択され
文字はリセットされるのですがその後”赤”に該当するはずの数字が赤くなりませんでした。
今回は、liguofeng29さんの条件文を増やす方式を初心者らしく採用しました。
ただ、今後の為に知りたいので宜しくお願い致します。

[cat_junko]

すいません、できました！

Answer 2

Excelファイルがないとなんとも言えないですが、
値は変わるのでしょうか？

変わるのではあれば、
Else Range("J" & gyo).Font.Color = vbWhite
を追加して通常色にする必要がありますね。

Comments

[cat_junko]

回答ありがとうございます。
素直に、条件文を増やせば良かったんですね！
ありがとうございました。
(ただ、"white"だと見えなくなってしまったので(消えたのかとびっくりしました)
"black"にしました。)

Answer 3

一度、赤に設定したセルは他の色に設定しない限り、赤のままです。
例えば、値が変わって80になった状態でketuatusaitei() を再度、実行してもです。
このifの90以上と60以下に当てはまらないセルは元の色を設定するなどの処理が必要ではないでしょうか。

Comments

[cat_junko]

回答ありがとうございます。
はい、そうでした。
条件文にて、１文増やしました！