| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 802 人关注过本帖
标题:Excel_Chart 问题(有点深度)
只看楼主 加入收藏
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
结帖率:33.33%
收藏
 问题点数:0 回复次数:4 
Excel_Chart 问题(有点深度)

想利用EXCEL中生成一个图形(2维),横轴为电流值,纵轴为电压值,不知道如何写入数据,请各位帮忙
下面是我的部分程序:
With ct.Chart
.ChartType = xlXYScatterLines '散点折线图类型
.SeriesCollection.NewSeries
For i = 1 To 20
RowData_Voltage_Value = Chr(66) & CInt(2 + i) '''''B3 开始
RowData_Current_Value = Chr(69) & CInt(2 + i) ''''''E3 开始
.seriesconnlection.NewSeries
.SeriesCollection(i).XValues = xllSheet.Range(RowData_Voltage_Value).Value
.SeriesCollection(i).Values = xllSheet.Range(RowData_Current_Value).Value
MsgBox CStr(xllSheet.Range(RowData_Voltage_Value).Value)
Next i
End With

以上: xllSheet.Range(RowData_Voltage_Value).Value,xllSheet.Range(RowData_Current_Value).Value
数据没有错,就是赋值时没有值(.SeriesCollection(i).XValues 这个出错了),想问问大家如何写入数据?

现在存在的问题就是图形上没有数据点,请帮帮忙!

搜索更多相关主题的帖子: Chart Excel 深度 Value CInt 
2007-08-23 15:20
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
收藏
得分:0 

上面的循环 我的意思是想每循环一次,在图上生成一个点 point(电压值,电流值)
错在赋值上面!请各位高手相助,


永远以今天为荣!
2007-08-23 15:26
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
收藏
得分:0 
.seriesconnlection.NewSeries
.SeriesCollection(i).XValues = xllSheet.Range(RowData_Voltage_Value).Value
.SeriesCollection(i).Values = xllSheet.Range(RowData_Current_Value).Value
不支持对象属性!

永远以今天为荣!
2007-08-23 16:38
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
收藏
得分:0 
修改后:
With ct.Chart
.ChartType = xlXYScatterLines '散点折线图类型
.SeriesCollection.NewSeries
For i = 1 To 19
RowData_Voltage_Value = Chr(66) & CInt(2 + i) '''''B3 开始
RowData_Current_Value = Chr(69) & CInt(2 + i) ''''''E3 开始
RowData_Voltage_Next_Value = Chr(66) & CInt(3 + i)
RowData_Current_Next_Value = Chr(69) & CInt(3 + i)
.SeriesCollection.NewSeries ''''增加一次投点,画条直线
'''''''''''array(电压起点,电压终点)
First_Voltage = xllSheet.Range(RowData_Voltage_Value).Value
Second_Voltage = xllSheet.Range(RowData_Voltage_Next_Value).Value
.SeriesCollection(i).XValues = Array(First_Voltage, Second_Voltage)

''''''''''''array(电流起点,电流终点)
First_Current = xllSheet.Range(RowData_Current_Value).Value
Second_Current = xllSheet.Range(RowData_Current_Next_Value).Value
.SeriesCollection(i).Values = Array(First_Current, Second_Current)
Next i
End With
不会报错,但是图形上没数据。First_Voltage,Second_Voltage,First_Current,Second_Current都真确得到了数据

永远以今天为荣!
2007-08-23 17:09
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
收藏
得分:0 
呵呵 我明白了怎么操作!
With ct.Chart
.ChartType = xlXYScatterLines '散点折线图类型
.SeriesCollection.NewSeries
For i = 1 To 20
RowData_Voltage_Value = Chr(66) & CInt(2 + i) '''''B3 开始
RowData_Current_Value = Chr(69) & CInt(2 + i) ''''''E3 开始
.SeriesCollection.NewSeries''''''''''''''''''''''''''''''''这里出错了点错,还有点别的地方。所’’‘以’修改来修改去还是不能成功
.SeriesCollection(i).XValues = xllSheet.Range(RowData_Voltage_Value).Value
.SeriesCollection(i).Values = xllSheet.Range(RowData_Current_Value).Value
MsgBox CStr(xllSheet.Range(RowData_Voltage_Value).Value)
Next i
End With

永远以今天为荣!
2007-08-24 18:35
快速回复:Excel_Chart 问题(有点深度)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016062 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved