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

[µo°Ý] ½Ð°Ý¦³¤°»ò¤èªk¥i¥H¦bexcel¤W¦Û°Ê§ó·s¥Ø«e©Ò¦³¤W¥«ÂdªÑ²¼¦¬½L»ù

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-4 13:28 ½s¿è

¦^´_ 4# liu5201
¦p¦bªþÀÉ©Ò¦³±Æ¦æÄæ¦ì¤¤«ü©w¿z¿ïªº±ø¥ó«á·|³y¥H«áªº[ ª÷¿ÄªÑ].[¹q¤lªÑ].[¥þ³¡¿ï¥Ü],µLªkÅã¥Ü
ªþÀɪºVBA ¶·­×§ï¦p¤U
  1. Sub ª÷¿ÄªÑ() '
  2. ' Macro3 Macro
  3. ' liujerkun ¦b 2011/1/20 ¿ý»sªº¥¨¶°'
  4.    
  5.    If ActiveSheet.FilterMode Then Selection.AutoFilter  '¨ú®ø¦Û°Ê¿z¿ï
  6.     Selection.AutoFilter Field:=1, Criteria1:=">2800", Operator:=xlAnd, _
  7.         Criteria2:="<2900"
  8.     Range("J2").Select
  9. End Sub
  10. Sub ¹q¤lªÑ() '
  11. ' Macro3 Macro
  12. ' liujerkun ¦b 2011/1/20 ¿ý»sªº¥¨¶°
  13. '
  14.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '¨ú®ø¦Û°Ê¿z¿ï
  15.     Selection.AutoFilter Field:=1, Criteria1:=">2300", Operator:=xlAnd, _
  16.         Criteria2:="<2500", VisibleDropDown:=False
  17.     Range("J1").Select
  18. End Sub
  19. Sub Åã¥Ü¥þ³¡() '
  20. ' Macro6 Macro
  21. ' liujerkun ¦b 2011/1/20 ¿ý»sªº¥¨¶°
  22.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '¨ú®ø¦Û°Ê¿z¿ï
  23.     Selection.AutoFilter Field:=1
  24.     Range("N1").Select
  25. End Sub
½Æ»s¥N½X

TOP

¦^´_ 10# peter460191
½Ð°Ý±z¦³¤èªk¥i¥H³sµ²¥æ©ö©Òºô¯¸ªºªÑ»ù¸ê°T¶Ü?
A:½Ð§A§ä¨ì³sµ²¥æ©ö©ÒªÑ»ù¸ê°Tªººô¯¸,ªþ¤W©Ò»Ý¨Dªº½d¨ÒÀÉ®×°Q½×.
³o¸Ì¬O¤@¯ë°Ï , VBA»yªk¦b µ{¦¡°Ï¦³±Mªùªº°Q½×

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-13 13:27 ½s¿è

¦^´_ 12# peter460191
§Aªº°ÝÃD¤w¦b http://forum.twbts.com/thread-3704-1-1.html °Q½×¹L
§Úªº¯à¤O¥u¯àÀ°§A¶×¤J¤å¦r

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD