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

[µo°Ý] ¦p¦ó§Q¥ÎSheet1ªºQÄæÃC¦â·í¼Ð·Ç¡A½Æ»s·í¦C¤§C:Eªº­È¦ÜSheet2

[µo°Ý] ¦p¦ó§Q¥ÎSheet1ªºQÄæÃC¦â·í¼Ð·Ç¡A½Æ»s·í¦C¤§C:Eªº­È¦ÜSheet2

½Ð°Ý¦p¦ó½Æ»s·íSheet1¤¤ªºQÄ欰µµ¦â®É¡A±N¨ä·í¦C£xcÄæ¨ìEÄ檺­È½Æ»s¦ÜSheet2ªºA13:C13¡A²Ä¤G­Óªº­È¶K¦ÜA14:C14¥H¦¹Ãþ±À¡A±N·í¦CQÄ榳µµ¦â³¡¤À£xC:E¶K§¹¡A°Ñ¦ÒÀɮצbªþ¥ó¡A½Ð°Ý¦¹Ãþªº¥¨¶°¸Ó¦p¦ó¼g?? TEST.rar (12.06 KB)

¦^´_ 2# mark15jill


    ¸ÕÅçµ²ªG¥i¥H!½Ð°Ý§Ú­n¦p¦ó±N¦¹¥¨¶°§ï¬°!¤@¶}±ÒSheet2´N¦Û°Ê°õ¦æ!
¦L¶H¤¤¦n¹³¬O§â¶}ÀY§ï¦¨³o­Ó§Y¥i==>Private Sub Worksheet_Activate()
¦ý¬O¤£ª¾¹D¬°¤°»ò·|¥X²{¿ù»~??
ÁÙ¬O§Ú¥´¿ù¤F??

TOP

¦^´_ 5# Hsieh
½Ð°Ý²Ä¤G¦æA:C¬O¤°»ò·N«ä??
¦pªG§Ú¤£­n½Æ»s¨ì²Ä¤G¦CªºA   B  C
·Qª½±µ±qC3¶}©l½Æ»s¡A­n¦p¦ó­×§ï(·N«ä´N¬O¤£­n½Æ»sC2:E2)???

TOP

¦^´_ 8# Hsieh
A12:C1048576,1048576¤£ª¾¬O¤£¬O¤Ó¦h¡A·|¥X²{¿ù»~!§Ú±N¥¦§ï¦¨C100¤§«á§Y¥i¥Î
¦ý¬O:    .Range("$B$2").CurrentRegion.AutoFilter Field:=16, Criteria1:=RGB(112, _
        48, 160), Operator:=xlFilterCellColor '¿z¿ïÃC¦â<==³o¥y¤£ª¾­þ¸Ì¥X¤F°ÝÃD!¤@ª½¥X²{°»¿ù(§ï¤£¦n)??

TOP

¦^´_ 10# Hsieh


    §Ú¬O2007ª©ªº!¤£¹L1048576´N¬O¤£¯à??¤£ª¾¬O§Ú¤£¬O§Ú¬O¥Î¤G¶i¦ì¬¡­¶Ã¯ªºÃö«Y!
½Ð°Ý¤@¤U¬°¤°»ò§Ú±N³o¥yªº.Range(.[C3], .[C1048576].End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeVisible).Copy [A13]
Range(.[C3], .[C1048576]§ï¦¨Range(.[C3], .[C47]
¬°¤°»ò¤£¯à¨ì¹w´Áªº®ÄªG¡A¥L¥u½Æ»sC2:E2¦Ó¤w¡A¦ý¬O±NC47§ï¦¨C100«o¯à¨Ï¥Î??¦]¬°¦bÀɮפ¤C48¦³¤å¦r±Ô­z¡A©Ò¥H¦pªG¥ÎC100·|±N¤å¦r§R±¼!¡A©Ò¥H¯à§_²²¤¿z¿ïªº½d³ò??

TOP

¦^´_ 12# Hsieh

¦¹¥y¦n¹³¤]¬O·|¥X²{¿ù»~!
§Ú§ï¤F­Ó¤è¦¡¨Ï¥Î!¤£¹L:§Ú¦pªG±N¥¦§ï¦¨¶}±Òsheet®É¥ß§Y°õ¦æ¡A¾ã­Óexcel´N·|·í±¼!¦pªG¥Î¦¨«ö¶s´N¤£·|!¬O¦]¬°¸Ì­±¦³SelectªºÃö«Y¶Ü?
  1. Sub ´ú¸Õ()
  2. '
  3. ' ´ú¸Õ Macro
  4. '

  5. '
  6.     Application.ScreenUpdating = False
  7.     Sheets("¿z¿ï±M°Ï").Visible = xlSheetVisible
  8.     Range("A14:G47").ClearContents
  9.     Sheets("¿z¿ï±M°Ï").Select
  10.     Range("A13:H60").AutoFilter
  11.     ActiveSheet.Range("$A$13:$H$60").AutoFilter Field:=8, Criteria1:=RGB(112, _
  12.         48, 160), Operator:=xlFilterCellColor
  13.     Range("A14:G29").Copy
  14.     Sheets("Á`Äý").Range("A14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  15.         :=False, Transpose:=False
  16.     Sheets("¿z¿ï±M°Ï").Select
  17.     Selection.AutoFilter
  18.     Range("G12").Select
  19.     Sheets("Á`Äý").Select
  20.     Sheets("¿z¿ï±M°Ï").Visible = xlSheetVeryHidden
  21.     Application.ScreenUpdating = True
  22. End Sub
½Æ»s¥N½X
½Ð°Ý§Ú¦pªG­n±N¦¹¥¨¶°§ï¦¨¡A¶}±Ò"Á`Äý"¤u§@ªí®É!¥ß§Y°õ¦æ¡A½Ð°Ý­n¦p¦ó§ï??

TOP

¦^´_ 13# Hsieh


    Hsieh ªO¤j:§Úª¾¹D§Ú¤§©Ò¥H¿ù»~¦b­þ¤F!À³¸Ó¬O§Úªº¶ë¿ï¨Ó·½¬O³s±µªº®æ¦¡!¦]¬°§Ú¥Îª½±µ¿é¤Jªº¤è¦¡¥i¥H!¦ý¬O§Q¥Î³sµ²§Oªº¼Æ¾ÚÀɮתº!¦b½Æ»s®É·|¥X²{¿ù»~!½Ð°Ý³o¼Ë­n¦p¦ó§ï?? TEST-ÀÉ®×.rar (19.22 KB)
Àɮפ¤Sheet1¬°Sheet2ªº³s±µ!sheet4¤]¬O­n¿z¿ïsheet1ªºÀÉ®×!¦pªGSheet1ªº¨Ó·½¬°¤â°ÊÁä¤Jªº¸Ü!¥¨¶°¤£·|¦³°ÝÃD!¦ý¬OSheet1ªº¨Ó·½¬°³sµ²ªº¸Ü!´N·|¥X²{¿ù»~??½Ð°Ý³o¼Ë­n¦p¦ó§ï¥¨¶°!¥i¥H¨Ï¥L¦bsheet1¬°³sµ²®É¥i¥H¥¿±`¨Ï¥Î??

TOP

¦^´_ 15# Hsieh


    ¤£¦n·N«ä~¤£ª¾¹D­þ¸Ì¥X¤F°ÝÃD!¥u­n·ísheet1¼Æ­È¤Ö©ó¤£ª¾´X¦æ®É!sheet4´NµLªkÅã¬O¥¿½T­È¡A¦ý¬O¦pªG¦h¦æ®É¥i¥H¥¿±`¨Ï¥Î! TEST-ÀÉ®×.rar (15.42 KB)

TOP

¦^´_ 17# Hsieh


    ¦]¬°­n¿z¿ïªºÀɮ׬O³s±µ­Ó¤£¦Pªº¦a¤è¨Óªº~¤½¦¡¤@¼Ë!«á¨Ó¥Î¤F¥t¤@ªº¤è¦¡¸Ñ¨M¤F!©ósheet1QÄæ¤U¤è¼W¥[´X­Óµµ¦âÀx¦s®æ¼Æ¾ÚÄ欰ªÅ¥Õ!³o¼Ë¼Æ¾Ú¨Ó·½·|¦h¤F¦n´X¦æ!½Æ»s®É¡A¦]¬°¤U­±¬OªÅ¥Õ!©Ò¥H´Nºâ½Æ»s¨ì¤F¤]¨S®t!

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD