条件付きVBAセルの書式設定セルの内容に基づいた色

Question

私のVBAスキルは私にとって最高のものではありません。私はそれらの値に基づいてセルの塗りつぶし色をフォーマットしたいと思います。条件付き書式設定を使用してこれを行う方法はわかっていますが、これには時間がかかります。誰もこのプロセスを自動化するためにいくつかのVBAコードを共有することはできますか？

緑色の塗りつぶしの色を持つセルが100未満で、 のセルが100より大きく2500未満のセルを黄色にする場合は、 とこれよりも大きいものはどれも赤色になりますか？

あなたの助けに感謝します。おかげでイアン

Answer 1

これは（おそらくあなたの範囲を変更する必要があります - 私はA1使用しました：この例ではA3を）：それを行います

Sub ColorCells() 

    Dim rng As Range, cell As Range 

    Set rng = ActiveSheet.Range("A1:A3") 

    For Each cell In rng 

     If cell < 100 Then 
      cell.Interior.Color = RGB(0, 255, 0) 
     ElseIf cell < 2500 Then 
      cell.Interior.Color = RGB(255, 255, 0) 
     ElseIf cell >= 2500 Then 
      cell.Interior.Color = RGB(255, 0, 0) 
     End If 

    Next 

End Sub