帖子: 2
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-3-5
最後登錄: 2024-9-14

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-3-5 10:10 | 只看該作者

EXCEL高手 VBA 如何將需重覆的動作寫成迴圈

請問EXCEL高手:
如何將SHEET2 A欄第１筆資料複製到SHEET1 的A1儲存格
並將SHEET1的內容印出，再將SHEET2 A欄第２筆資料複製到SHEET1 的A1儲存格再將SHEET1的內容印出；如此一直重覆至SHEET2 A欄的最後一筆才結束程式，謝謝大大的鼎力相助！

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

10^#

發表於 2011-3-9 17:39 | 只看該作者

回復 9# GBKEE

謝謝大大回覆
這各我在想依下好了

字典兩各字還真難理解

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兔年全勤獎章

9^#

發表於 2011-3-7 13:10 | 只看該作者

回復 8# freeffly
2樓的程式碼是針對樓主的發問所寫

1.[A1].Value = E -> ( [A1].Value=E的內容(值) ) -> 將[A1]的內容替換為 E 的內容 (假設為E= 101)

2 PageSetup.PrintArea 為設定工作表印列的範圍
PageSetup.PrintArea =E.ADDRESS -> 工作表印列的範圍= 字串 (E的範圍假設為 $A$1)

兩句的用法是不同的

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

8^#

發表於 2011-3-7 12:18 | 只看該作者

回復 7# GBKEE

我的意思是兩句都是可以達到列印該區段的資料嗎

字典兩各字還真難理解

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兔年全勤獎章

7^#

發表於 2011-3-7 07:50 | 只看該作者

所以若在後面加上address效果會與 .[A1].value=E 相同嗎?freeffly 發表於 2011/3/6 20:38

意思是如此嗎?
[A1].value=E.address -> [A1]=E的位置可以ㄚ

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

6^#

發表於 2011-3-6 20:38 | 只看該作者

回復 5# GBKEE

.[A1].Value = E '(Value,內容->值)
.PageSetup.PrintArea = E.Address->傳回物件(Address) -> 位置

所以若在後面加上address效果會與 .[A1].value=E 相同嗎?

字典兩各字還真難理解

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兔年全勤獎章

5^#

發表於 2011-3-6 20:16 | 只看該作者

回復 4# freeffly
.[A1].Value = E '(Value,內容->值)
.PageSetup.PrintArea = E.Address->傳回物件(Address) -> 位置

VBA的說明
PrintArea 屬性
傳回或設定要列印的範圍，此為使用巨集語言中 A1 樣式參照的字串。讀/寫 String(字串)
expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)
http://forum.twbts.com/thread-2741-2-1.html

TOP

freeffly