- 帖子
- 58
- 主題
- 8
- 精華
- 0
- 積分
- 94
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-6
- 最後登錄
- 2014-2-17
|
再次麻煩 Hsieh 大大
本帖最後由 gn00487767 於 2011-2-24 22:25 編輯
關於大大之前給小弟的參考資料
其中 H13 的儲存格 會隨著 編號變動自己帶出資料
小弟要把 H13 的資料 隨著你給小弟的VBA碼變動
再複製到 帶出資料 工作表的B欄 (從B2到最後)
應該怎麼修改呢
因為裡面用的
Dim A As Range
With Sheets("資料表")
For Each A In .Range(.[A2], .[A2].End(xlDown))
With Sheets("表格")
.[E1] = A
.[C3] = A.Offset(, 1)
.[G3] = A.Offset(, 2)
.[C5] = A.Offset(, 3)
.[G5] = A.Offset(, 4)
.[C7] = A.Offset(, 5)
.[C9] = A.Offset(, 6)
.PrintPreview '預覽
.PrintOut '列印
End With
Next
End With
會自動執行到最後
小弟要在自動執行裡面再多一排自動執行到最後
但要反過來變成同一個儲存格要複製到別欄到最後
變成每印一張就把裡面的H13複製 帶出資料 工作表的B欄 (從B2到最後)
小弟自行修改可是結果都不是小弟需要的
會一直重複
所以要再麻煩大大了 |
-
-
自動列印範例.rar
(9.77 KB)
|
發表於 2011-2-24 22:20
| 
