線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1494
推到 Plurk!
推到 Facebook!

请教各位关于在excel中生成折线图的问题~~

答題得分者是:st33chen
kokonor
一般會員


發表:5
回覆:5
積分:2
註冊:2009-04-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-04-29 16:53:21 IP:125.72.xxx.xxx 訂閱
呃,之前我是将串口中读到的数据读到excel中,但是在生成折线图这里遇到了很多的困惑,所以想请教各位
在网上看到大部分excel中做二维图时都要用下面的语句
给二维图赋值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9; //但是这里一直编译不能通过
series.add(range,true);
第一个问题就是这里的range 假设我希望是 如下 'A1:D4' 的范围,那么我应该怎样写这样的代码呢?
P1101520
P2202530
P3152530
由于是初学delphi,所以各方面还都有非常多的不明白,所以要请教大家了。。先谢过了~
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-04-29 17:13:31 IP:122.116.xxx.xxx 未訂閱
您好,

range:=sheet1!r2c3:r3c9; //但是这里一直编译不能通过
這句的語法和您在 delphi 中用的 excel 元件有關

請問您用什麼 excel 元件(component)?
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-04-29 17:13:53, 註解 無‧
kokonor
一般會員


發表:5
回覆:5
積分:2
註冊:2009-04-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-04-29 17:38:01 IP:125.72.xxx.xxx 訂閱
太感谢您的回复了~~ 
ExcelApplication1: TExcelApplication;
ExcelQueryTable1: TExcelQueryTable;
ExcelWorkbook1: TExcelWorkbook;
ExcelOLEObject1: TExcelOLEObject;
ExcelWorksheet1: TExcelWorksheet;
我用的应该是这些~~~
另外如果在excel中用其自带的功能插入图表的话,我有看到范围的格式类似于'=demo!$B$1:$D$8'
那么这里的r2c3:r3c9 可以理解为是 C2至C9这一列的数字么?
===================引 用 st33chen 文 章===================
您好,

range:=sheet1!r2c3:r3c9; //但是这里一直编译不能通过
這句的語法和您在 delphi 中用的 excel 元件有關

請問您用什麼 excel 元件(component)?
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-04-30 09:41:41 IP:122.116.xxx.xxx 未訂閱
您好,

試一下

(假設 range, sheet1 都已宣告定義了)

range := sheet1.olepropertyget('range', 'A1:D4');


------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
kokonor
一般會員


發表:5
回覆:5
積分:2
註冊:2009-04-29

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-04-30 11:57:16 IP:125.72.xxx.xxx 訂閱
真是太感谢您了~~我去试一下~~\(^_^)/

目前我是用这样的方法解决的:

[code delphi]
Cell3:=Sheet1.Cells.item[3,2];
Cell6:=Sheet1.Cells.item[5,3];
Range3 := sheet1.range[cell3,cell6]; //选定excel中3B:5C的数据范围
Sheet1.ChartObjects.add(200, 0, 500, 280);
sheet1.ChartObjects[1].Activate;
sheet1.ChartObjects[1].Chart.charttype:=xlline; //折线图
sheet1.ChartObjects[1].Chart.seriescollection.ADD[Range3];
[/code]
也是参考网上别人的例子,但是对于这些类似于sheet1.xxxx.xxxxxx.xxxxx的这些属性设置还是感觉到很迷茫
比如我想在combobox中添加下拉菜单,但是一下三种方法都能实现~~
combobox1.Items.AddObject('P1', combobox1);
combobox1.AddItem('p2',combobox1);
combobox1.Items.Add('p3');
所以虽然觉得delphi很强大,但是真的是感觉到好困惑啊~~ >_<

===================引 用 st33chen 文 章===================
您好,

試一下

(假設 range, sheet1 都已宣告定義了)

range := sheet1.olepropertyget('range', 'A1:D4');
系統時間:2024-05-16 12:26:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!