GBKEE

¦^´_ 3# hugh0620
¤W¶ÇÀɮצ³°ÝÃD¥´¤£¶}

GBKEE

¦^´_ 5# hugh0620
§A¤W¶ÇÀɮץίS®í¦r¤¸ ³y¦¨¤U¸ü«áPCµLªk¿ëÃÑÀɮ׫¬ºA,µLªk¦Û°Ê¥ÎRARÀɮ׫¬ºA¥´¶}.
¸g¶}±ÒÀÉ®×®É,¥Î¤â°Ê¿ï¾ÜRARÀɮ׫¬ºA¶}±Ò¤w¸Ñ¨M.

1. Private Sub CommandButton1_Click()  '¶×¥X»P§R°£
   
2.     With Sheet1.Range("f6").CurrentRegion.Columns(6).Offset(2)
   
3.         On Error Resume Next
   
4.         With .SpecialCells(2).EntireRow
   
5.                 .Copy Sheet2.Range("A" & Sheet2.Range("F" & Rows.Count).End(xlUp).Row).Offset(1)
   
6.                 .Delete
   
7.         End With
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# hugh0620
­Y§Úªº±ø¥ó¬OFÄæ»PKÄæ¸ê®Æ²Å¦X§Ú§R°£ªº±ø¥ó,¤~¶i¦æ§R°£ªº°Ê§@
FÄæ»PKÄ檺±ø¥ó¬°¦ó??

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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