Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29981 / 76732 ←次へ | 前へ→

【52024】AutoFilterについて
質問  Sati  - 07/10/16(火) 20:29 -

引用なし
パスワード
      A   B   C    D
6  項目1     項目2    項目3    項目4
7  0.04     0.04     0.04    0.07
8  0.05  0.05     0.05    0.09
9  0.04     0.04     0.04    0.01
10 0.05  0.05     0.05    0.02
11 0.06     0.01     0.06    0.01
12 0.04     0.04     0.04    0.07
13 0.05     0.05     0.05    0.09
14 0.04     0.03     0.04    0.01
15 0.05     0.05     0.05    0.02
16 0.04     0.01     0.04    0.01

上の表で
項目4で0.02以下の数字で、且つ            
項目2で0.03以下の数字の列を削除を
AutoFilterで検索させようとコードを過去のサンプルなど見ながら
作成したのですが、一回目の動作は正しく動作するのですが、
更に動作させると、エラーになります。
エラーを逃れるためOnErrorResumeで対応したのですが、どんどん
検索対象に合致していない行が下から削除されてしまいます。
解決策を教えてください。
            
Sheets("sheet3").Activate
'On Error Resume Next
With Rows("6:6")
  .AutoFilter
  .AutoFilter field:=4, Criteria1:="<=0.02"
  .AutoFilter field:=2, Criteria1:="<=0.03"
  Myrow = Range("D65536").End(xlUp).Row
  If Myrow > 1 Then
    Rows("7:" & Myrow).Delete Shift:=xlUp
  End If
  .AutoFilter
End With
'On Error GoTo 0

0 hits

【52024】AutoFilterについて Sati 07/10/16(火) 20:29 質問
【52027】Re:AutoFilterについて ponpon 07/10/16(火) 21:29 発言
【52030】Re:AutoFilterについて Sati 07/10/16(火) 23:03 お礼

29981 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free