[µo°Ý] ½Ð°Ý¦p¦ó±N¥¨¶°!§ï¦¨¥i¥H¦bÁô±`¤u§@ªí¤¤°µ¶ë¿ï??

´Ñ»y³¾»ï

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. '
   
5. 
   
6. '
   
7. Sheets("Sheet1").Select
   
8. Range("B2:Q50").Select
   
9.     Selection.AutoFilter
   
10.     Range("Q2").Select
    
11.     ActiveSheet.Range("$B$2:$Q$50").AutoFilter Field:=16, Criteria1:=RGB(112, _
    
12.         48, 160), Operator:=xlFilterCellColor
    
13.     Range("C3:F32").Select
    
14.     Selection.Copy
    
15.     Sheets("Sheet4").Select
    
16.     Range("A10").Select
    
17.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
18.         :=False, Transpose:=False
    
19.     Sheets("Sheet1").Select
    
20.     Application.CutCopyMode = False
    
21.     Selection.AutoFilter
    
22.     Range("B2").Select
    
23.     Sheets("Sheet4").Select
    
24.     Range("A9").Select
    
25. End Sub

½Æ»s¥N½X

¦¹¥¨¶°¬°Sheet1¦b¨S¦³Áô±`¤u§@ªí®É¿ý»sªº¡A¦ý¬OÁôÂäu§@ªí«á«o¤£¯à¨Ï¥Î!½Ð°Ý­n¦p¦ó­×§ï¦¨¥i¥H¦bSheet1ÁôÂîɨϥÎ?? TEST.rar (15.39 KB)

¤U¸ü¦¸¼Æ: 3

2011-6-2 21:42