¨Ì«ü©wÄæ¦ì¤¤ªº¸ê®Æ¦Û°Ê§P©w¿é¤J¹ïÀ³ªºÀɮ׸ê®Æ¤¤???

p6703

¤p§Ì©ó¤u§@·|¦³¤@­q³æ©ú²Ó¤u§@ªí¡A§Æ±æ¥i¨Ì­p¹º­û¡A¤À§O±N¨ä¸ê®Æ½Æ»s¦ÜA,B,C¤TÀɮפ¤¡]1202-->AÀÉ¡A1205-->BÀÉ¡A1206-->CÀÉ¡^¡AA~CÀɮפ¤­ì§Y¤w¦³­q³æ¸ê®Æ¡A·s¼Wªº­q³æ¸ê®Æ»Ý·s¼W¥[¤J¡]¨Ò¡G­ìAÀɮפ¤¤w¦³100¦C¡A·s¥[¤Jªº­q³æ¸ê®Æ»Ý¦Û°Ê§P©w±q101¦C¦Û°Ê¿é¤J¡^

¦ý«D¾ã¦C½Æ»s¡A¶È¦³³¡¥÷Äæ¦ì¸ê®Æ»Ý·s¼W¦Ü·s³øªí¡]¦p¤U¡A·s³øªí¤¤ªºC,G,JÄæ¦ì¬°¦Û¦æ¿é¤J¡ABÄæ¦ì¨Ì¨Ó·½¸ê®Æ¬°IS©ÎOS§Y¦Û°Ê¶ñ¤J2¡A§_«h¤@«ß¬°ªÅ¥Õ¡^

¦p¦ó¥H¥¨¶°§Ö³t¹F¦¨¦¹¤@¥Ø¼Ð¡A½Ð¦U¥ý±Ð«ü±Ð¡A¤p§Ì¦b¦¹¥ý«ôÁ¤F:lol :lol

¨Ó·½¸ê®ÆÄæ¦ì                                                                               
C                        F        J        B                D        E                H
·s³øªíÄæ¦ì                                                                               
A        B        C        D        E        F        G        H        I        J        K

¸ê®Æ.rar (7.72 KB)

¤U¸ü¦¸¼Æ: 26

2012-7-11 09:13

p6703

¤p§Ì±N«D­ì³]©w3­p¹º­ûªº¸ê®Æ§R°£¡A¦¹¥¨¶°°õ¦æ¤W´N¨S°ÝÃD¤F¡A¦A¦¸·PÁÂHsiehª©¥D

p6703

Hsiehª©¥D¡A¤p§Ì°õ¦æ¤Wµo²{¦³°ÝÃD¡G

¦]¹w³]±N1202-->AÀÉ¡A1205-->BÀÉ¡A1206-->CÀÉ¡A¦ý¨ä¹êÁÙ¦³¨ä¥Lªº¥N½X¡]¨Ò¡G1101¡A¦ý¦¹¼È¤£»Ý®»¤J­q³æ¸ê®Æ¡^¡Aµ²ªG°õ¦æ¥¨¶°®É´N©ó¦¹µ{¦¡½X¤¤°±¦í¡A¨q¥X¿ù»~°T®§¡A½Ð°Ý¬O§_¦³¸Ñªk¤èªk¡AÁÂÁÂ??

If IsError(Application.Match(bs, Ws, 0)) Then Workbooks.Open ThisWorkbook.Path & "\" & bs: ReDim Preserve Ws(s): Ws(s) = bs: s = s + 1

p6703

ÁÂÁÂHsiehª©¥D¡A¤p§Ì±NÄæ¼Æ¥Ñ­ì11§ï23´N³£¥i±N­ì¤½¦¡©µ¦ù®M¥Î¤F¡A¥¨¶°¯uªº¤Ó¤è«K¡A·PÁÂHsiehª©¥Dªº±Ð¾É¡AÁÂÁÂ^^

p6703

Hsiehª©¥DB.Resize(, 11).Value = ar³o¸Ì¬O«üÁ`Äæ¼Æ¶Ü??¦]¬°­ì¸ê®Æ¦³¨Ç¬O¤â°Ê¿é¤Jªº¡A¦³¨Ç¬O§Æ±æÂǵۥ¨¶°¦Û°Ê¿é¤J¡A¦³¨Ç«h¬O¥Î¤½¦¡®M¨úªº¡A¦pªG³o¸Ì¬O«üÁ`Äæ¦ì¼Æ¡A¦]Àɮשñ¦b¤½¥q¡A©ú¤Ñ¸Õ¬Ý¬Ý^^..ÁÂÁ§A

Hsieh

¦^´_ 12# p6703
À³¸Ó¬O¼g¤JªºÄæ¼Æ¤£°÷§a
B.Resize(, 11).Value = ar
­×§ï¬õ¦rªºÄæ¦ì¼Æ¶q¸Õ¸Õ
¦A¤£¦æ½Ð§âÀɮפW¶Ç

p6703

·PÁÂHsieh ª©¥D¡A¦]¤p§Ì­ì­q³æ¸ê®Æ¤¤°£¤FG¤ÎJÄæ¦ì¦³¤½¦¡¥~¡A©|¦³¤½¦¡ªºÄæ¦ìÁÙ¦³N,P,R,S,WÄæ¦ì¡]Äæ¦ì¶¶§Ç¼Æ¬°14,16,18,19,23¡^¡A¤p§Ì¨Ì¼Ëµe¸¬Äª³]©w¤½¦¡¦p¤U¡A«oµLªk©µ¦ù®M¨ú¤½¦¡¡A½Ð°Ý¨º¸Ì¦³¿ù©O????
Ar = Array(A.Offset(, -10).Value, IIf(A.Offset(, -12) = "IS" Or A.Offset(, -12) = "IN", 2, ""), Date, A.Offset(, -7).Value, A.Offset(, -3).Value, A.Offset(, -11).Value, B.Offset(-1, 6).FormulaR1C1, A.Offset(, -9).Value, A.Offset(, -8).Value, B.Offset(-1, 9).FormulaR1C1, A.Offset(, -5).Value, , , B.Offset(-1, 13).FormulaR1C1, , B.Offset(-1, 15).FormulaR1C1, , B.Offset(-1, 17).FormulaR1C1, B.Offset(-1, 18).FormulaR1C1, , , , B.Offset(-1, 22).FormulaR1C1)

Hsieh

¦^´_ 10# p6703


    ar = Array(A.Offset(, -10).Value, IIf(A.Offset(, -12) = "IS" Or A.Offset(, -12) = "IN", 2, ""), Date, A.Offset(, -7).Value, A.Offset(, -3).Value, A.Offset(, -11).Value, B.Offset(-1, 6).FormulaR1C1, A.Offset(, -9).Value, A.Offset(, -8).Value, B.Offset(-1, 9).FormulaR1C1, A.Offset(, -5).Value)

p6703

·PÁÂHsieh ª©¥D¡A¤p§Ì¦³¤@°ÝÃD¦A½Ð°Ý¡A¦pªG©óA~C³øªí­ì©T©wÄæ¦ì§Y¦³¤½¦¡¡A¦p¦ó¦b±N·s¸ê®ÆCOPY¨ì³øªí®É¡A±N¦UÄæ¦ìªº¤½¦¡ª½±µ©µ¦ù®M¥Î????

­q³æ³øªí¤¤¦³¤½¦¡ªºÄæ¦ì¡GG¡BJ¡BN¡BP¡BR¡BS¡BW

ªþ¥ó¤¤ªºAÀɮצ³¹w³]¤½¦¡...

¸ê®Æ.rar (24.63 KB)

¤U¸ü¦¸¼Æ: 8

2012-9-26 08:45

Hsieh

¦^´_ 8# p6703

1. Sub Ex()
   
2. Dim Ws(), A As Range, B As Range, s%, bs$, w As Window
   
3. For Each w In Windows
   
4. ReDim Preserve Ws(s)
   
5. Ws(s) = w.Caption
   
6. s = s + 1
   
7. Next
   
8. With ThisWorkbook.Sheets(1)
   
9.    For Each A In .Range(.[M2], .[M2].End(xlDown))
   
10.      bs = IIf(A = 1202, "A.xls", IIf(A = 1205, "B.xls", IIf(A = 1206, "C.xls", "")))
    
11.      If IsError(Application.Match(bs, Ws, 0)) Then Workbooks.Open ThisWorkbook.Path & "\" & bs: ReDim Preserve Ws(s): Ws(s) = bs: s = s + 1
    
12.      With Workbooks(bs)
    
13.      Set B = .Sheets(1).[A65536].End(xlUp).Offset(1)
    
14.      ar = Array(A.Offset(, -10).Value, IIf(A.Offset(, -12) = "IS" Or A.Offset(, -12) = "IN", 2, ""), Date, A.Offset(, -7).Value, A.Offset(, -3).Value, A.Offset(, -11).Value, B.Offset(, 6).FormulaLocal, A.Offset(, -9).Value, A.Offset(, -8).Value, B.Offset(, 9).FormulaLocal, A.Offset(, -5).Value)
    
15.      B.Resize(, 11).Value = ar
    
16.      End With
    
17.    Next
    
18. End With
    
19. End Sub

½Æ»s¥N½X