我有一张表“Result”和一个显示特定数据的表。x轴为图表中的月份
在表中我有一列从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
而是下面显示的数字,我想有相应的月份名称。任何人都可以帮我实现这个目标吗?
@有谁能帮忙吗? – Jenny