質問編集履歴
1
オートフィルタと書くべきところ、一部がオートフィルとなっておりややこしかったので統一しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,17 +2,17 @@
|
|
|
2
2
|
|
|
3
3
|
主にネットでググったりなどして自分で動かしながらやっています。
|
|
4
4
|
|
|
5
|
-
そこでオートフィルについて知識のある方からのご教示をいただきたく、相談させていただきました。
|
|
5
|
+
そこでオートフィルタについて知識のある方からのご教示をいただきたく、相談させていただきました。
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
現在、オートフィルした後の結果が何件あるかということを判断するコードを
|
|
9
|
+
現在、オートフィルタした後の結果が何件あるかということを判断するコードを
|
|
10
10
|
|
|
11
11
|
考えています。
|
|
12
12
|
|
|
13
|
-
今までは、オートフィルした後の結果から最終行を取得し、その値が「１」（見出し行）以外だったら
|
|
13
|
+
今までは、オートフィルタした後の結果から最終行を取得し、その値が「１」（見出し行）以外だったら
|
|
14
14
|
|
|
15
|
-
オートフィルした結果は０だということにしようと考えていました。
|
|
15
|
+
オートフィルタした結果は０だということにしようと考えていました。
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
|
|
32
32
|
|
|
33
|
-
'オートフィル
|
|
33
|
+
'オートフィルタ
|
|
34
34
|
|
|
35
35
|
.Range("A2").AutoFilter Field:=strfilter_Row, Criteria1:="=AAAA", Operator:=xlAnd, Criteria2:="=VVV"
|
|
36
36
|
|