GBKEE

¦^´_ 1# PJChen
¸Õ¸Õ¬Ý

1. Sub sorting()
   
2.       Workbooks(Workbooks("sorting.xlsm").Worksheets("±Æ§Ç").Range("D3").Value).Activate '¥ý²¾¨ì³o¬¡­¶Ã¯
   
3.       ''''''    .Activate '­n¸Ñ½Xªº¤u§@ªí§ï¦¨¦bD3¿é¤J
   
4.     With ActiveSheet          ' With §ï¦b³o¸Õ¸Õ¬Ý
   
5.         Set b = .Range("R4").CurrentRegion
   
6.     '  ¨ä¾l2007 Äݩʤèªk 2003 ¤¤µLªk¨Ï¥Î
   
7.     '

½Æ»s¥N½X

GBKEE

¦^´_ 6# PJChen
½Ð¸Ô¬Ý µù¸Ñ

1. Sub copy_signed()
   
2.     Workbooks(Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Range("D3").Value).Activate '¥ý²¾¨ì³o¬¡­¶Ã¯
   
3.     '***¤£¥Î¥ý²¾¨ì³o¬¡­¶Ã¯:³oµ{¦¡¬O¦bWorkbooks("¶Kñ¦W.xlsm").Worksheets("EX")¤¤©I¥s©Ò¥H¬O¦h¾lªºµ{¦¡½X.
   
4.     Dim Rng(1 To 3) As Range, xi As Integer
   
5.     Workbooks("¶Kñ¦W.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
   
6.     With ActiveSheet          '**¥iµù¸Ñ±¼   '***  With §ï¦b³o¸Õ¸Õ¬Ý  <= ¤£¬O§i¶D§A§ï¤@§ï  ****
   
7.     .Activate                 '**¥iµù¸Ñ±¼
   
8.     With Workbooks("Shipping for ACE.xlsx")  '***§ï¤@§ï¦¨³o¼Ë:«e­±ªºWith ActiveSheet´N¨S§@¥Î
   
9.                 '*** .Sheets("PKG") ³oÂI¦b With ActiveSheet ¬O¿ù»~ªº ¤@¼Ë³£¬O¤u§@ªí
   
10.         Set Rng(1) = .Sheets("PKG").[r:r].Find("B. C. MART COMPANY LTD.", LOOKAT:=xlPart).Offset(2, -2)
    
11.                         '** ­ì¬O«ü©w[S:S]·|·j¯Á¤£¨ìªº   **
    
12.         Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, -2)
    
13.         Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(1, 1)
    
14.        End With
    
15.         For xi = 1 To 3
    
16.             Rng(xi).Parent.Activate
    
17.             Rng(xi).Activate
    
18.             ActiveSheet.Paste
    
19.         Next
    
20.     End With  '** ¥iµù¸Ñ±¼
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# PJChen
¬O³o¼Ë¶Ü?

1. Sub copy_signed()
   
2.     Dim Rng(1 To 3) As Range, xi As Integer
   
3.     Workbooks("¶Kñ¦W.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
   
4.     With Workbooks(Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Range("D3").Value)  '§ï³o¸Ì...
   
5.         Set Rng(1) = .Sheets("PKG").[r:r].Find("B. C. MART COMPANY LTD.", LOOKAT:=xlPart).Offset(2, -2)
   
6.         Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, -2)
   
7.         Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(1, 1)
   
8.         For xi = 1 To 3
   
9.             Rng(xi).Parent.Activate
   
10.             Rng(xi).Activate
    
11.             ActiveSheet.Paste
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# c_c_lai

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheet1.Pictures.Insert("D:\EX1.GIF")
   
4.         .Height = 150
   
5.         .Width = 150
   
6.         .Cut
   
7.     End With
   
8.     Sheet2.Range("B10").PasteSpecial
   
9.    ' Sheet3.Range("C10").PasteSpecial
   
10.    ' Sheet4.Range("D10").PasteSpecial
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 18# PJChen
16#  °}¦C¯Á¤Þ¶W¥X½d³ò

1. With Workbooks(Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Range("D3").Value)  '
   
2.    .Activate  '  ¥[³o¸Ì...

½Æ»s¥N½X

17# ¾ãµÛ¤u§@ªí¥X²{copy«áªºµê½u°{°Ê

1. Application.CutCopyMode = False  'µ{¦¡µ²§ô«e¥[¤W

½Æ»s¥N½X

18# ¨C°õ¦æ¥¨¶°¤@¦¸,¦s¦¨TXTªºÀɦWArctic_USA´N·|­«½Æ¤@¦¸!

1. Set Rng(2) = .Sheets("Booking").[A1] 'Rng(2) ¦sÀɦWºÙªºÀx¦s®æ
   
2. 'Rng(2) = Rng(2) & "_" & Rng(2).Offset(1) & "_" & Rng(2).Offset(2) 'Rng(2) ¦sÀÉÀɦW¶·¦h¥[[A2]ªºÀx¦s®æ¦WºÙ
   
3. Save_Name = Rng(2) & "_" & Rng(2).Offset(1) & "_" & Rng(2).Offset(2)'§ï³o¼Ë¼g
   
4. '
   
5. '
   
6. Set A = Fs.CreateTextFile("P:\TXT\" & Save_Name & ".txt", True) '«Ø¥ß¤å¦rÀÉ®×
   
7. '
   
8. '
   
9. A.Close
   
10. Shell "Cmd /c start P:\TXT\" & Save_Name & ".txt" '¦Û°Ê¥´¶}TXTÀÉ

½Æ»s¥N½X