c_c_lai

¦^´_ 3# PJChen
¨Ì¾ÚGBKEE¤j¤jªºµ{¦¡½X¤]¥i¥H­×§ï¦¨¡G

1. Sub sorting()
   
2.     Dim Wb As Workbook
   
3.    
   
4.     '  Workbooks(Workbooks("sorting.xlsm").Worksheets("±Æ§Ç").Range("D3").Value).Activate
   
5.     '  ­n¸Ñ½Xªº¤u§@ªí§ï¦¨¦bD3¿é¤J¡A°õ¦æ®É¤@¨Ö­n¦P®É¶}±Ò 2012 BCMart Chart-Adam 20121023.xls
   
6.     '  ¤U¦C­×¥¿¬°°õ¦æ sorting.xlsm ®É¡A ¨t²Î·|¦Û°Ê³s¦P±N 2012 BCMart Chart-Adam 20121023.xls ¤@¨Ö¦P®É¶}±Ò¡C
   
7.     Set Wb = Workbooks.Open(ThisWorkbook.Path & "\" & Workbooks("sorting.xlsm").Worksheets("±Æ§Ç").Range("D3").Value)
   
8.    
   
9.     With Wb.ActiveSheet
   
10.         Set b = .Range("R4").CurrentRegion
    
11.         A = Array("R", "S", "T", "Q", "D")
    
12.         .AutoFilter.Sort.SortFields.Clear
    
13.         For i = 0 To 4
    
14.            .AutoFilter.Sort.SortFields.Add Key:=b.Columns(A(i)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
15.         Next
    
16.         With .AutoFilter.Sort
    
17.             .Header = xlYes
    
18.             .MatchCase = False
    
19.             .Orientation = xlTopToBottom
    
20.             .SortMethod = xlPinYin
    
21.             .Apply
    
22.         End With
    
23.     End With
    
24. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 8# PJChen
¦^´_ 9# GBKEE
¤W¥b³¡¦p§ï¦¨¦p¤U¡A­Ó¤Hı±o·|¤è«K¦h¡C

1. Sub copySigned()    ' GBKEE
   
2.     Dim Rng(1 To 3) As Range, xi As Integer, Wb As Workbook
   
3.    
   
4.     Set Wb = Workbooks.Open(ThisWorkbook.Path & "\" & Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Range("D3").Value)
   
5.    
   
6.     Workbooks("¶Kñ¦W.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
   
7.     '   With Workbooks(Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Range("D3").Value)        '    §ï³o¸Ì...
   
8.     With Wb
   
9.          .
   
10.          .
    
11.     End With
    
12.          .

½Æ»s¥N½X

GBKEE ¤j¤j¡A¶¶«K½Ð±Ð¡A¦pªG "Picture 1"¡B"Picture 2" §Ú¬O¦b¸Ó¥Ø¿ý¤U¦s¦¨¨â­Ó .JPG ©Î¬O .BMP ÀÉ¡A
¨º¤S¸Ó¦p¦ó¥s¶i¨Ó©O¡H ÁÂÁ±z¡I

c_c_lai

¦^´_ 11# GBKEE
§Ú§âµ{¦¡½X¥[¤J´ú¸Õ OK ¤F¡A ÁÂÁ±zªº«ü¾É¡I

1. Sub copySigned2()    ' GBKEE
   
2.     Dim Rng(1 To 3) As Range, xi As Integer, Wb As Workbook
   
3.    
   
4.     Set Wb = Workbooks.Open(ThisWorkbook.Path & "\" & Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Range("D3").Value)
   
5.    
   
6.     '  Workbooks("¶Kñ¦W.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
   
7.     With Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Pictures.Insert(ThisWorkbook.Path & "\" & "02.GIF")
   
8.         .Height = 150
   
9.         .Width = 150
   
10.         .Cut
    
11.     End With
    
12.     '  With Workbooks(Workbooks("¶Kñ¦W.xlsm").Worksheets("EX").Range("D3").Value)  '  §ï³o¸Ì...
    
13.     With Wb
    
14.         Set Rng(1) = .Sheets("PKG").[r:r].Find("B. C. MART COMPANY LTD.", LOOKAT:=xlPart).Offset(2, -2)
    
15.         Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, -2)
    
16.         Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(1, 1)
    
17.         For xi = 1 To 3
    
18.             Rng(xi).Parent.Activate
    
19.             Rng(xi).Activate
    
20.             ActiveSheet.PasteSpecial
    
21.         Next
    
22.     End With
    
23. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_  c_c_lai


Hi,

§ÚµLªk²z¸Ñ
        .Height = 150
        .Width = 150
        .Cut

...
PJChen µoªí©ó 2012-11-5 20:49

³]©w°ª«×¡B¼e«×¡B¨Ã±N¦¹·s¥[¤J¹Ï¤ù¤©¥H°Å¤U (Cut)  («ü 02.gif) ¡A
¨Ñ±µ¤U¨Ó¤§¤U¹F¶K¤W°Ê§@ (PasteSpecial)¡C