Excel | Diagram színezés makróval

Excel | Diagram színezés makróval
2017-11-20T10:17:01+01:00
2017-11-20T10:17:02+01:00
2022-12-04T22:05:41+01:00
József Juhász
Sziasztok!

Az alábbi makró működik, de szeretném bővíteni, hogy több feltételt is kezelni tudjon a különböző oszlopokra a diagramból.

Hozzá tartozó táblázat: Imgur: The most awesome images on the Internet

Private Sub Worksheet_Activate() Dim rPatterns As Range Dim iPattern As Long Dim vPatterns As Variant Dim iPoint As Long Dim vValues As Variant Dim rValue As Range Application.ScreenUpdating = False Set rPatterns = ActiveSheet.Range("AC4:AC6") 'célok szinei vPatterns = rPatterns.Value ActiveSheet.ChartObjects("napi").Activate ' diagram kijelölése With ActiveChart.SeriesCollection(1) vValues = .Values For iPoint = 1 To UBound(vValues) For iPattern = 1 To UBound(vPatterns) If vValues(iPoint) <= vPatterns(iPattern, 1) Then .Points(iPoint).Format.Fill.ForeColor.RGB = _ rPatterns.Cells(iPattern, 1).Interior.color Exit For End If Next Next End With End Sub
Valakinek van ötlete a módosításokra?

Előre is köszönöm a segítségeket!

Üdv,
Józsi
Mutasd a teljes hozzászólást!
Csatolt állomány

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd