Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29987 / 76738

←次へ　｜　前へ→


	【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

≪