|
▼Jaka さん:
ありがとうございます。
行でオートフィルターをしていたのを、range("A1")でオートフィルターしたところ
妥協していますが、欲しい結果に近いものが得られました。
もうひとついいでしょうか?
Sub データ削除_Click()
'IF オートフィルターが掛かっていたら、
'MsgBox "削除できません。オートフィルターを解除してください。"
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Offset(1, 1).Select
Selection.ClearContents
On Error GoTo ErrorTrap
Selection.QueryTable.Delete
Range("B2").Select
MsgBox "削除完了"
Exit Sub ' プロシージャを抜け出る。
ErrorTrap:
Resume Next ' エラー発生行の次から実行
Application.ScreenUpdating = True
End Sub
【質問内容】
オートフィルターが掛かっていた場合は、削除できなくしたいのです。
どのように書いたらいいでしょうか?
|
|