La mise en forme conditionnelle à l'aide de VBA

Je tiens le bon code pour utiliser la mise en forme conditionnelle. J'ai des données pour la somme de 4 Trimestre, les ventes de forme ("K8:K207"). Je veux appliquer une mise en forme conditionnelle où j'ai 3 conditions:

  1. Mettre en surbrillance la Colonne K(Total de la Vente Annuelle) pour l'an de plus que 1,00,000 Vert
  2. entre 90 000 à 1,00,000 que l'ambre
  3. et inférieure à 90 000 rouge

S'il vous plaît aider moi comment je peux écrire un code à l'aide de la boucle.

OriginalL'auteur Ravi Vasi | 2012-01-25

  1. 11

    Vous n'avez pas besoin d'une boucle pour cela. Vous pouvez simplement ajouter un nouveau FormatCondition à votre objet.

    lLow = 90000
lHigh = 100000

Set rng = Range("K8:K207")
rng.FormatConditions.Delete  ' delete any pre-existing formatting

' add greater than condition
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & lHigh)
   .Interior.Color = rgbLimeGreen
End With

' add middle condition
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=" & lLow, Formula2:="=" & lHigh)
   .Interior.Color = rgbGold
End With

' add less than condition
With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=" & lLow)
   .Interior.Color = rgbRed
End With

    OriginalL'auteur mischab1