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

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

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

¥»©«³Ì«á¥Ñ gn00487767 ©ó 2011-2-24 22:25 ½s¿è

Ãö©ó¤j¤j¤§«eµ¹¤p§Ìªº°Ñ¦Ò¸ê®Æ
¨ä¤¤ H13 ªºÀx¦s®æ ·|ÀHµÛ ½s¸¹Åܰʦۤv±a¥X¸ê®Æ
¤p§Ì­n§â H13 ªº¸ê®Æ ÀHµÛ§Aµ¹¤p§ÌªºVBA½XÅÜ°Ê
¦A½Æ»s¨ì ±a¥X¸ê®Æ ¤u§@ªíªºBÄæ (±qB2¨ì³Ì«á)
À³¸Ó«ç»ò­×§ï©O

¦]¬°¸Ì­±¥Îªº
Dim A As Range
With Sheets("¸ê®Æªí")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("ªí®æ")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '¹wÄý
     .PrintOut '¦C¦L
    End With
Next
End With
·|¦Û°Ê°õ¦æ¨ì³Ì«á
¤p§Ì­n¦b¦Û°Ê°õ¦æ¸Ì­±¦A¦h¤@±Æ¦Û°Ê°õ¦æ¨ì³Ì«á
¦ý­n¤Ï¹L¨ÓÅܦ¨¦P¤@­ÓÀx¦s®æ­n½Æ»s¨ì§OÄæ¨ì³Ì«á
Åܦ¨¨C¦L¤@±i´N§â¸Ì­±ªºH13½Æ»s ±a¥X¸ê®Æ ¤u§@ªíªºBÄæ (±qB2¨ì³Ì«á)
¤p§Ì¦Û¦æ­×§ï¥i¬Oµ²ªG³£¤£¬O¤p§Ì»Ý­nªº
·|¤@ª½­«½Æ

©Ò¥H­n¦A³Â·Ð¤j¤j¤F

¦Û°Ê¦C¦L½d¨Ò.rar (9.77 KB)

Dim A As Range
With Sheets("¸ê®Æªí")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("ªí®æ")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '¹wÄý
     .PrintOut '¦C¦L
sheets("±a¥X¸ê®Æ").[B65536].end(xlup).offset(,1)=.[H13].value
    End With
Next
End With
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ¤j¤j©êºp ¤p§Ì´ú¸Õ«á ¥L¥u¬O¦bC1ªº¦a¤è¤@­ÈÅã¥Ü¦Ó¤w
¨Ã¤£·|¦s¦bB2...B3...B4...¤@ª½¨ì没¸ê®Æ©O
¦A¦¸³Â·Ð¤j¤j¤F

TOP

½Ð°Ý¦³¤j¤j¥i¥HÀ°¦£¶Ü

¦p¤p§Ì¤§«eµo°Ýªº°ÝÃD
http://forum.twbts.com/thread-2703-1-1.html

­Y¤p§Ìªº»Ý¨DµLªk°µ¨ìªº¸Ü
¨º¥i§_´«­Ó¤è¦¡
§â±a¥X¨Óªº¸ê®Æ
¦A¤À§O¶Ç¦^­ì¥»¸ê®Æªíªº³Ì«á¤@Äæ

TOP

¦^´_ 3# gn00487767
µ§»~
sheets("±a¥X¸ê®Æ").[B65536].end(xlup).offset(1,0)=.[H13].value
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ·PÁÂ Hsieh ¤j¤j
¤p§Ì´ú¸Õ¹L«á ¯à°÷¥¿±`¨Ï¥Î ¤]´N¬O¤p§Ìªº»Ý¨D
¤p§ÌÁÙ¥H¬°¨S¿ìªk°µ¨ì³o¼Ë Åý¤p§Ì¤£ª¾©Ò±¹©O
¦A¦¸·PÁ Hsieh ¤j¤j ¬°¤p§Ì±Æ°£§xÃø

TOP

¦^´_ 6# gn00487767
µ{¦¡½Xµ¹§A¡A§Æ±æ§A¯à½T¹êÁA¸Ñµ{¦¡½X·N¸q
¬Û«H§Ú³o­Óµ§»~¡A¦pªG§A¦³½T¹êÁA¸Ñµ{¦¡½X¡A­n¦Û¦æ­×§ï¨Ã¤£¬O°ÝÃD
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh


    ³Â·Ð¤j¤j¤F
¦]¬°±z¤§«eµ¹¤p§Ìªºµ§»~ªºµ{¦¡½X
¤p²Ä¦³¥Î»¡©ú§ä´M·N«ä
¦]¬°¤p§Ì¯uªº¬O¬Ý¤£À´
©Ò¥H....
½Ð¤j¤j¥]§tÅo

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD