標題:
EXCEL高手 VBA 如何將需重覆的動作寫成迴圈
[打印本頁]
作者:
junekevin
時間:
2011-3-5 10:10
標題:
EXCEL高手 VBA 如何將需重覆的動作寫成迴圈
請問EXCEL高手:
如何將SHEET2 A欄第１筆資料複製到SHEET1 的A1儲存格
並將SHEET1的內容印出，再將SHEET2 A欄第２筆資料複製到SHEET1 的A1儲存格再將SHEET1的內容印出；如此一直重覆至SHEET2 A欄的最後一筆才結束程式，謝謝大大的鼎力相助！
作者:
GBKEE
時間:
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
複製代碼
作者:
junekevin
時間:
2011-3-5 22:41
感謝GBKEE大的回覆!!
作者:
freeffly
時間:
2011-3-6 18:36
回復
2#
GBKEE
可以問一下這句的意思嗎?
.[A1].Value = E
設定列印範圍嗎
.PageSetup.PrintArea = E
可以這樣寫嗎
作者:
GBKEE
時間:
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
作者:
freeffly
時間:
2011-3-6 20:38
回復
5#
GBKEE
.[A1].Value = E '(Value,內容->值)
.PageSetup.PrintArea = E.Address->傳回物件(Address) -> 位置
所以若在後面加上address效果會與 .[A1].value=E 相同嗎?
作者:
GBKEE
時間:
2011-3-7 07:50
所以若在後面加上address效果會與 .[A1].value=E 相同嗎?
freeffly 發表於 2011/3/6 20:38
意思是如此嗎?
[A1].value=E.address -> [A1]=E的位置 可以ㄚ
作者:
freeffly
時間:
2011-3-7 12:18
回復
7#
GBKEE
我的意思是兩句都是可以達到列印該區段的資料嗎
作者:
GBKEE
時間:
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)
兩句的用法是不同的
作者:
freeffly
時間:
2011-3-9 17:39
回復
9#
GBKEE
謝謝大大回覆
這各我在想依下好了
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
