X轴的日期不出现

[mitu3250]

我想要在鼠标点击图表那个Sheet中的策略1和策略2时，自动生成图表，但是不知道为什么日期不出现。。。求助大神！怎么上传附件？code在下面：
Sub UpdateTrendChart()
'变量设定部分
Dim ChtObj As ChartObject '图表元素
Dim UserRow As Long '用户点击的哪一行变量
Set ChtObj = ActiveSheet.ChartObjects(1) '图标元素设定为当前活动的sheet的第一个图表
Dim datarange As Range '需要呈现的数据部分

UserRow = ActiveCell.Row
If UserRow < 2 Or IsEmpty(Cells(UserRow, 1)) Then '步骤1：获取用户选定的那一行
ChtObj.Visible = False
Else
a = 3 * (UserRow - 1) - 2

Set datarange = ThisWorkbook.Sheets("数据").Columns(a + 1) '步骤2：获取用户选择主题对应的绝对走势数据和相对走势数据
down = datarange.Cells(Rows.Count, 1).End(xlUp).Row
ChtObj.Chart.SeriesCollection(1).Values = datarange.Range("A2", "A" & down) '步骤3：关联图表元素和主题指数的数据
ChtObj.Chart.SeriesCollection(1).Name = ThisWorkbook.Sheets("数据").Cells(1, a + 1)

Set datarange = ThisWorkbook.Worksheets("数据").Columns(a + 2)
ChtObj.Chart.SeriesCollection(2).Values = datarange.Range("A2", "A" & down)
ChtObj.Chart.SeriesCollection(2).Name = ThisWorkbook.Sheets("数据").Cells(1, a + 2)


Set datarange = ThisWorkbook.Sheets("数据").Columns(a)
ChtObj.Chart.FullSeriesCollection(1).XValues = datarange.Range("A2", "A" & down)
ChtObj.Chart.FullSeriesCollection(2).XValues = datarange.Range("A2", "A" & down)

ChtObj.Chart.SetElement (msoElementLegendBottom)
ChtObj.Chart.ChartTitle.Text = Cells(UserRow, 1).Text '步骤4：设定图表的一些其他元素

ChtObj.Visible = True
End If
End Sub

[mitu3250]

顶一个，大神帮帮忙！有什么没说清楚的也可以跟我说啊~