回答編集履歴
2
コード修正
test
CHANGED
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
|
17
|
-
Sheets("Sheet
|
|
17
|
+
Sheets("Sheet1").Range("A1:A100").Interior.ColorIndex = 0 `
|
|
18
18
|
|
|
19
19
|
|
|
20
20
|
|
1
コード修正
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
どのようにうまくいかないのか不明ですが、
|
|
1
|
+
~~どのようにうまくいかないのか不明ですが、~~（radames1000さんの回答の指摘がうまくいかない原因でしょう。）
|
|
2
2
|
|
|
3
3
|
とりあえず、最初に背景色を初期化しておいた方がいいのでは。
|
|
4
4
|
|
|
@@ -22,7 +22,7 @@
|
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|
|
25
|
-
If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), Sheets("Sheet1").Cells(i, 1)) >
|
|
25
|
+
If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), Sheets("Sheet1").Cells(i, 1)) > 0 Then
|
|
26
26
|
|
|
27
27
|
|
|
28
28
|
|
|
@@ -37,3 +37,5 @@
|
|
|
37
37
|
End Sub
|
|
38
38
|
|
|
39
39
|
```
|
|
40
|
+
|
|
41
|
+
※
|