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

如何控制excel自动换行?

尚未結案
ffprince
初階會員


發表:66
回覆:62
積分:25
註冊:2003-08-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-06-16 20:33:46 IP:218.85.xxx.xxx 未訂閱
是使用wraptext吧,但是整句话怎么写? 另外哪里有比较全的delhpi控制excel实现各种功能的介绍?我找了一些,但是像“自动换行”这样的功能就没有找到……
Fishman
尊榮會員


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-06-17 08:53:06 IP:210.65.xxx.xxx 未訂閱
Hi ffprince,    ExcelApplication1.Cells.Range_['A1','A65536'].WrapText := True;    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29495 若有不足,可於 Excel 中自行已錄製巨集方式,來查看各動作相對應之程式碼(但是是 VB 的) ---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
ffprince
初階會員


發表:66
回覆:62
積分:25
註冊:2003-08-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-06-20 17:32:30 IP:220.160.xxx.xxx 未訂閱
非常感谢!但是那里还是不全啊! 还有一个问题:如何设定cell为数字型、文本型等等?
Fishman
尊榮會員


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-06-21 08:14:07 IP:210.65.xxx.xxx 未訂閱
Hi ffprince,    ExcelApplication1.Columns.Range_['A1','A65536'].NumberFormatLocal := '#,##0_ ;[紅色]-#,##0 '; // 數值 ExcelApplication1.Columns.Range_['B1','B65536'].NumberFormatLocal := '@'; // 文字     ---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
系統時間:2024-07-04 15:45:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!