全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1384
推到 Plurk!
推到 Facebook!

如何將EXCELL中的兩個CELL做合併的動作???

答題得分者是:Fishman
mnsf
初階會員


發表:104
回覆:90
積分:48
註冊:2003-11-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-08 15:22:49 IP:61.30.xxx.xxx 未訂閱
如題,Delphi的語法為何呢??
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-08 15:49:37 IP:210.65.xxx.xxx 未訂閱
Hi:    ExcelApplication1.Cells.Range_['A1','A2'].MergeCells := True;     -------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-01-08 16:25:10 IP:218.163.xxx.xxx 未訂閱
uses ComObj;
....
var  
  ExcelApp: Variant;   
...    procedure TForm1.Button1Click(Sender: TObject);
begin
 ExcelApp := CreateOleObject( 'Excel.Application' );
 ExcelApp.WorkBooks.Add;
 ExcelApp.Visible := True;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
 ExcelApp.Range['D1:D2'].Mergecells := True; //D1與D2欄位合併
 ExcelApp.Range['D1:D2'].value:='合併完成';
end;     
網海無涯,學無止境!
系統時間:2024-07-07 22:46:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!