【Delphi】【問題】Excel檔中同一個cell要怎麼設定不同的字體呢? |
尚未結案
|
firecat
一般會員 發表:5 回覆:4 積分:1 註冊:2004-02-17 發送簡訊給我 |
在同一個cell中,user要求中文字要標楷體,英文字型則要用Times New Roman,請問要怎麼實現這個願望呢?請大家指點迷津囉! 另外在表裡面有特殊符號,分別是
1.Wingdings 2字型的 R -->看起來是一個方框裡有一個勾
2.Wingdings 2字型的 £ -->看起來是一個方框裡面為空白 方框加勾我用
xls.workbooks[1].cells[1,1].Font.Name:='Wingdings 2';
xls.workbooks[1].cells[1,1]:='R';
解決了 但是 £ 在Delphi裡顯示不出來
怎麼辦哩 @_@
|
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
引言: 在同一個cell中,user要求中文字要標楷體,英文字型則要用Times New Roman,請問要怎麼實現這個願望呢?請大家指點迷津囉!偷懶的方法,先設定成 標楷體,再設定成 Times New Roman 這樣就會中文字是標楷體,英文字是 Times New Roman 不過,要先把要填的字塡進去,再設定字型 因為Times New Roman是英文字型,Excel 會自己判斷中英文字,就不會去動到中文字的字型設定了 引言: 但是 £ 在Delphi裡顯示不出來 怎麼辦哩 @_@二個方法: 1. 在用輸入 £ 的地方,用 {按下 ALT,鍵入 163,放開 ALT} 代替 2. 或者是用 WideChar($A3) 代替,根據實驗 Chr($A3) 不行... 發表人 - reptile 於 2005/04/15 09:39:30 |
firecat
一般會員 發表:5 回覆:4 積分:1 註冊:2004-02-17 發送簡訊給我 |
感恩^_^
果然是要先塞值再設字型才行
先設的話,標楷體會自己變成新細明體
引言: 二個方法: 1. 在用輸入 £ 的地方,用 {按下 ALT,鍵入 163,放開 ALT} 代替 2. 或者是用 WideChar($A3) 代替,根據實驗 Chr($A3) 不行... 發表人 - reptile 於 2005/04/15 09:39:30第一個方法我試不出來耶 第二個方法試出來會變成全型的£ 自己有試過在Delphi裡是可以直接貼上全型的 £ 但是半型的就會有問題 另外全型的 £ 也可以用Char(162) + Char(71)帶出來 我想要弄出的效果是 目前暫時用Char(161) + Char(188)代替 大小差一點點,反正user沒意見就好:P,如果有辦法弄出半型的 £ 再請告訴我,謝謝 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |