c_c_lai

¦^´_ 13# GBKEE
¦^´_ 14# guaga
À³¥Î .[D5].Text (±ÄÁʤé´Á)¡B  .[J5].Text (¨ì³f¤é´Á) ¤w¸gOK¡A
¦ý¬O "³Æµù" ¸ê®Æªº¶×¤JÁÙ¬OµLªk±a¤J¡A §ï¦¨ .Cells(i, "J").Text
µ²ªG¤@¼Ë¡A³Â·Ð±z¤F¡AÁÂÁ¡I

guaga

¦^´_ 12# c_c_lai


1. ±ÄÁʤé´Á¡B¨ì³f¤é´Á ©ó¶×¤J¦Ü "±ÄÁÊ°O¿ý"¡A¦p¦ó¯à¦P®É¶×¤J YYYYMMDD «¬ºA
§Ú¥uª¾¹D ¥i¥H¦b§A¿ï¨úªºÀx¦s®æ /¥kÁä/Àx¦s®æ®æ¦¡/¼Æ­È-¤é´Á
¿ï¾Ü§Y¥i

GBKEE

¦^´_ 12# c_c_lai

1. Option Base ³¯­z¦¡
   
2. ¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­¡C
   
3. »yªk
   
4. Option Base {0 | 1}
   
5. ½Ðª`·N
   
6. ­Y¹w³]ªº¤U­­­È¬° 0¡A«h Option Base ³¯­z¦¡¬O¤£»Ý­nªº¡C­Y»Ý­n¨Ï¥Î®É¡A¦¹³¯­z¦¡¥²¶·¥X²{¦b¼Ò²Õ¤¤¡A¨Ã¥B¦b¥ô¦óµ{§Ç¤§«e¡COption Base ¶È¯à¦b¼Ò²ÕùØ¥X²{¤@¦¸¡A¦Ó¥B¥²¶·¦b§t¦³ºû¼Æªº°}¦C«Å§i¤§«e¡C
   
7. ªþµù ¦b Dim¡BPrivate¡BPublic¡BReDim ©M Static ³¯­z¦¡¤¤¡ATo ¤l¥y´£¨Ñ¸û¨ã¼u©Êªº¤èªk¡A¨Ó±±¨î°}¦C¯Á¤Þªº½d³ò¡CµM¦Ó¡A¦pªG¤£¨Ï¥Î To ¤l¥y¨Ó©ú½Tªº³]©w¤U­­¡A«h¥i¥Î Option Base ¨Ó§ïÅܹw³]­Èªº¤U­­¬° 1¡CArray ¨ç¼Æ©Ò«Ø¥ßªº°}¦C¹w³]¤U­­¥²¬°¹s¡A¤£¨ü Option Base ©Ò¼vÅT¡C
   
8. Option Base ³¯­z¦¡¥u¼vÅT¥¦©Ò¦bªº¼Ò²Õùؤ§°}¦Cªº¤U­­¡C

½Æ»s¥N½X

1. Option Explicit
   
2. Sub test()
   
3.     Dim arr, i As Integer
   
4.     Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear
   
5.     With Sheets("±ÄÁʳæ")
   
6.         For i = 10 To .[B30].End(xlUp).Row
   
7.             arr = Array(.[B5], .[D5].Text, .[J5], .[B6] & .[c6], .Cells(i, "B"), .Cells(i, "D"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"))
   
8.             Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr) + 1) = arr
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 7# GBKEE
½Ð±Ð±z­n¦p¦ó³B²z (µ{¦¡ #7)¡A¦p¹Ï¡G

¤U¸ü (49.91 KB)

2013-11-8 08:02

1. ±ÄÁʤé´Á¡B¨ì³f¤é´Á ©ó¶×¤J¦Ü "±ÄÁÊ°O¿ý"¡A¦p¦ó¯à¦P®É¶×¤J YYYYMMDD «¬ºA¡F
2. B6:C6 ¨âÄæ ¬O §¹¾ãªº "¼t°Ó" ²Õ¦X¡A­n¦p¦P¦b¼t°ÓÄæ¶×¤J®É¡A±a¤J­È¯à¬° "A001 ­Û­¸" (¦p¹Ï)¡F
3. "³Æµù" (¦P®É¸ó¶V J¡BK¡BL ¤TÄæ) ¸ê®Æ¬°¦óµLªk¶×¤J©O¡H
¤£¦n·N«ä¥´Åͱz¡A¦b¦¹¥ý¦V±z»¡ÁnÁÂÁ¡C

GBKEE

¦^´_ 10# guaga
4#ªºÀɮ׶Ü?

¤U¸ü (58.93 KB)

2013-11-8 08:12

guaga

¦^´_ 9# GBKEE
ÁÂÁª©¥DÀ°§Ú¸Ñ¨M³o­Ó°ÝÃD
¥i¥H¶¶«K½Ð°Ý¤@¤U ¤@¶}©l§Ú¼gªº¨º­Óµ{¦¡ ¬°¬Æ»ò·|¦æ¤£³q¶Ü?

GBKEE

¦^´_ 8# guaga
³o¦æµ{¦¡½X¾n¸Ñ±¼

1. 'Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear

½Æ»s¥N½X

guaga

¦^´_ 7# GBKEE

ª©¥D§A¦n
³o¼Ë¨Ï¥Î¤W¨S¦³°ÝÃD
¥i¬O¿é¤J¤Uµ§¸ê®Æ®É¯à¤§«eªº¸ê®Æ´N·|¤£¨£ ¦³¸Ñ¶Ü

GBKEE

¦^´_ 6# guaga

1. Option Explicit
   
2. Sub test()
   
3.     Dim arr, i As Integer
   
4.     Sheets("±ÄÁÊ°O¿ý").UsedRange.Offset(1).Clear
   
5.     With Sheets("±ÄÁʳæ")
   
6.         For i = 10 To .[B30].End(xlUp).Row
   
7.             arr = Array(.[B5], .[D5], .[J5], .[B6], .Cells(i, "B"), .Cells(i, "D"), .Cells(i, "E"), .Cells(i, "F"), .Cells(i, "G"), .Cells(i, "H"), .Cells(i, "I"), .Cells(i, "J"))
   
8.             Sheets("±ÄÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

guaga

¦^´_ 2# Kubi

§Ú¤w¸g§Ë¦n¤F «D±`ÁÂÁ§A  ¬O§Ú¦Û¤v§âÄæ¦ì¶ñ¿ù©Ò¥HÅã¥Ü¤£¥X¨Ó
¤£¹L"«~¦W"ªº¦a¤è ¦³¸ê®Æ,«oÅã¥Ü¤£¥X¨Ó­C

Sub test()
    Dim arr
    Sheets("±ÄÁʳæ").Select
    arr = Array([D5], [J5], [B6], [C10], [D10], [E10], [F10], [G10], [H10], [I10], [J10])
    Sheets("±ÄÁÊ°O¿ý").Select
    Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub