なぜShowAllDataだとうまく行かないのでし

なぜShowAllDataだとうまく行かないのでしょう？

「オートフィルタがかかってるなら解除する」
と言うコードを勉強しているのですが

Sub a()
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.ShowAllData
End If
End Sub

とすると、実行時エラー1004になります。

Sub b()
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
End If
End Sub

すると正常に動きます。

ActiveSheet.ShowAllData＝ True
にしてもダメでした。

No.1 ベストアンサー 回答者： keithin 回答日時： 2012/10/23 21:11

＞なぜShowAllDataだとうまく行かないのでしょう？

何も絞り込まれていない状態では失敗するからです。

なので
sub macro1()
if activesheet.filtermode then　’絞り込まれていたら
activesheet.showalldata
end if
end sub
といった具合に使う手が考えられます。



＞ActiveSheet.AutoFilterMode = False

こちらは絞り込みを解除するんじゃなく、オートフィルタそのものを無くします。結果して絞り込みも解除されます。

こちらは
sub macro2()
activesheet.autofiltermode = false
end sub
だけで、オートフィルタのある無しに関係なく、作動します。

この回答へのお礼

ありがとうございました。

お礼日時：2012/11/08 22:33

No.2 回答者： WindFaller 回答日時： 2012/10/24 16:18

こんにちは。

'オートフィルタのままで隠れているデータをすべて出す
Sub a_R()
　With ActiveSheet
　　If .AutoFilterMode Then
　　　If .FilterMode Then
　　　　.ShowAllData
　　　End If
　　End If
　End With
End Sub

'オートフィルタそのものの解除（通常は、ボタン）
Sub b_R()
'A1が、データの左上端だとする場合
　　　ActiveSheet.Range("A1").AutoFilter　 'トグルになる
End Sub

>なぜShowAllDataだとうまく行かないのでしょう？
オートフィルタで、隠れているデータをすべて出すという意味で、オートフィルタを解除するということではないから。

この回答へのお礼

ありがとうございました。

お礼日時：2012/11/08 22:33