帖子: 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欄的最後一筆才結束程式，謝謝大大的鼎力相助！

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

2^#

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

回復 1# junekevin

Sub Ex()
Dim E As Range, Sh As Worksheet
Set Sh = Sheets("Sheet2") '設立物件變數
For Each E In Sh.Range("A1:A" & Sh.[A1].End(xlDown).Row)
'For Each E In -> 依序處理物件集合的子物件
'Sh.[A1].End(xlDown).Row -> Sh的 A1往下到最後有資料的列位->數字
With Sheets("SHEET1") '在物件中
.[A1].Value = E
.PrintOut '印列
End With
Next
End Sub

複製代碼

TOP

junekevin

小學生 Rank: 1

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

3^#

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

感謝GBKEE大的回覆!!

TOP

freeffly

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2011-3-6 18:36 | 只看該作者

回復 2# GBKEE

   可以問一下這句的意思嗎?
.[A1].Value = E
   設定列印範圍嗎
   .PageSetup.PrintArea = 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

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

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

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

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

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

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

10^#

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

回復 9# GBKEE

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

字典兩各字還真難理解

TOP

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]