返回列表 上一主題 發帖

[發問] 怎樣將DATA (Sheet 2)的數據搬去INVOICE(Sheet 1)後逐頁列印

Hero2013

帖子
13 
主題
4 
精華
0 
積分
24 
點名
0  
作業系統
Windows XP 
軟體版本
SP2 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2013-2-21 
最後登錄
2021-9-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-9 11:14 | 顯示全部帖子

[發問] 怎樣將DATA (Sheet 2)的數據搬去INVOICE(Sheet 1)後逐頁列印

各位大大,
小弟又有問題請教囉;P
怎樣將DATA (Sheet 2)的數據搬去INVOICE(Sheet 1)後逐頁列印 ???
感激:P

Invoice.rar (5.43 KB)

收藏 分享
HERO

Hero2013

帖子
13 
主題
4 
精華
0 
積分
24 
點名
0  
作業系統
Windows XP 
軟體版本
SP2 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2013-2-21 
最後登錄
2021-9-16 
2#
發表於 2013-8-10 00:35 | 顯示全部帖子
Hsieh 大大,

謝謝你的回覆, 不過似乎出現Error.

然後小弟就自己嘗試寫, 不如只印了4張, 不知為啥呢:'(

找了很久也找不出原因...............

Sub INV()

Dim i As Integer, R As Integer
Set my_invoice = Worksheets("INVOICE")
Set my_data = Worksheets("PRINT")

With Worksheets("PRINT")
        .Activate
        R = .Cells(Rows.Count, 1).End(xlUp).Row
End With
   
i = 3

Do While i <= R
  my_invoice.Cells(10, 3) = my_data.Cells(i, 11)
  my_invoice.Cells(16, 5) = my_data.Cells(i, 13)
  my_invoice.Cells(18, 2) = my_data.Cells(i, 19)
  my_invoice.Cells(19, 4) = my_data.Cells(i, 2)
  my_invoice.Cells(20, 4) = my_data.Cells(i, 15)
  my_invoice.Cells(21, 4) = my_data.Cells(i, 16)
  my_invoice.Cells(22, 4) = my_data.Cells(i, 17)
  my_invoice.Cells(23, 4) = my_data.Cells(i, 18)
  my_invoice.PrintOut
  
  i = i + 1
Loop

End Sub

Invoice_Revised.rar (12.53 KB)

HERO

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題