質問編集履歴
2
レイアウト追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -16,6 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|
|
19
|
+
---
|
|
19
20
|
ご回答を受け下記プログラムで解決
|
|
20
21
|
```GAS
|
|
21
22
|
' オートフィルターの絞り込みを解除する(1)または(2)
|
1
追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -15,3 +15,18 @@
|
|
|
15
15
|
|
|
16
16
|
|
|
17
17
|
|
|
18
|
+
|
|
19
|
+
ご回答を受け下記プログラムで解決
|
|
20
|
+
```GAS
|
|
21
|
+
' オートフィルターの絞り込みを解除する(1)または(2)
|
|
22
|
+
|
|
23
|
+
' (1)適用先をテーブル名を含めて指定
|
|
24
|
+
If Worksheets("フィルター").ListObjects("テーブルA").AutoFilter.FilterMode Then
|
|
25
|
+
Worksheets("フィルター").ListObjects("テーブルA").AutoFilter.ShowAllData
|
|
26
|
+
End If
|
|
27
|
+
|
|
28
|
+
' (2)テーブル内のセルを選択してから解除
|
|
29
|
+
Worksheets("フィルター").ListObjects("テーブルA").Range.Cells(1).Select
|
|
30
|
+
If Worksheets("フィルター").FilterMode Then Worksheets("フィルター").ShowAllData
|
|
31
|
+
```
|
|
32
|
+
（参考）https://papasensei365.com/excel-filtermode-showalldata/
|