Dacă avem mai multe intervale unde dorim să evidenţiem, prin formatare condiţionată, cea mai mică şi cea mai mare valoare, putem utiliza succesiv cele două opţiuni accesând meniul Home – Conditional Formatting – Top/Bottom Rules.
În cazul în care suntem nevoiţi să folosim de mai multe ori aceste opţiuni, poate fi recomandabil un macro aplicabil fiecărei astfel de selecţii.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Sub TopBottom() Dim switch As Integer, culSus As Variant, culJos As Variant switch = InputBox("Culoarea pentru valoarea cea mai mare: " & _ Chr(10) & "• 1: VERDE;" & _ Chr(10) & "• 0: ROSU.", "Selectati optiunea", 1) If switch = 1 Then culSus = 13561798 ' Cea mai mare valoare - verde culJos = 13551615 ' Cea mai mică valoare - rosu Else culSus = 13551615 ' Cea mai mare valoare - rosu culJos = 13561798 ' Cea mai mică valoare - verde End If ' Top10Top Selection.FormatConditions.AddTop10 Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1) .TopBottom = xlTop10Top .Rank = 1 End With Selection.FormatConditions(1).Interior.Color = culSus Selection.FormatConditions(1).StopIfTrue = False ' Top10Bottom Selection.FormatConditions.AddTop10 Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1) .TopBottom = xlTop10Bottom .Rank = 1 End With Selection.FormatConditions(1).Interior.Color = culJos Selection.FormatConditions(1).StopIfTrue = False End Sub |
