mschart图形问题 20
现在过程中遇到一问题,向您请教,横坐标为日期型,纵坐标为数值,绘出点时是将日期转化为了双精度行的,然后FORMAT日期型显示在X轴上,我需要在绘出的图形上标出该点的坐标。...
现在过程中遇到一问题,向您请教,横坐标为日期型,纵坐标为数值,
绘出点时是将日期转化为了双精度行的,然后FORMAT日期型显示在X轴上,
我需要在绘出的图形上标出该点的坐标。如:(2008/10/1,12),或者只让其显示纵坐标,请问如何做 展开
绘出点时是将日期转化为了双精度行的,然后FORMAT日期型显示在X轴上,
我需要在绘出的图形上标出该点的坐标。如:(2008/10/1,12),或者只让其显示纵坐标,请问如何做 展开
1个回答
展开全部
Private Sub Form_Click()
Dim A(5) As String'存日期,数组的维数等于你的实际日期数减1
Dim b(5) As Single'存数字,与日期相对应
Dim i As Integer
For i = 0 To 5
A(i) = Chr(64 + i)'换成你相应的日期
b(i) = 78 + i * 2'换成你相应的数值
Next i
With MSChart1
.RowCount = 6'换成实际的日期数,有几个日期就换成几
.ColumnCount = 1'不要改变,就是1
For i = 1 To 6'换成实际的日期数,有几个日期就换成几
.Row = i
.RowLabel = A(i - 1)
.Data = b(i - 1)
Next i
End With
End Sub
Dim A(5) As String'存日期,数组的维数等于你的实际日期数减1
Dim b(5) As Single'存数字,与日期相对应
Dim i As Integer
For i = 0 To 5
A(i) = Chr(64 + i)'换成你相应的日期
b(i) = 78 + i * 2'换成你相应的数值
Next i
With MSChart1
.RowCount = 6'换成实际的日期数,有几个日期就换成几
.ColumnCount = 1'不要改变,就是1
For i = 1 To 6'换成实际的日期数,有几个日期就换成几
.Row = i
.RowLabel = A(i - 1)
.Data = b(i - 1)
Next i
End With
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询