[µo°Ý] «ç¼Ë±NDATA (Sheet 2)ªº¼Æ¾Ú·h¥hINVOICE(Sheet 1)«á³v­¶¦C¦L

Hero2013

¦U¦ì¤j¤j,
¤p§Ì¤S¦³°ÝÃD½Ð±ÐÅo;P
«ç¼Ë±NDATA (Sheet 2)ªº¼Æ¾Ú·h¥hINVOICE(Sheet 1)«á³v­¶¦C¦L ???
·P¿E:P

Hsieh

¦^´_ 3# Hero2013

¤U¸ü (30.52 KB)

2013-8-12 09:25

Hero2013

Hsieh ¤j¤j,

ÁÂÁ§Aªº¦^ÂÐ, ¤£¹L¦ü¥G¥X²{Error.

µM«á¤p§Ì´N¦Û¤v¹Á¸Õ¼g, ¤£¦p¥u¦L¤F4±i, ¤£ª¾¬°Ô£©O:'(

§ä¤F«Ü¤[¤]§ä¤£¥X­ì¦]...............

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

Hsieh

¦^´_ 1# Hero2013

1. Sub PrintData()
   
2. With ¤u§@ªí2
   
3.    ar = .Range("A1").CurrentRegion
   
4.    r = 3
   
5.    Do Until r > UBound(ar, 1)
   
6.       With ¤u§@ªí1
   
7.       .[B8] = ar(r, 11)
   
8.       .[C13] = ar(r, 13)
   
9.       .[B15:B18] = Application.Transpose(Array(ar(r, 2), ar(r, 15), ar(r, 16), ar(r, 17)))
   
10.      ' .PrintOut '¦C¦L
    
11.       .PrintPreview '¹wÄý¦C¦L
    
12.       End With
    
13.       r = r + 1
    
14.     Loop
    
15. End With
    
16. End Sub

½Æ»s¥N½X