なぜ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ベストアンサー
- 回答日時:
>なぜShowAllDataだとうまく行かないのでしょう?
何も絞り込まれていない状態では失敗するからです。
なので
sub macro1()
if activesheet.filtermode then ’絞り込まれていたら
activesheet.showalldata
end if
end sub
といった具合に使う手が考えられます。
>ActiveSheet.AutoFilterMode = False
こちらは絞り込みを解除するんじゃなく、オートフィルタそのものを無くします。結果して絞り込みも解除されます。
こちらは
sub macro2()
activesheet.autofiltermode = false
end sub
だけで、オートフィルタのある無しに関係なく、作動します。
No.2
- 回答日時:
こんにちは。
'オートフィルタのままで隠れているデータをすべて出す
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だとうまく行かないのでしょう?
オートフィルタで、隠れているデータをすべて出すという意味で、オートフィルタを解除するということではないから。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ShowAllDataのエラーを回避したい
Access(アクセス)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
5
フォントの大きさ
Visual Basic(VBA)
-
6
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
7
access マクロでのフィルタの解除の方法
Access(アクセス)
-
8
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
9
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
10
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
11
VBA:日付を配列に入れ別セルに転記するとデータ型が変わる
Visual Basic(VBA)
-
12
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
13
VBA 存在しないシートを選択した時にエラーメッセージを表示するには?
Visual Basic(VBA)
-
14
エクセルVBAのEntireRow.Hiddenをスピードアップしたいのですが・・・。
Excel(エクセル)
-
15
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
16
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
17
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
18
Excel VBAのオートフィルタ解除について
Excel(エクセル)
-
19
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
20
VBAで仕様書は書きますか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
access マクロでのフィルタの...
-
オートフィルタで選択した項目...
-
エクセルの偶数行(奇数行)の抽出
-
今日の日付のデータをすばやく...
-
エクセルで、条件に一致した行...
-
Excelで文字を入力と自動的にフ...
-
スプレッドシートのチェックボ...
-
エクセルのフィルター機能の下...
-
エクセルのオートフィルタで最...
-
結合したセルのオートフィルタ...
-
【Excel/関数/条件付き書式】月...
-
Excelで西暦の日付から「和暦の...
-
エクセル オートフィルタ中の...
-
エクセルVBA オートフィル...
-
エクセル2003 重複削除方法
-
Excelについて Excelで何日かに...
-
複数の特定列で、条件を同時に...
-
関数で小数点以下を抽出したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
エクセルで、条件に一致した行...
-
オートフィルタで3つ以上の条...
-
access マクロでのフィルタの...
-
Excel共有ブックのオートフィル...
-
なぜShowAllDataだとうまく行か...
-
エクセル・条件付で行を削除す...
-
オートフィルタで選択したデー...
-
【EXCEL】条件に一致した最新デ...
-
今日の日付のデータをすばやく...
-
エクセル、オートフィルタで最...
-
Excelオートフィルターで絞り込...
-
可視セルを対象としたcountifが...
-
【Excel/関数/条件付き書式】月...
-
データの抽出を教えてください
おすすめ情報