なぜ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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ShowAllDataのエラーを回避したい
Access(アクセス)
-
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
フォントの大きさ
Visual Basic(VBA)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
access マクロでのフィルタの解除の方法
Access(アクセス)
-
9
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
10
エクセルVBAのEntireRow.Hiddenをスピードアップしたいのですが・・・。
Excel(エクセル)
-
11
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
12
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
13
VBA 存在しないシートを選択した時にエラーメッセージを表示するには?
Visual Basic(VBA)
-
14
VBAで仕様書は書きますか?
Visual Basic(VBA)
-
15
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
16
Excel VBAが徐々に遅くなる
Excel(エクセル)
-
17
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
18
Excel VBAのオートフィルタ解除について
Excel(エクセル)
-
19
DoEvents関数って何?
Visual Basic(VBA)
-
20
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
エクセル・条件付で行を削除す...
-
エクセルの偶数行(奇数行)の抽出
-
Excelのオートフィルタで非表示...
-
エクセルのフィルター条件合致...
-
Excelオートフィルタのドロップ...
-
エクセルで、条件に一致した行...
-
VBAでオートフィルターの再検索
-
エクセル関数で、数字の入った...
-
エクセルで検索窓のようなもの...
-
エクセルにて、フィルタをかけ...
-
Excel 非表示の列を飛ばして合...
-
[excel] 自由記述部分の抜き出し
-
今日の日付のデータをすばやく...
-
エクセルデータの抽出 エクセル...
-
Excelで、オートフィルタを解除...
-
オートフィルタ 並べ替え 二...
-
トグルボタンの使い方教えて
-
エクセル管理の名簿から必要な...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
エクセルで、条件に一致した行...
-
オートフィルタで3つ以上の条...
-
access マクロでのフィルタの...
-
Excel共有ブックのオートフィル...
-
なぜShowAllDataだとうまく行か...
-
エクセル・条件付で行を削除す...
-
オートフィルタで選択したデー...
-
今日の日付のデータをすばやく...
-
【EXCEL】条件に一致した最新デ...
-
エクセル、オートフィルタで最...
-
Excelオートフィルターで絞り込...
-
可視セルを対象としたcountifが...
-
【Excel/関数/条件付き書式】月...
-
データの抽出を教えてください
おすすめ情報