formatteret visning på graf

Tag et kig på denne her side http://peltiertech.com/Excel/Charts/ConditionalChart1.html

her er nuværende kode til dashboarded.

=SERIES(Dashboard!$B$42;Dashboard!$C$41:$D$41;Dashboard!$C$42:$D$42;1)

det er således hvis c42 er mindre end d42 den skal blive rød og omvendt. kan man mon ikke lave det med noget "if c42 < d42 then c42 vbcolor = red"

Forslag:

Sub sætSøjleFarve()
Dim værdi As Variant

    With ActiveWorkbook.ActiveSheet
        antalSerier = ChartObjects(1).Chart.SeriesCollection.Count
       
        For s = 1 To antalSerier
            værdi = .ChartObjects(1).Chart.SeriesCollection(s).Values
           
            For p = 1 To UBound(værdi)
                .ChartObjects(1).Chart.SeriesCollection(s).Points(p).Select
           
                If værdi(p) > Range("D10") Then
                    Selection.Interior.Color = rgbBlue
                Else
                    Selection.Interior.Color = rgbRed
                End If
            Next p
        Next s
    End With
End Sub

Hvis det der virker er det super blæret :D

- men det virker..

jeg fik en kollega til at kigge på det også og nedenstående virker

Sub Worksheet_Calculate()
    If ActiveSheet.Range("C2").Value = True Then
        ActiveSheet.ChartObjects("Chart 2").Activate
        With ActiveChart
            .SeriesCollection(1).Interior.ColorIndex = 3
            .SeriesCollection(2).Interior.ColorIndex = 4
        End With
    Else
        ActiveSheet.ChartObjects("Chart 2").Activate
        With ActiveChart
            .SeriesCollection(1).Interior.ColorIndex = 4
            .SeriesCollection(2).Interior.ColorIndex = 3
        End With
    End If
    ActiveSheet.Range("A2").Select
End Sub

jeg vil dog gerne give point for jeres ihærdighed på dem der er kommet med konkrete forslag

Så får du et svar