Ich habe ein Blatt "Ergebnis" mit einer Tabelle, die bestimmte Daten anzeigt.mit X-Achse als Monat in Diagramm
In der Tabelle habe ich Spalte A als Woche Zahl von 1 bis 53.
Nicht alle Wochen das Ergebnis gefüllt haben. es gibt einige Wochen ohne Ergebnis.
Ich versuche, ein Column Stacked Diagramm aus dieser Tabelle zu generieren.
Während ich extrahiere, konnte ich sehen, dass sich die Details in der Grafik überlappen und es fehlt an Visualisierung.
Ich möchte fragen, ob es eine Möglichkeit gibt, die Wochennummer der X-Achse des Diagramms in Monat zu konvertieren.
Kann mir jemand sagen, wie ich es tun könnte?
hier ist der Code, den ich unten angezeigt
Sub chartstatus()
Dim rng, rng1, rng2 As Range
Dim cht As Object
Set rng1 = ActiveSheet.Range("A2:A53")
Set rng2 = ActiveSheet.Range("G2:J53")
Set rng = Union(rng1, rng2)
ThisWorkbook.Sheets("Result").ChartObjects.delete
Set sh = ActiveSheet.ChartObjects.Add(Left:=750, _
Width:=1100, _
Top:=80, _
Height:=350)
sh.Select
Set cht = ActiveChart
With cht
.SetSourceData Source:=rng
.ChartType = xlColumnStacked
cht.Axes(xlSecondary).TickLabels.NumberFormat = "0.0%"
cht.SeriesCollection(1).delete
End With
cht.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
cht.SeriesCollection(2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0)
cht.HasTitle = True
cht.ChartTitle.Text = "Result 2017(Percentage)"
End Sub
Anstelle der Zahlen für mein Diagramm verwenden, würde ich die entsprechenden Monatsnamen haben möge. Kann mir jemand helfen, das zu erreichen?
@Kann jemand dabei helfen? – Jenny