Betinget formatering i et søjlediagram

Kigger forbi i morgen

Det kan laves på flere måder, men en enkel måde er at markerere grafen og køre denne makro

Sub Color_graph()

Const DMin As Double = 10
Dim lCnt As Long
Dim rCell As Range
Dim YRange As Range
Dim MyChart As Chart
Dim vYRange
  If ActiveChart Is Nothing Then
      MsgBox ("Marker en graf, før du kører makroen")
      Exit Sub
  Else
    Set MyChart = ActiveChart
  End If
    vYRange = Split(MyChart.SeriesCollection(1).Formula, ",")
    Set YRange = Range(vYRange(2))
    lCnt = 0
    For Each rCell In YRange
        lCnt = lCnt + 1
        With MyChart.SeriesCollection(1).Points(lCnt).Interior
            If rCell.Value < DMin Then .ColorIndex = 3 Else .ColorIndex = 4
        End With
    Next
End Sub

Hvis du ikke er fortrolig med makroer er en metode måske bedre men den kræver 2 extra kolonner.

Du har dine data i kolonne B
I kolonne C (samme række) indsætter du formlen
=HVIS(B2<=10;B2;0)
og fylder nedad til slutning af dine data

I kolonne D (samme række) indsætter du formlen
=HVIS(B2>10;B2;0)
og fylder nedad

Opret så et stablet søjlediagram på de to nye kolonner og farvelæg efter behag.

Marker en graf, før du kører makroen
er det eneste jeg får frem.

Dit forslag 20/10-2004 10:00:15
Virker helt efter hensigten
Vil du have point, så læg et svar.
Ellers skal du have mange tak for hjælpen.

her er et svar :-)

Her er point.

De kom vist aldrig :-)

Nej det ser jeg.
Prøver igen. :-)

Havde glemt at markere navnet, inden jeg accepterede.

Tak for det rosco :-)