私は、特定のデータを表示するテーブルを持つ "結果"シートを持っています。テーブルでグラフのx軸に月がある
私は53
まで1から週番号として列Aを持っているないすべての週は、結果が満たされています。何週間も結果がありません。
この表の中から列スタックチャートを生成しようとしています。
私が抽出しているうちに、詳細がグラフに重なって表示され、視覚化が不足していることがわかりました。
グラフの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