hugh0620

¦^´_ 8# GBKEE


    ¤j¤j¬O°ª¤â,¦b´ú¸Õ¤W¬Ookªº~ ¥u¤£¹L¤p§ÌµLªk§l¦¬¤j¤jªº¥\¤O~  (¬Ý¤£¤ÓÀ´)
    µLªk±N¤j¤jªº¤è¦¡À³¥Î¦b«áÄò¹ê°È¤W~   ¤£¹LÁÙ¬O­n·PÁ¤j¤j

Hsieh

¦^´_ 11# hugh0620
¥H§A­ìµ{¦¡½Xªº§R°£°Ê§@À³¸Ó­n¥Ñ«á©¹«e§R°£

1. Private Sub CommandButton1_Click()  '¶×¥X»P§R°£
   
2. Dim A As Range
   
3. With Sheet1
   
4. r = .[L65536].End(xlUp).Row
   
5. Do Until r < 7
   
6.    If .Cells(r, 6) <> "" Then
   
7.       .Rows(r).Copy Sheet2.Cells(k + 7, 1) '¶×¥X
   
8.         .Rows(r).Delete xlShiftUp '§R°£
   
9.        k = k + 1
   
10.    End If
    
11.    r = r - 1
    
12. Loop
    
13. End With
    
14. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 12# Hsieh

ª©¥D~ §Ú¦³±N§Aªº¼gªk§ï¦¨§Ú¹ê»Ú­n¥Îªº¤è¦¡,¦]§Ú¦b°õ¦æ®É,¦³¤T­Ó±ø¥ó­n¥ý¶×¥X,³o¤è­±ªº°õ¦æ³t«×¤Wok~ «Ü§Ö~
          ¦ý¦b§R°£¤W,­Y¬O¥Îª©¥Dªº¤èªk,¨C§R°£¤@µ§¸ê®Æ·|­«·s­pºâÀx¦s®æ¾É­P°õ¦æ®ÉÅܫܺC
       §Ú±N§R°£ªº³¡¥÷­×§ï¦¨¤U¦Cªº¤è¦¡,¥i°õ¦æ,¦ý«ÜºC                            (§Úªº¸ê®Æ¶q¬ù5000¦C*89Ä檺¸ê®Æ»Ý­n³B²z)

    Private Sub CommandButton1_Click()  '§R°£
        With Sheet1
            r = .[L65536].End(xlUp).Row
               Do Until r < 7
                  If .Cells(r, 6) <> "" or Cells(r, 15) = 0 or Cells(r, 89) = 0  Then
                    .Rows(r).Delete xlShiftUp '§R°£
                    End If
                          r = r - 1
              Loop
      End With
End Sub

oobird

¥N½X³Ì«e¬q¥[¤WÃö³¬¦Û°Ê­«ºâ
¦b³Ì§À¬q¥[¤W¥´¶}¡C
§A¥i·Pı³t«×­¸§Ö¡I

hugh0620

¦^´_ 14# oobird


    ª©¥D¤j¤j~ ¤p§Ì¦³¸Õ¹L±N¦Û°ÊÀx¦s®æ¥ý¦æÃö³¬,¦A¥´¶}

  ¦b­ìµ{¦¡½X«e¥[¤W application.calculation = xlcalculationManual

   ¦b­ìµ{¦¡½X«e«á¤W application.calculation = xlcalculationAutomatic

  °õ¦æªºµ²ªG,±q­ì¥»ªº§Ö20¤ÀÄÁ¥ª¥k ´î ¦Ü 7¤ÀÄÁ

¬O¦³¥[¥~«Ü¦h~  ÁÙ¯à°÷¦b³B²z¤W¥[§Ö¹À???

oobird

¬Ý§A±Ô­zªº¸ê®Æ¶qÀ³¸Ó´X¬í¤º³B²z§¹ªº¡A¦pªG§A¯à´£¨Ñ¤å¥óªº¸Ü¡C

hugh0620

¦^´_ 8# GBKEE


    ÁÂÁ¤j¤j~ ÁöµMÁÙ¬O¤£¤ÓÀ´§A¼gªº¤èªk~ ¦ý¤p§Ì²×©ó´ú¸Õ¨ì³Ì«á~ ¥i¥HÀ³¥Î¦b§Ú»Ý­nªº¤u§@¤W~
    ¨Ï§Ú³B²z³t«×¤W§Ö«Ü¦h~ ·P®¦~

Hsieh

¦^´_ 17# hugh0620

1. Private Sub CommandButton1_Click()  '§R°£
   
2. Dim A As Range, Rng As Range
   
3. If Application.CountA([F6:F65536]) > 0 Then
   
4. For Each A In Range("F6:F65536").SpecialCells(xlCellTypeConstants)
   
5.    If A.Offset(, 9) = 0 Or A.Offset(, 83) = 0 Then
   
6.       If Rng Is Nothing Then
   
7.         Set Rng = A
   
8.         Else
   
9.         Set Rng = Union(Rng, A)
   
10.       End If
    
11.     End If
    
12. Next
    
13. End If
    
14. Rng.EntireRow.Delete
    
15. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 8# GBKEE


    ¤j¤j~ ·Q¦A½Ð°Ý§A¤@­Ó°ÝÃD~
            ¤j¤j­ìµ{¦¡ªº¼gªk~ ¬O°w¹ï¤@­Ó±ø¥ó¤U¥h§R°£~
            ­Y¤p§Ì»Ý­n¦P¤@¦C¤W­n²Å¦X¨â­Ó±ø¥ó¤U¤~°µ§R°£ªº°Ê§@~
            ¸Ó¦p¦ó­×§ïµ{¦¡½X©O????


Private Sub CommandButton1_Click()  '¶×¥X»P§R°£
    With Sheet1.Range("f6").CurrentRegion.Columns(6).Offset(2)      <--- ­Y§Úªº±ø¥ó¬OFÄæ»PKÄæ¸ê®Æ²Å¦X§Ú§R°£ªº±ø¥ó,¤~¶i¦æ§R°£ªº°Ê§@
        On Error Resume Next
        With .SpecialCells(2).EntireRow
                .Copy Sheet2.Range("A" & Sheet2.Range("F" & Rows.Count).End(xlUp).Row).Offset(1)
                .Delete
        End With
    End With
End Sub

GBKEE

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