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

[µo°Ý] ½Ð±Ð°ª¤â¦p¦óÁY´î¶]vbaªº®É¶¡

[µo°Ý] ½Ð±Ð°ª¤â¦p¦óÁY´î¶]vbaªº®É¶¡

¬°¤FÁYµu¤è®×ªº¤u§@®É¶¡¡A¤p©f¦Û¤v¬Ý®Ñ¾Ç°µvbaµ{¦¡¡A
³o­Óµ{¦¡¬O±NÁ`ªí¤¤ªº¸ê®Æ¤ÀÃþ¨ì¦Uªí¥h¡A
¤H¼Æ¤Öªº®É­Ô¶]±o§Ö¡A¦ý¥u­n¶W¹L300¤H¥H¤Wµ{¦¡´N­n¶]2-3¤ÀÄÁ¡A¬Æ¦Ü§ó¤[......¤W¥q¬OµLªkµ¥«Ý³o»ò¤[ªº®É¶¡¤~¬Ý¨ìµ²ªG¡C
¤p©f¤~¾Ç²Ê²L¡A·Q½Ð±Ðªº°ÝÃD¬°:
1. ¬O§_¦³¯à°÷ÁYµu¶]vbaµ{¦¡ªº®É¶¡? Åý¸ê®Æ§ó§Ö³tªº¤ÀÃþ§¹²¦?
2. µ{¦¡¦b¤ÀÃþªº®É­Ô¡A¤£·|°»´ú¦Uªí¤w¦³Â¸ê®Æ¡A¤Ï¦Óª½±µ±q¤U¤èªÅ¥Õ³B­«½Æ¶K¤W¡A³y¦¨¦Uªíªº¸ê®Æ¦³¦hµ§­«½Æ¡C
    ½Ð°Ý¬O§_¦³¿ìªk¦b¤ÀÃþ®É¡AÅý¦Uªí¦Û°Ê§PÂ_¸ê®Æ¬O§_¦³­«½Æ¦s¦b¡A¥u­n¦bªÅ¥Õ³B·s¼W·sªº´Xµ§¸ê®Æ§Y¥i?

¦b¦¹·PÁ¦U¦ì°ª¤â¡B¤j¤j¤£§[«ü±Ð¡A¸U¤À·PÁÂ~

´ú¸ÕÀÉ.rar (61.12 KB)

¥Î­ì¨Óªºµ{¦¡½X, 300¤H¤]¤£¶·ªá¦h¤[®É¶¡, ¦b¶}ÀY¥[¤J:
Application.ScreenUpdating = False
§Y¥i¥[§Ö~~

=======================================
¥ý¥Î[¿z¿ï]¤èªk¸Õ¸Õ:
µù¡Gµ{¦¡½X¨Ã¥¼¦Û°Ê²£¥Í¤u§@ªí, ­Y¦³¨ä¥¦¬ì¥Ø, ¶·¦Û¦æ¤â°Ê«Ø¥ß¬ì¥Ø¤u§@ªí,
¡@¡@¨Ã¦b Array("­^¤å¬ì", "¾ú¥v¬ì", "ª«²z¬ì") ¤¤¼W¥[¬ì¥Ø¦WºÙ

Sub ¦¨ÁZªí¤ÀÃþ()
Dim Sht As Worksheet
For Each Sht In Sheets(Array("­^¤å¬ì", "¾ú¥v¬ì", "ª«²z¬ì"))
    Intersect(Sht.[A:G], Sht.UsedRange).Offset(1, 0).ClearContents '²M°£¤º®e
    With Intersect(Sheets("¦¨ÁZªí").[A:F], Sheets("¦¨ÁZªí").UsedRange)
         .AutoFilter Field:=3, Criteria1:=Sht.Name '¥H¤u§@ªí¦WºÙ¿z¿ï
         .Columns(1).Offset(1, 0).Resize(, 6).Copy Sht.[A2] '½Æ»sA~EÄæ
         .Columns(6).Offset(1, 0).Copy Sht.[G2] '½Æ»s³ÆµùÄæ
    End With
Next
Sheets("¦¨ÁZªí").AutoFilterMode = False
End Sub

Sub ²MªÅ¥»ªí()
Intersect([A:G], ActiveSheet.UsedRange).Offset(1, 0).ClearContents
End Sub

Sub ²MªÅ¦U¤ÀÃþªí()
Dim Sht As Worksheet
For Each Sht In Sheets(Array("­^¤å¬ì", "¾ú¥v¬ì", "ª«²z¬ì"))
    Intersect(Sht.[A:G], Sht.UsedRange).Offset(1, 0).ClearContents
Next
End Sub


¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×

TOP

¦^´_ 2# ­ã´£³¡ªL

·PÁ¤j¤jªº±Ð¾É©M»yªk!!

¥Î¤FApplication.ScreenUpdating = Falseªº«ü¥O¥i¥H¥[§Öµ{¦¡¶]ªº³t«×¡A­ì¥»300¤H­n1-2¤ÀÄÁ¥ª¥k¡A¤wÁY´î¦Ü40¬í´N¶]§¹¤F¡C
¦ý¬O¥Î¤F¤j¤j´£¨Ñªº¡i¿z¿ï©MIntersect¡j»yªk¡A¤Ï¦Óµ{¦¡¤ÀÃþ©M³t«×§ó§Ö! µuµu3-4¬í´N¶]§¹¤F!!
­ì¨Ó®t§O¦b©ó®Ñ¤¤±Ðªº"°j°é"·|¾É­P¤ÀÃþ³t«×«ÜºC...

¥H«e¥Î¹L¿z¿ï¨Ó¤ÀÃþ¹L¸ê®Æ¡A·í®É¬O¥Î¤@­Ó¦Ò¬ì¡B¤@­Ó«ö¶s·f°t¤@­Ó¿z¿ï¤Î½Æ»s«ü¥O¡A¾É­Pvba¼Ò²ÕÅã±o¦³¨ÇÂø¶Ã¡C
¥»¥H¬°¥Î®Ñ¤¤©Ò±Ðªº¤ÀÃþ»yªk·|¤ñ¤@­Ó¤@­Ó¿z¿ï¨Ó±o¦n¡A¨S·Q¨ì¦^ÀY¨Ó¥Î¿z¿ï»yªk¤~¬O³Ì¾A¦Xªº¡C

¦A¦¸·PÁ¤j¤j¡A¤W¤FÄ_¶Qªº¤@½Ò!

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD