【求助求助】VBA 利用数组中的日期数据作为X轴生成图表时，为什么X轴为数字而不是日期

上了又下

想使用数组中的数据制作散点图，其中x轴为日期格式数据，代码如下，生成图表时x轴不为日期数据，如图。



请教各位问题出在哪里？？

Sub test()
Dim arr(), arr1(), brr()
  arr() = Array(#2/16/2020#, #2/17/2020#, #2/18/2020#)
  arr1() = Array(3, 4, 5)
  brr() = Array(arr, arr1)

Set chat = ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines, 0, 0, 500, 300)
     ActiveSheet.ChartObjects(chat.Name).Activate
     ActiveChart.SeriesCollection.NewSeries
     ActiveChart.FullSeriesCollection(1).XValues = WorksheetFunction.Index(brr, 0, 1)
     ActiveChart.FullSeriesCollection(1).Values = WorksheetFunction.Index(brr, 0, 2)

End Sub

feiyingdpm

很显然，读入图形时变成了文本格式，所以你要更改一下横坐标的显示格式，另外读入的数据也不对，我的理解应该是
ActiveChart.FullSeriesCollection(1).XValues = brr(0)
ActiveChart.FullSeriesCollection(1).Values = brr(1)

上了又下

feiyingdpm 发表于 2020-2-19 05:02
很显然，读入图形时变成了文本格式，所以你要更改一下横坐标的显示格式，另外读入的数据也不对，我的理解应 ...

按照您的方法试了下，增加代码
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormatLocal = "yyyy/m/d"
坐标轴设置为时间格式，但是显示的时间不是实际时间
请问，是哪里错了吗？

上了又下

请各位大神帮助一下，感觉问题不难，但是因为初学，搜索了好久也没找到问题答案，谢谢各位

liujin001

~~！学习下~~！

补充内容 (2020-2-25 15:58):
~~！在这里受益良多啊~~！

feiyingdpm

上了又下 发表于 2020-2-19 13:42
按照您的方法试了下，增加代码
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFo ...

没注意是散点图，不好意思。散点图坐标好像只能是数字，为啥不用折线加点呢？
Set chat = ActiveSheet.Shapes.AddChart2(240, xlLineMarkers, 0, 0, 500, 300)

上了又下

求助求助，大神能帮助解答下吗

上了又下

feiyingdpm 发表于 2020-2-20 05:01
没注意是散点图，不好意思。散点图坐标好像只能是数字，为啥不用折线加点呢？
Set chat = ActiveSheet.S ...

试了，折线图可以，但是散点图不行。现在想用散点图，散点图不使用vba的情况下是可以X坐标轴是日期的

feiyingdpm

那就arr() = Array(47638, 47639, 47640),直接用数字表示日期，然后设置坐标格式，试过了，可行

上了又下

feiyingdpm 发表于 2020-2-21 03:54
那就arr() = Array(47638, 47639, 47640),直接用数字表示日期，然后设置坐标格式，试过了，可行

已经解决了，您的方案是正解，散点图需要从数字转换格式，谢谢！