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

¦Cªº½Æ»s¡þ§R°£»P¶×¤J

¦^´_ 20# GBKEE

         ¤j¤j~ §Ú§â»Ý¨D°µ¥X¤@­Ó¨Ò¤l~ ¨Ñ¤j¤j¤F¸Ñ§Úªº°ÝÃD

      ªþÀɤº ¸ê®Æ½d³ò A~CLÄæ
          ±ø¥ó¤@  FÄæµ¥©óX  ¥B CLµ¥©ó1 ´N­n§R±¼
          ±ø¥ó¤G  OÄdµ¥©ó0 ¥B CLµ¥©ó1 ´N­n§R°£
          ¤W­z¨â­Ó±ø¥ó¬O·|¨Ì»Ý¨D¤À§O°õ¦æ,¤£¬O¤@¦¸´N°õ¦æ

            (·í§Ú°õ¦æ§¹«á»Ý­n¨Ï¥Î±ø¥ó¤@®É, ¶È·|°õ¦æ±ø¥ó¤@,¦Ó±ø¥ó¤G¤£·|°õ¦æ)





                                 ¨â­Ó±ø¥ó¤U¤À§O§R°£¦C.rar (12.21 KB)

TOP

¦^´_ 21# hugh0620
  1. Sub Ex()
  2.     With ActiveSheet
  3.         If .AutoFilter Is Nothing Then
  4.             .Rows(6).AutoFilter
  5.         Else
  6.             .Cells.AutoFilter
  7.             .Rows(6).AutoFilter
  8.         End If
  9.         With .Rows(6)
  10.             ''''''''''''''''''''''  ½Ð¦Û¦æ ­×§ï§PÂ_¦¡
  11.             If ActiveSheet.[a1] = 1 Then              '±ø¥ó¤@  FÄæµ¥©óX  ¥B CL¥Bµ¥©ó1
  12.                 .AutoFilter 6, "=X"
  13.             ElseIf ActiveSheet.[a1] = 2 Then       '±ø¥ó¤G  OÄdµ¥©ó0 ¥B CLµ¥©ó1´N­n
  14.                 .AutoFilter 15, "=0"
  15.             End If
  16.             If ActiveSheet.[a1] = 1 Or ActiveSheet.[a1] = 2 Then   '''''''  ½Ð¦Û¦æ ­×§ï§PÂ_¦¡
  17.                 .AutoFilter 90, "=1"
  18.                 .CurrentRegion.Offset(1).EntireRow.Delete
  19.             End If
  20.         '''''''''''''''''''''''''''''''''''''''
  21.         End With
  22.     End With
  23. End Sub
½Æ»s¥N½X

TOP

¦^´_ 22# GBKEE


      ÁÂÁ¤j¤jÀ°¦£¸Ñ¨M°ÝÃD~ §Ú·|´ú¸Õ¤@¤U~ ­Y¦³°ÝÃD¦A½Ð±Ð¤j¤j

TOP

¦^´_ 22# GBKEE


    ¤j¤j~ °õ¦æµ²ªG~ ¨S¦³¥ô¦ó§R°£ªº°Ê§@~ ¥u¦³±N¿z¿ïªº¸ê®Æ¥þ³¡¸Ñ¶}~
             ½Ð¤j¤j¥Ü¤U~

TOP

¦^´_ 24# hugh0620
§Ñ°O Åã¥ÜÅã¥Ü¥þ³¡¸ê®Æ
  1.   Sub Ex()
  2.     With ActiveSheet
  3.         If .AutoFilter Is Nothing Then
  4.             .Rows(6).AutoFilter
  5.         Else
  6.             .Cells.AutoFilter
  7.             .Rows(6).AutoFilter
  8.         End If
  9.         With .Rows(6)
  10.             ''''''''''''''''''''''  ½Ð¦Û¦æ ­×§ï§PÂ_¦¡
  11.             If ActiveSheet.[a1] = 1 Then              '±ø¥ó¤@  FÄæµ¥©óX  ¥B CL¥Bµ¥©ó1
  12.                 .AutoFilter 6, "=X"
  13.             ElseIf ActiveSheet.[a1] = 2 Then       '±ø¥ó¤G  OÄdµ¥©ó0 ¥B CLµ¥©ó1´N­n
  14.                 .AutoFilter 15, "=0"
  15.             End If
  16.             If ActiveSheet.[a1] = 1 Or ActiveSheet.[a1] = 2 Then   '''''''  ½Ð¦Û¦æ ­×§ï§PÂ_¦¡
  17.                 .AutoFilter 90, "=1"
  18.                 .CurrentRegion.Offset(1).EntireRow.Delete
  19.             End If
  20.         '''''''''''''''''''''''''''''''''''''''
  21.         End With
  22.          .Cells.AutoFilter    '¨ú®ø¦Û°Ê¿z¿ï Åã¥ÜÅã¥Ü¥þ³¡¸ê®Æ
  23.    End With
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 25# GBKEE


    ¿Ë·Rºw¤j¤j~ ¤@¼ËÁÙ¬O¨S¦³¥ô¦ó§R°£ªº°Ê§@­C~ :dizzy:

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2010-12-14 11:28 ½s¿è

¦^´_ 25# GBKEE

     ¤j¤j½Ð¬Ý~

     °õ¦æ«áÁÙ¬OµL°ÊÀR~

    ¨â­Ó±ø¥ó¤U¤À§O§R°£¦C.zip (19.66 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-14 12:32 ½s¿è

¦^´_ 27# hugh0620
ActiveSheet.[a1] ¦³ 1 ©Î 2 ¤~·|°õ¦æ   
µ¹§Aªºµ{¦¡½X­n¬ã¨s¤@¤U¤~·|¶i¨B
''''''''''''''''''''''  ½Ð¦Û¦æ ­×§ï§PÂ_¦¡
If ActiveSheet.[a1] = 1 Then              '±ø¥ó¤@  FÄæµ¥©óX  ¥B CL¥Bµ¥©ó1    ->  '½Ð¦b  [a1] ¿é¤J  1
    .AutoFilter 6, "=X"
ElseIf ActiveSheet.[a1] = 2 Then       '±ø¥ó¤G  OÄdµ¥©ó0 ¥B CLµ¥©ó1´N­n 2  ->  '½Ð¦b  [a1] ¿é¤J  2   
   .AutoFilter 15, "=0"
End If
If ActiveSheet.[a1] = 1 Or ActiveSheet.[a1] = 2 Then   '''''''  ½Ð¦Û¦æ ­×§ï§PÂ_¦¡      .
           . AutoFilter 90, "=1"
          .CurrentRegion.Offset(1).EntireRow.Delete
  End If

TOP

¦^´_ 28# GBKEE


    ¤j¤j~ ±z»¡ªº¬O~ «Ü¹ï¤£°_~ ¨S¦³¦n¦n¬ã¨s§A´£¨Ñªº¤è¦¡~

    ¤U¦¸·|§ï¶i~

     ¤]¬O¤j¤j¦A¤@¦¸´£¬Ù¤F§Ú~ §Ú²×©ó¦³¥J²Ó¬Ý¤F¤j¤j¼gªº~ ¤F¸Ñ¤j¤jµ{¦¡½Xªº·N«ä~

     ÁÂÁ¤j¤j~

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD