質問: True Then MsgBox "絞込まれてます。" ActiveSheet.ShowAllData Else MsgBox "絞込みなし" End If End With Exit Sub コードをどう修正したらよいでしょうか?
回答: >しぼりこんでいても、"絞り込みなし"のメッセージが出ます。 あなたのコード(↓)で、問題なかったです。 Sub sample() If ActiveSheet.FilterMode = True Then MsgBox "絞込まれてます。" ActiveSheet.ShowAllData Else MsgBox "絞込みなし" End If End Sub