Excelでフィルタをかけると警告メッセージが頻発する

質問

Excel2003を使用しています。
あるシートでフィルタを適用しているのですが、どの列からも
フィルタリングすると「オブジェクトの位置またはサイズが変更されます。」
というメッセージが出て、OKを押しても何度も同じものが出て
OKを連打しないとフィルタリングされません。5.6回位同じのが出ます。
どのようにすればメッセージがでなくなるのでしょうか？
ファイルのサイズは3MB位で、S列まで、8000行位あります。

よろしくお願いします。

回答No.2

Wendy02

こんにちは。

>行が非常に多くて、縮小表示してみたのですがオブジェクトはないようです。も
>しあるとしたら、確認できる操作方法はありますか？

あるとすれば、非表示オブジェクトなのかもしれません。非表示オブジェクトは、手動では処理できません。一番、トラブルを起こすのは、非表示の図形です。

以下のマクロを、シートのタブを右クリックして、コードの表示で出てきた場所に、貼り付けてみて、F5を押して、実行してみてください。

オブジェクトが存在するかどうか、ある程度の種類も分かるはずです。
もし、存在していたら、次のステップを考えます。

------------------------------------------------------------
Sub TestMacro1()
Dim obj As Variant
Dim i As Long
Dim j As Long
Dim k As Long
Dim n As Long
　For Each obj In ActiveSheet.Shapes
　 Select Case obj.Type
　　　Case msoAutoShape: i = i + 1
　　　Case msoChart: j = j + 1
　　　Case msoOLEControlObject: k = k + 1
　　　Case Else
　　　n = n + 1
　 End Select
　Next obj
　If i + j + k = 0 Then
　 MsgBox "オブジェクトの類は存在しません"
　Else
　 MsgBox i & "個のオートシェイプ" & vbCrLf & _
　　　　　j & "個のチャート" & vbCrLf & _
　　　　　k & "個のコントロールツール" & vbCrLf & _
　　　　　n & "個のその他のオブジェクト" & vbCrLf & _
　　　　　"が存在します。", vbInformation
　End If
End Sub

お礼

早速のご回答ありがとうございます。
ご丁寧にありがとうございます！
「オブジェクトの種類は存在しません」と表示されました。
オブジェクトはないということですね。。

あと、別件で質問したいのですが、DE1のセルに結合して「注文先」
のセルがあり、D2に会社、E2に担当というセルがあります。
この3つのセルどちらを選択してもオートフィルタが適用されています。

それを全て解除するにはどのようにすればいいのでしょうか？
2行目のオートフィルタはデータ→フィルタのチェックを外しましたが、DE1のフィルタはクリックするとまだ生きています。
言葉で説明しずらくて申し訳ございません。
自分で作成したファイルではないのでどうなっているのか
よくわからないのです。。
よろしくお願いします。