我有一張表「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