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

Excel 合併等問題

答題得分者是:a6475
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-02 19:01:08 IP:61.71.xxx.xxx 未訂閱
請問各位! 我用下列方法動態create excel ole物件 msexcel:= CreateOleObject('Excel.Application'); 1.我要把 A1..Z1 CELL合併, 該下何指令? 我嘗試了 sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:Z1']; sheetrange.Columns.MergeCells; 結果出現合併失敗 上網搜尋Excel討論, 找不到談論這段功能的內文, 雖然幾位版主建議用 excel的巨集錄製再查看程式碼, 不過該段程式碼並不能適用於delphi 我猜了幾個方法也都不通 sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:Z1']; sheetrange.selection.mergcells, 或 msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:Z1'].MergeCells; ps: sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:V65536']; sheetrange.Columns.AutoFit; 這個動作可以通過! 2.我如何知道 cell[2,3]= B3, cell[1,1]=A1 以往我們都是指定 cell[2,3]內的值, 但如果想知道是那一個格址呢? (除了用計算公式去算出來外, 有沒有指令馬上知道) 謝謝!
a6475
高階會員


發表:67
回覆:230
積分:154
註冊:2002-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-02 22:27:30 IP:61.229.xxx.xxx 未訂閱
我用     MyExcel.Range['C1','D8'].Select;     MyExcel.Selection.Merge; //合拼儲存格 在Delphi 6可以使用。試試看吧。    第二個問題我就看不懂了>_< 能不能在說明一下。    ..-----------βλμε------------..
◎Oo月夜 光明 藍更愁oO◎
藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-03 01:52:42 IP:61.71.xxx.xxx 未訂閱
引言: 我用 MyExcel.Range['C1','D8'].Select; MyExcel.Selection.Merge; //合拼儲存格 感謝, 按您提供的方式來做, 的確可以達成! 在Delphi 6可以使用。試試看吧。 第二個問題我就看不懂了>_< 能不能在說明一下。 例如, 上面 MyExcel.Range['C1','C8'].Select 其他 C1, C8 是由cell內容值判斷公式來決定的, 所以要Merge的區域是不確定的, 也有可能是 D2..E2 我的寫法是 if cell[1,3].... 則 Range 就由 C1開始, 但我並不知道 cell[1,3]是代表'C1', 我又不能下 Range[cell[1,3],cell[8,3]) 因此, 我想知道, 有沒有指令可以換算 cell[1,3] 換成 'C1' 我現在是用一支function來分析計算, 一樣可以做到該功能!
yubad
一般會員


發表:0
回覆:15
積分:3
註冊:2003-11-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-03-03 10:05:37 IP:210.65.xxx.xxx 未訂閱
引言:
引言: 我用 MyExcel.Range['C1','D8'].Select; MyExcel.Selection.Merge; //合拼儲存格 感謝, 按您提供的方式來做, 的確可以達成! 在Delphi 6可以使用。試試看吧。 第二個問題我就看不懂了>_< 能不能在說明一下。 例如, 上面 MyExcel.Range['C1','C8'].Select 其他 C1, C8 是由cell內容值判斷公式來決定的, 所以要Merge的區域是不確定的, 也有可能是 D2..E2 我的寫法是 if cell[1,3].... 則 Range 就由 C1開始, 但我並不知道 cell[1,3]是代表'C1', 我又不能下 Range[cell[1,3],cell[8,3]) 因此, 我想知道, 有沒有指令可以換算 cell[1,3] 換成 'C1' 我現在是用一支function來分析計算, 一樣可以做到該功能!
cell[1,3].address or cell[1,3].address(xlA1)
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-03-03 11:40:33 IP:61.71.xxx.xxx 未訂閱
引言: cell[1,3].address or cell[1,3].address(xlA1)
感謝指導, 不知道有沒有相關完整的Excel或Word這方面的技術資料(for delphi)及網頁可以參考哦? 上回論譠上有網友分享了Excel大全, 不過內容並不足(上面所遇到的問題就沒有提到)!
shinhrn
中階會員


發表:54
回覆:165
積分:83
註冊:2002-06-05

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-03-04 12:12:36 IP:218.162.xxx.xxx 未訂閱
引言:
引言: cell[1,3].address or cell[1,3].address(xlA1)
感謝指導, 不知道有沒有相關完整的Excel或Word這方面的技術資料(for delphi)及網頁可以參考哦? 上回論譠上有網友分享了Excel大全, 不過內容並不足(上面所遇到的問題就沒有提到)!
參考這篇不錯喔 http://delphi.ktop.com.tw/topic.php?topic_id=28371
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-03-04 16:53:05 IP:61.218.xxx.xxx 未訂閱
P.D您好:    以下是C   Builder將Excel的Cell Merge方法您參考看看:    //合併>    < class="code">/*生活是一種藝術,用心生活才能享受生活*/
系統時間:2024-05-13 2:40:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!