У меня есть лист "Результат" с таблицей, отображающей определенные данные.
В таблице у меня есть столбец A как номер недели от 1 до 53.
Не все недели заполнены результатом. есть несколько недель без результата.
Я пытаюсь создать диаграмму с накоплением столбцов из этой таблицы.
Во время извлечения я мог видеть, что детали на диаграмме накладываются друг на друга, и отсутствует визуализация.
Я хотел бы спросить, есть ли способ преобразовать номер недели оси X диаграммы в месяц.
Может ли кто-нибудь сказать мне, как я могу это сделать?
вот код, который я использую для своей диаграммы
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
Вместо чисел, отображаемых ниже, я хотел бы иметь соответствующее название месяца. Может ли кто-нибудь помочь мне достичь этого?
