ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¥i¥H½Ð°ÝHsieh¤j¤j¶Ü

¥i¥H½Ð°ÝHsieh¤j¤j¶Ü

¥X³B

§A©Ò¦^´_ªº¤½¦¡¬O°}¦C¤½¦¡

¥i¥H³Â·Ð¬Ý¬Ý§Úªºªþ¥ó¸Ì

§Úªºªþ¥ó¸ê®Æ

¥i¥H¥Î¤@¯ë¤½¦¡½s¼g¶Ü

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-16 22:53 ½s¿è

¦^´_ 1# gn00487767

«Øij¨Ï¥Î¶i¶¥¿z¿ï
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ gn00487767 ©ó 2010-12-17 07:56 ½s¿è

¦^´_ 2# Hsieh

ÁÂÁ¤j¤jªº¦^ÂÐ

¦ý¬O¶i¶¥¿z¿ï§ÚµLªk¦b¥t¤@­Ó¤u§@ªíÅã¥Ü
§Ú¦³¬Ý¨ì±z¦^ÂЧO¤Hªº°ÝÃD
¦p¤U
³o¸Ì

¦]¬°¤p§ÌÁÙµLªk¤U¸ü
leiru¤j¤jªº¸ê®Æ°µ°Ñ¦Ò
§Ú¦³·Ó§Aªº¤èªk¸Õ
µ²ªGexcelÅã¥Ü
¥u¯à¦b§@¥Î¤u§@ªí¤W½Æ»s¿z¿ï½d³ò
¬O§Úªº¤èªk¿ù»~¶Ü
ÁÙ¬O§Ú¥u¯à¦b¸Ó¤u§@ªí¿z¿ï«á¦A§â¸ê®Æ½Æ»s¨ì¥t¤@­Ó¤u§@ªí©O

TOP

¥»©«³Ì«á¥Ñ gn00487767 ©ó 2010-12-17 11:52 ½s¿è

¦^´_ 2# Hsieh

·PÁÂHsieh ¤j¤j¤£¹½¨ä·Ðªº¬°§Ú¸Ñµª
¤p§Ì¸³¤F

¥t¥~¥i§_¦A½Ð±Ð¤@­Ó°ÝÃD
¥X³B
§Úªº°ÝÃD¸òyang3814¤j¤jªº°ÝÃD¤j¦P¤p²§
§Úªº°ÝÃD¬O­n¦Lªí®æ §Ú¥u¯à°÷°µ¨ì ¥u­n¦bªí®æ¤º¿é¤J½s¸¹ ¨ä¾l¸ê®Æ ·|¦Û¤v¶]¨ìªí®æ¤º
§Ú¤]¤@¼Ë­n°µ¤@­Ó«ö¶s ´N¥i¥H§â ©Ò¦³¦³½s¸¹ªº¸ê®Æ³q³q¦L¥X¨Ó
¸Ó¦p¦ó³]¤@«ö¶s´N¥i¥H°õ¦æªºµ{¦¡½X
§Úªºªþ¥ó

¸É¥R¤@ÂI §Úªº¸ê®Æ¬O³°Äò¼W¥[ ©Ò¥H­n¦C¦LªºªF¦è¤]¤@¼Ë

·Ð½Ð Hsieh ¤j¤jÀ°À°¤p§Ì

TOP

¦^´_ 4# gn00487767
  1. Sub Ex()
  2. Dim A As Range
  3. With Sheets("¸ê®Æªí")
  4. For Each A In .Range(.[A2], .[A2].End(xlDown))
  5.    With Sheets("ªí®æ")
  6.      .[E1] = A
  7.      .[C3] = A.Offset(, 1)
  8.      .[G3] = A.Offset(, 2)
  9.      .[C5] = A.Offset(, 3)
  10.      .[G5] = A.Offset(, 4)
  11.      .[C7] = A.Offset(, 5)
  12.      .[C9] = A.Offset(, 6)
  13.      .PrintOut '¦C¦L
  14.     End With
  15. Next
  16. End With
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh

¦A¦¸·PÁÂHsieh¤j¤j ¤p§Ì¦A¦Û¦æ¬ã¨s¬ã¨s ¦³°ÝÃD¦A¸ò±z°Q±Ð

TOP

¥»©«³Ì«á¥Ñ gn00487767 ©ó 2010-12-20 10:27 ½s¿è

¦^´_ 5# Hsieh

Hsieh¤j¤j ©êºp
¤p§Ìª½±µ½Æ»s¥N½X
»s§@¥X¨Óªº«öÁä ¥i¬O°õ¦æ¤U¥h³£¨S°Ê§@©O
¥i¥HÀ°¤p§Ì¬d¸ß¬Ý¬Ý¶Ü
©Î¬O¥i¥H½Ð±z°µ¤@­Ó¥i¥H¨Ï¥ÎªºEXCELÀÉ®×Åý§Ú°µ°Ñ¦Ò
¤p§Ìªº«H½c
[email protected]
³Â·Ð±z¤F

TOP

¦^´_ 5# Hsieh


·PÁÂHsieh¤j¤j
±z±Hµ¹§Úªº½d¨Ò§Ú¦¬¨ì¤F
´ú¸Õ¹L ¥i¥H¥¿±`¨Ï¥Î¤F
­ì¨Ó¬O§Úª½±µ½Æ»s¥N½X«áª½±µ¶K¤W
¸ò±z±Hµ¹§Úªº½d¨Ò¸Ì
²Ä¤@¦æ¥N½X¤£¤@¼Ëªº°ÝÃD
©Ò¥HµLªk¥¿±`¨Ï¥Î

TOP

¥»©«³Ì«á¥Ñ gn00487767 ©ó 2010-12-26 06:06 ½s¿è

¦^´_ 2# Hsieh


Hsieh¤j¤j©êºp
¤p§Ì¤S­n³Â·Ð±z¤F
§Úªº°ÝÃD¦³2­Ó
²Ä¤@­Ó°ÝÃD¦bªþ¥ó¸Ì
§Úªºªþ¥ó
²Ä¤G­Ó°ÝÃD ´N¬O±z¤§«e¦^ÂЧڪº¦C¦Lªí®æªº°ÝÃD
01.Sub Ex()
02.Dim A As Range
03.With Sheets("¸ê®Æªí")
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
05.   With Sheets("ªí®æ")
06.     .[E1] = A
07.     .[C3] = A.Offset(, 1)
08.     .[G3] = A.Offset(, 2)
09.     .[C5] = A.Offset(, 3)
10.     .[G5] = A.Offset(, 4)
11.     .[C7] = A.Offset(, 5)
12.     .[C9] = A.Offset(, 6)
13.     .PrintOut '¦C¦L
14.    End With
15.Next
16.End With
17.End Sub


¨ä¤¤
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
¬õ¦âªºA ¬O¤°»ò·N«ä ©Î¬O«ç»ò¨Óªº§r
¦]¬°§Úª½±µ¥Î§Aµ¹§Úªþ¥ó´ú¸Õ¥i¥Hª½±µ¦C¦L
¦ý¬O§Ú¦Û¤v°µ¤@­Ó·sªº¤u§@ªí ½Æ»s±zªºµ{¦¡½X ¦ý¬O¤£¯à¥Î©O
¨ä¥Lªº§Ú³£§Ë²M·¡¥Nªí¤°»ò·N«ä©Î¬O¸Ó«ç»ò¨Ï¥Î(­×§ï)
´N¥u¦³¨ä¤¤ªºA§ÚµLªk²z¸Ñ
§Ú¤]±q±zµ¹§Úªºªþ¥ó¤¤§âA§@­×§ï ÁÙ¬O¥i¥H¨Ï¥Î
´N§Ú¦Û¤v°µ¥X¨Óªº¤u§@ªí¤¤ªºAµLªk¿ë§O
ÁÙ¬O»¡§Ú°µªº¬O¦]¬°§Ú§â±zªº¸ê®Æ¤¤[A2] ¨ì[A2] ªºÀx¦s®æ°Ñ·Ó©ñ¦bCÄæ¦ìªºÀx¦s®æ¨Ã¥BÁÙ¦³¦X¨ÖÀx¦s®æªºÃö¦è©O

¹ï¤F ¥L¶Çµ¹§Ú¿ù»~°T®§ §Ñ¤F¬O450ÁÙ¬O405
¥i¥HÀ°À°¤p§Ì¶Ü

¦A¦¸³Â·Ð¤j¤j¤F

TOP

¦^´_ 3# gn00487767
"¦ý¬O¶i¶¥¿z¿ï§ÚµLªk¦b¥t¤@­Ó¤u§@ªíÅã¥Ü"   ¥i¥H¨Ï¥Î vba  
°Ñ·Ó§A¦b http://forum.twbts.com/viewthread.php?tid=2190&extra= ªºªþÀÉ
Sheets("¸ê®Æªí").Range("A1").CurrentRegion  ¸ê®Æ®w->¿W¦Û¤@­Ó¤u§@ªí
Sheets("ªí®æ").[K1:L2]                                   ¿z¿ï·Ç«h ->¿W¦Û¤@­Ó¤u§@ªí
Sheets("Sheet3").[A1]                                   ½Æ»s¦Cªº¥Ø¼Ð½d³ò ->¿W¦Û¤@­Ó¤u§@ªí
  1. Sub Ex()
  2.     Sheets("Sheet3").[A1].CurrentRegion = ""
  3.     Sheets("¸ê®Æªí").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("ªí®æ").[K1:L2], CopyToRange:=Sheets("Sheet3").[A1]
  4. End Sub
½Æ»s¥N½X

¿z¿ï·Ç«h (CriteriaRange) Sheets("ªí®æ").[K1:L2] ¦p¹Ï




For Each A In  .Range(.[A2], .[A2].End(xlDown)) ( ª«¥óªº¶°¦X )
A  ¬° ª«¥óªº¶°¦Xªº¤¸¯À
¦b¦¹¬°   ¨Ì§Ç [A2] ->[A3]->[A4]....

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD