回答編集履歴
2
こちらかがいいかも
answer
CHANGED
|
@@ -5,17 +5,4 @@
|
|
|
5
5
|
```VBA
|
|
6
6
|
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:=RGB(204, 255 _
|
|
7
7
|
, 255), Operator:=xlFilterCellColor
|
|
8
|
-
```
|
|
9
|
-
|
|
10
|
-
色の指定の順番を逆にするとうまくいくようです・・・。
|
|
11
|
-
|
|
12
|
-
```VBA
|
|
13
|
-
Sub Macro1()
|
|
14
|
-
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, _
|
|
15
|
-
Criteria1:=RGB(204, 255, 255), _
|
|
16
|
-
Operator:=xlFilterCellColor, _
|
|
17
|
-
Operator:=xlAnd, _
|
|
18
|
-
Criteria2:=RGB(150, 150, 150), _
|
|
19
|
-
Operator:=xlFilterCellColor
|
|
20
|
-
End Sub
|
|
21
8
|
```
|
1
こちらかがいいかも
answer
CHANGED
|
@@ -5,4 +5,17 @@
|
|
|
5
5
|
```VBA
|
|
6
6
|
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:=RGB(204, 255 _
|
|
7
7
|
, 255), Operator:=xlFilterCellColor
|
|
8
|
+
```
|
|
9
|
+
|
|
10
|
+
色の指定の順番を逆にするとうまくいくようです・・・。
|
|
11
|
+
|
|
12
|
+
```VBA
|
|
13
|
+
Sub Macro1()
|
|
14
|
+
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, _
|
|
15
|
+
Criteria1:=RGB(204, 255, 255), _
|
|
16
|
+
Operator:=xlFilterCellColor, _
|
|
17
|
+
Operator:=xlAnd, _
|
|
18
|
+
Criteria2:=RGB(150, 150, 150), _
|
|
19
|
+
Operator:=xlFilterCellColor
|
|
20
|
+
End Sub
|
|
8
21
|
```
|