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§Ì­ì­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

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

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

p6703

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

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

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