返回列表 上一主題 發帖

列的複製/刪除與匯入

回復 20# GBKEE

         大大~ 我把需求做出一個例子~ 供大大了解我的問題

      附檔內 資料範圍 A~CL欄
          條件一  F欄等於X  且 CL等於1 就要刪掉
          條件二  O攔等於0 且 CL等於1 就要刪除
          上述兩個條件是會依需求分別執行,不是一次就執行

            (當我執行完後需要使用條件一時, 僅會執行條件一,而條件二不會執行)





                                 兩個條件下分別刪除列.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.             ''''''''''''''''''''''  請自行 修改判斷式
  11.             If ActiveSheet.[a1] = 1 Then              '條件一  F欄等於X  且 CL且等於1
  12.                 .AutoFilter 6, "=X"
  13.             ElseIf ActiveSheet.[a1] = 2 Then       '條件二  O攔等於0 且 CL等於1就要
  14.                 .AutoFilter 15, "=0"
  15.             End If
  16.             If ActiveSheet.[a1] = 1 Or ActiveSheet.[a1] = 2 Then   '''''''  請自行 修改判斷式
  17.                 .AutoFilter 90, "=1"
  18.                 .CurrentRegion.Offset(1).EntireRow.Delete
  19.             End If
  20.         '''''''''''''''''''''''''''''''''''''''
  21.         End With
  22.     End With
  23. End Sub
複製代碼

TOP

回復 22# GBKEE


      謝謝大大幫忙解決問題~ 我會測試一下~ 若有問題再請教大大

TOP

回復 22# GBKEE


    大大~ 執行結果~ 沒有任何刪除的動作~ 只有將篩選的資料全部解開~
             請大大示下~

TOP

回復 24# 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.             ''''''''''''''''''''''  請自行 修改判斷式
  11.             If ActiveSheet.[a1] = 1 Then              '條件一  F欄等於X  且 CL且等於1
  12.                 .AutoFilter 6, "=X"
  13.             ElseIf ActiveSheet.[a1] = 2 Then       '條件二  O攔等於0 且 CL等於1就要
  14.                 .AutoFilter 15, "=0"
  15.             End If
  16.             If ActiveSheet.[a1] = 1 Or ActiveSheet.[a1] = 2 Then   '''''''  請自行 修改判斷式
  17.                 .AutoFilter 90, "=1"
  18.                 .CurrentRegion.Offset(1).EntireRow.Delete
  19.             End If
  20.         '''''''''''''''''''''''''''''''''''''''
  21.         End With
  22.          .Cells.AutoFilter    '取消自動篩選 顯示顯示全部資料
  23.    End With
  24. End Sub
複製代碼

TOP

回復 25# GBKEE


    親愛滴大大~ 一樣還是沒有任何刪除的動作耶~ :dizzy:

TOP

本帖最後由 hugh0620 於 2010-12-14 11:28 編輯

回復 25# GBKEE

     大大請看~

     執行後還是無動靜~

    兩個條件下分別刪除列.zip (19.66 KB)

TOP

本帖最後由 GBKEE 於 2010-12-14 12:32 編輯

回復 27# hugh0620
ActiveSheet.[a1] 有 1 或 2 才會執行   
給你的程式碼要研究一下才會進步
''''''''''''''''''''''  請自行 修改判斷式
If ActiveSheet.[a1] = 1 Then              '條件一  F欄等於X  且 CL且等於1    ->  '請在  [a1] 輸入  1
    .AutoFilter 6, "=X"
ElseIf ActiveSheet.[a1] = 2 Then       '條件二  O攔等於0 且 CL等於1就要 2  ->  '請在  [a1] 輸入  2   
   .AutoFilter 15, "=0"
End If
If ActiveSheet.[a1] = 1 Or ActiveSheet.[a1] = 2 Then   '''''''  請自行 修改判斷式      .
           . AutoFilter 90, "=1"
          .CurrentRegion.Offset(1).EntireRow.Delete
  End If

TOP

回復 28# GBKEE


    大大~ 您說的是~ 很對不起~ 沒有好好研究你提供的方式~

    下次會改進~

     也是大大再一次提省了我~ 我終於有仔細看了大大寫的~ 了解大大程式碼的意思~

     謝謝大大~

TOP

        靜思自在 : 地上種了菜,就不易長草;心中有善,就不易生惡。
返回列表 上一主題