回答編集履歴
1
追記
test
CHANGED
|
@@ -25,3 +25,55 @@
|
|
|
25
25
|
やりたいこと及び前提条件（コードを実行する前にシート上ではどうなっているか）、
|
|
26
26
|
|
|
27
27
|
全体の処理の流れ及び、上手くいってないコード（できれば全部、長ければ一部）を提示してください。
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
---
|
|
32
|
+
|
|
33
|
+
> 下記のようなmacroを作成しており、
|
|
34
|
+
|
|
35
|
+
> Criteria1 の値を変更したものを、
|
|
36
|
+
|
|
37
|
+
> 複数配置しているような形です。
|
|
38
|
+
|
|
39
|
+
> 新規シートでフィルター設定した後、
|
|
40
|
+
|
|
41
|
+
> 下記macroを何度か起動すれば再現されます。
|
|
42
|
+
|
|
43
|
+
>
|
|
44
|
+
|
|
45
|
+
> Sub filter()
|
|
46
|
+
|
|
47
|
+
> If ActiveSheet.FilterMode = True Then
|
|
48
|
+
|
|
49
|
+
> ActiveSheet.ShowAllData
|
|
50
|
+
|
|
51
|
+
> End If
|
|
52
|
+
|
|
53
|
+
> Range("A1").AutoFilter field:=1, Criteria1:=1
|
|
54
|
+
|
|
55
|
+
> End Sub
|
|
56
|
+
|
|
57
|
+
|
|
58
|
+
|
|
59
|
+
20回実行してみましたがエラーになりません。
|
|
60
|
+
|
|
61
|
+
シート上のイメージを質問文に追記してください。
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
あと、
|
|
66
|
+
|
|
67
|
+
フィルターが掛かった状態は、いつも保持しなければいけませんか？
|
|
68
|
+
|
|
69
|
+
ActiveSheet.AutoFilterMode = False
|
|
70
|
+
|
|
71
|
+
とするのは何がまずいのでしょうか？
|
|
72
|
+
|
|
73
|
+
|
|
74
|
+
|
|
75
|
+
いくつかエラーを回避する方法はあると思いますが、
|
|
76
|
+
|
|
77
|
+
全体の流れがわからないので、
|
|
78
|
+
|
|
79
|
+
この件の場合どうしたらいいかの提案ができません。
|