如何設定excel 裡cell 的背景顏色 |
|
答題得分者是：chris681016
|
|
it1506
初階會員   發表：32 回覆：89 積分：49 註冊：2011-02-16 發送簡訊給我 |
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
中階會員  發表：69 回覆：122 積分：98 註冊：2006-10-12 發送簡訊給我 |
|
|
it1506
初階會員 發表：32 回覆：89 積分：49 註冊：2011-02-16 發送簡訊給我 |
因為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 會出現紅字,但那只是假象, 執行完全沒問題 for j := 1 to 9 do begin ExcelApp.cells(i,j):=IntToStr(i*j); // cells 用小括號就但那只是假象, 執行完全沒問題 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; 盡量不要用clRed 內定顏色的代碼 用這 ExcelApp.Selection.Interior.Color:=$00B3FFFF; |
發表時間：2012-02-16 16:58:51
IP:59.120.xxx.xxx 未訂閱
系統時間：2024-04-25 2:50:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |