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

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

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

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-6-2 21:42 ½s¿è
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  5. '
  6. Sheets("Sheet1").Select
  7. Range("B2:Q50").Select
  8.     Selection.AutoFilter
  9.     Range("Q2").Select
  10.     ActiveSheet.Range("$B$2:$Q$50").AutoFilter Field:=16, Criteria1:=RGB(112, _
  11.         48, 160), Operator:=xlFilterCellColor
  12.     Range("C3:F32").Select
  13.     Selection.Copy
  14.     Sheets("Sheet4").Select
  15.     Range("A10").Select
  16.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  17.         :=False, Transpose:=False
  18.     Sheets("Sheet1").Select
  19.     Application.CutCopyMode = False
  20.     Selection.AutoFilter
  21.     Range("B2").Select
  22.     Sheets("Sheet4").Select
  23.     Range("A9").Select
  24. End Sub
½Æ»s¥N½X
¦¹¥¨¶°¬°Sheet1¦b¨S¦³Áô±`¤u§@ªí®É¿ý»sªº¡A¦ý¬OÁôÂäu§@ªí«á«o¤£¯à¨Ï¥Î!½Ð°Ý­n¦p¦ó­×§ï¦¨¥i¥H¦bSheet1ÁôÂîɨϥÎ?? TEST.rar (15.39 KB)

²³æªº¸Ü,¥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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

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

    http://forum.twbts.com/thread-3727-1-1.html
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# kimbal


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

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

TOP

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

TOP

¦^´_ 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 ¿Ã¹õ³£¤@ª½°{ «Ü¶Ë²´·ú+¿Ã¹õ

TOP

µ{¦¡¶}©l¥ýÃö¿Ã¹õ§ó·s¡Aµ²§ô«e¦A¶}±Ò§ó·s
Sub ex()
Application.ScreenUpdating=False
.
.
.
Application.ScreenUpdating=True
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD