[µ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

kimbal

²³æªº¸Ü,¥i¥H§âSHEET1¦b¤u§@«eÅã¥Ü¥X¨Ó
sheets("SHEET1").Visible = xlSheetVisible
µM«á¦b§¹¦¨®É¦¬°_
sheets("SHEET1").Visible = xlSheethidden

ÁÙ¦³³o¤@¹ï,¥i¥H¤£µ¹¥Î¤á¬Ý¤¤¶¡¹Lµ{(±q¦Ó¹B¦æ³t«×¤]¥i´£ª@)
application.screenupdating = false
application.screenupdating = true

Hsieh

¦^´_ 1# ´Ñ»y³¾»ï
¥ÎWith±Ô­z

    http://forum.twbts.com/thread-3727-1-1.html

mark15jill

¦^´_ 2# kimbal


ª©¤j ¤£¦n·N«ä ´¡­Ó¥DÃD

application.screenupdating = false
application.screenupdating = true
³o­Óªº¥Îªk©M®É¾÷¬O???
¦³¬Ý¤F»¡©ú ¦ý¬O¤£¤Ó¤F¸Ñ

Hsieh

¦^´_ 4# mark15jill
³o¬O¿Ã¹õ§ó·sªº»yªk
Application.ScreenUpdating = False´N¬OÃö³¬¿Ã¹õ§ó·s¥\¯à¡A¤]´N¬O¤£·|±N©Ò¦³¸ê®Æªº§ïÅܥߧYÅã¥Ü
¥²¶·µ¥¨ìµ{§Çµ²§ô¡A¤~·|ª½±µÅã¥Üµ²ªG

mark15jill

¦^´_ 5# Hsieh


    ª©¤j ¨º±zªº·N«ä¬O»¡ ³o­Ó«ü¥O ¤£·|ÀHµÛµ{¦¡¶]¦Óµe­±¸òµÛ°Ê ­nµ¥¨ìµ{¦¡§¹ ¤~·|§ó·s¶Ü???
¨º ­n©ñ¦b­þÃä©O??
¤£¦n·N«ä ¨S±µÄ²¹L³o­Ó«ü¥O
¤£µM§Ú¤W¤dµ§ªº¸ê®Æ§ó·s ¿Ã¹õ³£¤@ª½°{ «Ü¶Ë²´·ú+¿Ã¹õ

Hsieh

µ{¦¡¶}©l¥ýÃö¿Ã¹õ§ó·s¡Aµ²§ô«e¦A¶}±Ò§ó·s
Sub ex()
Application.ScreenUpdating=False
.
.
.
Application.ScreenUpdating=True
End Sub