|
▼めぐたん さん:
>実行時エラー'1004':
>該当するセルが見つかりません。
両方とも求められているんですから、2回に分けないで書きましょね。
その情報が正確なら1004 エラー把握していて
それは無視して他の処理をしたいわけだから
On Error Resume Next
Sheets("(最新)売上明細上期").Select
Selection.AutoFilter Field:=124, Criteria1:=" 上期のみ"
If Err.Number <> 0 Then
If Err.Number = 1004 Then
'1004エラーが発生した時の処理を
'(ここでエラーが出してはいけない)
'必要に応じerrをclearする。
Else
'その他予期せぬエラーが出た時の処理を(ここでエラーが出していけない)
End If
End If
On Error GoTo 0
のような処理をする事が多いと思います。
面倒なので解説はしませんので、
ErrオブジェクトのHelpは精読しておいてください。
ちなみにerrオブジェクトでトラップ出来るエラーは実行時エラーで、
トラップ出来ないエラーも、た〜くさんあります。
ちょっと古いですが
[Visual Basic for Applications でのエラー トラップ ]
ht tp://support.microsoft.com/kb/146864/ja
タカがOn Error Resume Nextの1行ですが、良さと弊害を知ってから使って下さいね。
|
|