VBA：将日期以日期格式硬编码到散点图X轴

我之前也踩过这个坑！散点图处理日期确实有点反直觉——它不认字符串格式的日期，得从数据类型本质和轴格式设置两方面入手，给你几个实用的解决办法：

方法1：直接传递Date类型变量+设置轴日期格式 #

散点图的X轴本质是数值坐标，而Excel里的日期本身就是带含义的数值（序列号）。所以直接传递真正的Date类型变量，再把轴的显示格式改成日期就行：

' 假设date1、date2、date3是已定义的Date类型变量
Chart1.FullSeriesCollection(1).XValues = Array(date1, date2, date3)

' 配置X轴显示为日期格式
With Chart1.Axes(xlCategory)
    .TickLabels.NumberFormat = "MM/DD/YY" ' 改成你需要的日期格式
    .HasTitle = True
    .AxisTitle.Text = "日期"
End With

方法2：字符串日期先转成Date类型再传递 #

如果你的日期是字符串格式（比如从文本文件读取的），先通过CDate()函数转成Date类型，再传递给XValues：

Dim dateStrings As Variant
dateStrings = Array("01/01/24", "01/02/24", "01/03/24")

' 把字符串转成Date类型数组
Dim xDates As Variant
ReDim xDates(UBound(dateStrings))
For i = LBound(dateStrings) To UBound(dateStrings)
    xDates(i) = CDate(dateStrings(i))
Next i

' 赋值给散点图X轴
Chart1.FullSeriesCollection(1).XValues = xDates

' 同样设置轴格式
Chart1.Axes(xlCategory).TickLabels.NumberFormat = "MM/DD/YY"

为什么之前的方法无效？ #

• 散点图的XValues只接受数值型数据（因为它是基于坐标的图表类型），字符串格式的日期（哪怕带#）会被Excel当成无效的坐标值，所以加载失败。
• 你之前转成数值（Format(xDate, "0")）能运行，是因为传递了日期的序列号，但没设置轴的显示格式，所以轴显示的是原始数值而非日期。

额外小技巧 #

如果你的日期数据存在工作表单元格里，直接引用单元格区域是最省心的方式——Excel会自动识别单元格的日期属性，后续只需要调整轴格式：

Chart1.FullSeriesCollection(1).XValues = ThisWorkbook.Sheets("Sheet1").Range("A1:A3")
Chart1.Axes(xlCategory).TickLabels.NumberFormat = "MM/DD/YY"

内容的提问来源于stack exchange，提问作者Rbx01x