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

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

.[C1048576]¬O­n¨ú±oCÄæ³Ì©³¤UªºÀx¦s®æ¡A¨º´N§ï³o¼Ë§a
.Range(.[C3], .Cells(.Rows.count,3).End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeVisible).Copy
¾Ç®üµL²P_¤£®¢¤U°Ý

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

¦^´_ 12# ´Ñ»y³¾»ï [/

    TEST-ÀÉ®×.rar (12.8 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

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

¦^´_ 14# ´Ñ»y³¾»ï
  1. Private Sub Worksheet_Activate()
  2. Range([A14], [G14].End(xlDown)) = ""
  3.    With Sheets("sheet1")
  4.    If .AutoFilterMode = False Then .Columns("B:Q").AutoFilter
  5.     .Range("$B$2").CurrentRegion.AutoFilter Field:=16, Criteria1:=RGB(112, _
  6.         48, 160), Operator:=xlFilterCellColor
  7.    .Range(.[C3], .Cells(.Rows.Count, 7).End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeFormulas).SpecialCells(xlCellTypeVisible).Copy [A14]
  8.    .Columns("B:Q").AutoFilter
  9.    End With
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

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

¦^´_ 16# ´Ñ»y³¾»ï


   §A¬Ý½Æ»s¹L¥hªº¤½¦¡¤@¤£¤@¼Ë?
¤£¬O»¡¹L³Ì¦n¨Ì·Ó±ø¥ó¤Æ®æ¦¡ªº±ø¥ó¥h°µ§PÂ_¤ñ¸û¦n¶Ü?
¦Ó¥B¬°¦ó¤£ª½±µ¥ÎSHEET2ªº­ì¨Ó¼Æ­È¨Ó°µ¨Ó·½¡AÁÙ­n¦h¤@­ÓSHEET1¨Ó¥Î¤½¦¡¹L´ç©O?
¦Û§ä³Â·Ð½}¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

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 : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD