EXCEL高手 VBA 如何將需重覆的動作寫成迴圈
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2024-9-14
|
EXCEL高手 VBA 如何將需重覆的動作寫成迴圈
請問EXCEL高手:
如何將SHEET2 A欄第1筆資料複製到SHEET1 的A1儲存格
並將SHEET1的內容印出,再將SHEET2 A欄第2筆資料複製到SHEET1 的A1儲存格再將SHEET1的內容印出;如此一直重覆至SHEET2 A欄的最後一筆才結束程式,謝謝大大的鼎力相助! |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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
複製代碼 |
|
|
|
|
|
|
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 9
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2024-9-14
|
3#
發表於 2011-3-5 22:41
| 只看該作者
|
|
|
|
|
|
- 帖子
- 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
可以這樣寫嗎 |
|
字典兩各字 還真難理解
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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 |
|
|
|
|
|
|
- 帖子
- 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 相同嗎? |
|
字典兩各字 還真難理解
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
7#
發表於 2011-3-7 07:50
| 只看該作者
所以若在後面加上address效果會與 .[A1].value=E 相同嗎?freeffly 發表於 2011/3/6 20:38
意思是如此嗎?
[A1].value=E.address -> [A1]=E的位置 可以ㄚ |
|
|
|
|
|
|
- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
|
8#
發表於 2011-3-7 12:18
| 只看該作者
回復 7# GBKEE
我的意思是兩句都是可以達到列印該區段的資料嗎 |
|
字典兩各字 還真難理解
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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)
兩句的用法是不同的
|
|
|
|
|
|
|
- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
|
10#
發表於 2011-3-9 17:39
| 只看該作者
回復 9# GBKEE
謝謝大大回覆
這各我在想依下好了 |
|
字典兩各字 還真難理解
|
|
|
|
|