質問編集履歴
4
追記した該当のソースコードを訂正しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -17,7 +17,7 @@
|
|
|
17
17
|
### 該当のソースコード
|
|
18
18
|
|
|
19
19
|
```vba
|
|
20
|
-
For Each pvt In
|
|
20
|
+
For Each pvt In Ws.PivotTables
|
|
21
21
|
pvt.PivotCache.Refresh
|
|
22
22
|
Next
|
|
23
23
|
|
3
該当のソースコードを追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -17,6 +17,10 @@
|
|
|
17
17
|
### 該当のソースコード
|
|
18
18
|
|
|
19
19
|
```vba
|
|
20
|
+
For Each pvt In Ws2_4.PivotTables
|
|
21
|
+
pvt.PivotCache.Refresh
|
|
22
|
+
Next
|
|
23
|
+
|
|
20
24
|
Set pf = Ws.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ").PivotFields("番号")
|
|
21
25
|
pf.Orientation = xlPageField
|
|
22
26
|
pf.ClearAllFilters
|
2
補足情報を追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -67,4 +67,4 @@
|
|
|
67
67
|
|
|
68
68
|
### 補足情報（FW/ツールのバージョンなど）
|
|
69
69
|
|
|
70
|
-
EXCEL 2016 使用
|
|
70
|
+
EXCEL 2016 / Windows10 使用
|
1
マクロの記録の結果を追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -53,6 +53,18 @@
|
|
|
53
53
|
PivotItemsの数は200件程あり、重複した要素を除くと100件程となります。
|
|
54
54
|
上記、VBA実行後は50件までチェックが外れていたイメージです。
|
|
55
55
|
|
|
56
|
+
```vba
|
|
57
|
+
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ").PivotFields("番号").CurrentPage = "(All)"
|
|
58
|
+
With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ").PivotFields("番号")
|
|
59
|
+
.PivotItems("12345").Visible = False
|
|
60
|
+
.PivotItems("23456").Visible = False
|
|
61
|
+
.PivotItems("34567").Visible = False
|
|
62
|
+
'以下省略
|
|
63
|
+
End With
|
|
64
|
+
```
|
|
65
|
+
また、VBAを使わず手動でフィルターを「5*」で検索した場合のマクロの記録では、
|
|
66
|
+
上記の結果となり、「5*」以外の値を明記する必要が生じてしまいます。
|
|
67
|
+
|
|
56
68
|
### 補足情報（FW/ツールのバージョンなど）
|
|
57
69
|
|
|
58
70
|
EXCEL 2016 使用
|