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

如何設定excel 裡cell 的背景顏色

答題得分者是:chris681016
it1506
初階會員


發表:30
回覆:83
積分:47
註冊:2011-02-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-02-16 16:58:51 IP:59.120.xxx.xxx 未訂閱
 procedure TForm1.btn1Click(Sender: TObject);
var ExcelApp: Variant;
i,j:Integer;
begin
try
ExcelApp := CreateOleObject('excel.Application');
ExcelApp.Visible := True;
ExcelApp.Caption := '應用程序調用 Microsoft Excel';
ExcelApp.WorkBooks.Add;
for I := 1 to 9 do begin
if(i=1) then ExcelApp.Cells(i,j).Interior.ColorIndex:= clRed; //==>出錯
for j := 1 to 9 do begin
if(j=1) then ExcelApp.Cells(i,j).Interior.ColorIndex := clBlue; //==>出錯
ExcelApp.cells(i,j):=IntToStr(i*j);
end;
end;
except
ExcelApp.quit;
//ShowMessage('電腦沒裝EXCEL!!');
//FreeAndNil(ExcelApp);
ExcelApp:=Unassigned;
Exit;
end;
end;

請問要如何設定背景顏色??
chris681016
中階會員


發表:64
回覆:117
積分:96
註冊:2006-10-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-02-17 14:42:22 IP:211.75.xxx.xxx 訂閱
盡量不要用 clRed 內定顏色的代碼
用這
ExcelApp.Selection.Interior.Color:=$00B3FFFF;
it1506
初階會員


發表:30
回覆:83
積分:47
註冊:2011-02-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2012-02-20 09:48:32 IP:59.120.xxx.xxx 未訂閱
因為comobj在按下.的時候,都沒有提示字,實在很不方便
參考一些範例都是錯的 @@"

可以設定顏色了!
謝謝大大指導!!

procedure TForm1.btn2Click(Sender: TObject);
var ExcelApp: Variant;
i,j:Integer;
begin
try
ExcelApp := CreateOleObject('excel.Application');
ExcelApp.Visible := True;
ExcelApp.Caption :='測試用...';
ExcelApp.WorkBooks.Add;
//ExcelApp.SaveAs(xlsFileName);
//ExcelApp.WorkBooks.Close;
// ExcelApp.quit;
for I := 1 to 9 do begin
ExcelApp.Cells[i,1].Interior.Color:=$00B3FFFF; //這裡interior.color 會出現紅字,但那只是假象, 執行完全沒問題
ExcelApp.Cells[1,i].Interior.Color:=$00B3FFFF; //這裡interior.color 會出現紅字,但那只是假象, 執行完全沒問題
for j := 1 to 9 do begin
ExcelApp.cells(i,j):=IntToStr(i*j); // cells 用小括號就不可用.value , 用cells[10,10].value ,雖然會出現紅字,但那只是假象, 執行完全沒問題
end;
end;
//ExcelApp.cells[10,10]:=123; //中括號用法可以加 .value 或是 不加
ExcelApp:=Unassigned;
except
on e:Exception do begin
ExcelApp.quit;
//ShowMessage('電腦沒裝EXCEL!!');
//FreeAndNil(ExcelApp);
ExcelApp:=Unassigned;
Abort;
end;
end;
end;
===================引 用 chris681016 文 章===================
盡量不要用clRed 內定顏色的代碼
用這
ExcelApp.Selection.Interior.Color:=$00B3FFFF;
編輯記錄
it1506 重新編輯於 2012-02-19 19:00:57, 註解 無‧
it1506 重新編輯於 2012-02-19 20:38:54, 註解 無‧
系統時間:2017-10-23 12:15:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!