回答編集履歴
1
追記
answer
CHANGED
|
@@ -11,4 +11,30 @@
|
|
|
11
11
|
ではだめですか？
|
|
12
12
|
他にもいろいろエラーの回避方法はありますが、
|
|
13
13
|
やりたいこと及び前提条件（コードを実行する前にシート上ではどうなっているか）、
|
|
14
|
-
全体の処理の流れ及び、上手くいってないコード（できれば全部、長ければ一部）を提示してください。
|
|
14
|
+
全体の処理の流れ及び、上手くいってないコード（できれば全部、長ければ一部）を提示してください。
|
|
15
|
+
|
|
16
|
+
---
|
|
17
|
+
> 下記のようなmacroを作成しており、
|
|
18
|
+
> Criteria1 の値を変更したものを、
|
|
19
|
+
> 複数配置しているような形です。
|
|
20
|
+
> 新規シートでフィルター設定した後、
|
|
21
|
+
> 下記macroを何度か起動すれば再現されます。
|
|
22
|
+
>
|
|
23
|
+
> Sub filter()
|
|
24
|
+
> If ActiveSheet.FilterMode = True Then
|
|
25
|
+
> ActiveSheet.ShowAllData
|
|
26
|
+
> End If
|
|
27
|
+
> Range("A1").AutoFilter field:=1, Criteria1:=1
|
|
28
|
+
> End Sub
|
|
29
|
+
|
|
30
|
+
20回実行してみましたがエラーになりません。
|
|
31
|
+
シート上のイメージを質問文に追記してください。
|
|
32
|
+
|
|
33
|
+
あと、
|
|
34
|
+
フィルターが掛かった状態は、いつも保持しなければいけませんか？
|
|
35
|
+
ActiveSheet.AutoFilterMode = False
|
|
36
|
+
とするのは何がまずいのでしょうか？
|
|
37
|
+
|
|
38
|
+
いくつかエラーを回避する方法はあると思いますが、
|
|
39
|
+
全体の流れがわからないので、
|
|
40
|
+
この件の場合どうしたらいいかの提案ができません。
|