Добрый день!
Подскажите, пожалуйста, такой вопрос. Есть массив Dates(), содержащий даты, заполняется он так:
Код |
---|
Dim Dates(1 To 30) As Date
For z = i To j - 1
If Range("A" & z) > "01.01.2018" Then
Dates(t) = CDate(Range("A" & z))
......
t = t + 1
End If
Next z |
Проверял - массив заполняется корректными значениями. В ячейках именно даты, можно изменять их формат.
Затем этот массив выводится на график в качестве значений Х для нескольких кривых:
Код |
---|
WsG.Activate
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.ChartType = xlXYScatterSmooth
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "="""KGF""
.SeriesCollection(1).XValues = Dates
.SeriesCollection(1).Values = KGF |
В итоге на график выводится такая вот ерунда:
Код |
---|
=РЯД("KGF";{"1/1/2019";"1/1/2020";"1/1/2021";"1/1/2022";"1/1/2023";"1/1/2024";"1/1/2025";"1/1/2026";"1/1/2027";"1/1/2028";"1/1/2029";"1/1/2030";"1/1/2031";"1/1/2032";... |
Эти значения не поддаются форматированию, эксель не воспринимает их как даты.
Пробовал делать массив string, variant, записать в массив text ячейки - ничего не помогало. Куда копать, подскажите, пожалуйста.