我想使用單元格值，例如 (Range(Cells(25, 3), Cells(25, iMonths)) 而不是 $C$25:$N$25 作為圖表的系列值，因為我需要使用一個變化的變數取決于日期。有沒有辦法做到這一點？
Dim dtToday As Date
Dim dtStartDate As Date
Dim iMonths As Integer
dtToday = Date
dtStartDate = "01/01/2021"
iMonths = DateDiff("m", dtStartDate, dtToday)
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.FullSeriesCollection(6).Name = "='Sheet 1'!$C$25:$N$25"
uj5u.com熱心網友回復：
單程 -
Dim cht As Chart
Dim sr As Series
Dim splt() As String
Set cht = ActiveSheet.ChartObjects("Chart 2").Chart
Set sr = cht.SeriesCollection(6)
splt = Split(sr.Formula, ",")
splt(2) = "'" & ActiveSheet.Name & "'!" & Range(Cells(25, 3), Cells(25, iMonths)).Address
sr.Formula = Join(splt, ",")
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/386814.html