質問編集履歴
2
題名変更
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
テーブルオートフィルターの解除、設定の方法がよくわからないです。
|
|
1
|
+
【VBA】テーブルオートフィルターの解除、設定の方法がよくわからないです。
|
test
CHANGED
|
File without changes
|
1
文章の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
15
|
-
|
|
15
|
+
|
|
16
16
|
|
|
17
17
|
上記実現したいことの中で
|
|
18
18
|
|
|
@@ -142,7 +142,33 @@
|
|
|
142
142
|
|
|
143
143
|
なので、AutoIncrementはCallで呼び出しています。
|
|
144
144
|
|
|
145
|
+
問題なのは、２で下記コードのIf文がすごくごちゃごちゃになっているかと思います。
|
|
146
|
+
|
|
147
|
+
（色々試行錯誤していて、こうなってしまいました。見づらくてすみません。）
|
|
148
|
+
|
|
145
|
-
|
|
149
|
+
```VBA
|
|
150
|
+
|
|
151
|
+
If ActiveSheet.ListObjects(1).ShowAutoFilter Then
|
|
152
|
+
|
|
153
|
+
'フィルターが絞りこまれているときの処理
|
|
154
|
+
|
|
155
|
+
ActiveSheet.ListObjects(1).ShowAutoFilter = True
|
|
156
|
+
|
|
157
|
+
|
|
158
|
+
|
|
159
|
+
Call AutoIncrement(MaxRow)
|
|
160
|
+
|
|
161
|
+
Else
|
|
162
|
+
|
|
163
|
+
' ActiveSheet.ShowAllData ' 絞り込みを解除
|
|
164
|
+
|
|
165
|
+
ActiveSheet.AutoFilter
|
|
166
|
+
|
|
167
|
+
Call AutoIncrement(MaxRow)
|
|
168
|
+
|
|
169
|
+
End If
|
|
170
|
+
|
|
171
|
+
```
|
|
146
172
|
|
|
147
173
|
ずっとテーブルフィルターについて調べていたのですが、
|
|
148
174
|
|