請教關於合併列印問題 - Word - 麻辣家族討論版版

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

11^# 跳轉到 »

發表於 2010-10-13 17:46 | 只看該作者

回復 8# GBKEE

若依Word檔補齊Excel欄位,執行後在Word中只會出現[姓名]及[學號]資料,其餘資料都未顯示
不知什麼原因?

991011-1.zip (7.09 KB)

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

12^#

發表於 2010-10-13 18:05 | 只看該作者

回復 9# oobird

謝謝[oobird]版主
從沒這樣用過,獲益良多!

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

13^#

發表於 2010-10-13 18:31 | 只看該作者

回復 10# chiahuo

我試過好像也會漏資料

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2010-10-13 20:37 | 只看該作者

回復 11# 偉婕
修改 Set Rng = .WORKBOOKS(1).SHEETS(1).Range(First).End(2)
成如下 Set Rng = .WORKBOOKS(1).SHEETS(1).Range("IV2").End(1)

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

15^#

發表於 2010-10-13 20:58 | 只看該作者

回復 14# GBKEE

謝謝[GBKEE]版主,可以了
這行是在定義範圍,可為何是 Range("IV2").End(1)
可否說明一下意思,謝謝!

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

16^#

發表於 2010-10-13 21:10 | 只看該作者

End(1)
=End(xlToLeft)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

17^#

發表於 2010-10-13 21:21 | 只看該作者

本帖最後由 GBKEE 於 2010-10-13 21:23 編輯

回復 15# 偉婕
Set Rng = .WORKBOOKS(1).SHEETS(1).Range(First).End(2)  ->.End(2) 往右到最後一個資料的位置.原本檔案因中間遇到空白會在空白前停止,所以改成從檔案的最後一欄(2003版 - IV)
Set Rng = .WORKBOOKS(1).SHEETS(1).Range("IV2").End(1) -> End(1)  往左遇到第一有資料的位置

Set Rng = Rng.End(4) ->End(4) -> End(4)  往下到最後一個資料的位置
Set Rng = .WORKBOOKS(1).SHEETS(1).Range(First, Rng)    '取得資料

TOP

chiahuo

　暱稱: chiahuo

中學生 Rank: 2

帖子: 183
主題: 46
精華: 0
積分: 322
點名: 0
作業系統: win 7
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2010-6-18
最後登錄: 2017-9-26

18^#

發表於 2010-10-14 10:48 | 只看該作者

本帖最後由 chiahuo 於 2010-10-14 10:50 編輯

回復 13# 偉婕

這個是我測試的檔案，格式是橫的
12人每欄資料都可以，參考看看
EXCEL檔是有最早的格式

991014.zip (9.81 KB)

小弟是excel程式初學者，請多多指教

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

19^#

發表於 2010-10-14 17:37 | 只看該作者

回復 16# oobird
謝謝[oobird]版主的解說

回復 17# GBKEE
謝謝[GBKEE]版主詳細的解說,已明白囉!

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

PD961A