好吧问答库 > excel的 vba编程中activeChart.SeriesCollection(1).XValues＝？如何初始化一个日期数组

excel的 vba编程中activeChart.SeriesCollection(1).XValues＝？如何初始化一个日期数组

Charts.Add ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("F4") ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = _ "={""2001-01-03"",""2001-03-09"",""2001-04-09""}" ActiveChart.SeriesCollection(1).Values = Array(12, 6, 23) ActiveChart.Axes(xlCategory).Select ActiveChart.PlotArea.Select ActiveChart.ChartArea.SelectEnd Sub上面是excel的一段宏 , 如何能初始化日期数组 ActiveChart.SeriesCollection(1).XValues = 日期数组帮我看看这个问题怎么解决,谢谢你,上次回答完不知道怎么给你分.不好意思.ActiveChart.SeriesCollection(1).Values = Array(1, 2, 3)这样初始化数组的类型是数字类型，不是日期类型的。我想初始化为日期类型的数组，如何初始化呢。例如：ActiveChart.SeriesCollection(1).Values = “日期类型数组”?

2026年09月23日 02:35

有5个网友回答

网友（1）：

可以这样写：

Array(#4/16/2018#, #4/17/2018#, #4/18/2018#)

顺序是：月、日、年

下面是我的程序和运行结果：

网友（2）：

X轴标签可以用日期,如

ActiveChart.SeriesCollection(1).XValues = _
"={""2001-01-03"",""2001-03-09"",""2001-04-09""}"

或者

ActiveChart.SeriesCollection(1).XValues = Array("2011-01-03", "2021-03-09", "2018-04-09")

这样的写法,实现用日期系列对X轴标签进行初始化.

但是Y轴必须是数值吧, 否则EXCEL把文本或日期的文本当成0来处理的.

写是可以这样写,但效果不是你想要的.

ActiveChart.SeriesCollection(1).Values = Array("2011-01-03", "2021-03-09", "2018-04-09")

网友（3）：

改为如下试试
ActiveChart.SeriesCollection(1).XValues = Array(#2001-01-03#,#2001-03-09#,#2001-04-09#)

网友（4）：

array里是日期格式的就行了

返回的类型是date没问题

网友（5）：

ActiveChart.SeriesCollection(1).XValues = Array("2001-01-03", "2001-03-09", "2001-04-09")
============================
是将X轴的数据变成日期数据吧。你试试改成上面的。不知道是不是你想要的。

其上句的作用同下句。
ActiveChart.SeriesCollection(1).XValues = _
"={""2001-01-03"",""2001-03-09"",""2001-04-09""}"