回答編集履歴
2
コード修正
answer
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
Dim i As Long
|
|
8
8
|
|
|
9
|
-
Sheets("
|
|
9
|
+
Sheets("Sheet1").Range("A1:A100").Interior.ColorIndex = 0 `
|
|
10
10
|
|
|
11
11
|
For i = 1 To 100
|
|
12
12
|
|
1
コード修正
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
どのようにうまくいかないのか不明ですが、
|
|
1
|
+
~~どのようにうまくいかないのか不明ですが、~~（radames1000さんの回答の指摘がうまくいかない原因でしょう。）
|
|
2
2
|
とりあえず、最初に背景色を初期化しておいた方がいいのでは。
|
|
3
3
|
|
|
4
4
|
```vba
|
|
@@ -10,11 +10,12 @@
|
|
|
10
10
|
|
|
11
11
|
For i = 1 To 100
|
|
12
12
|
|
|
13
|
-
If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), Sheets("Sheet1").Cells(i, 1)) >
|
|
13
|
+
If WorksheetFunction.CountIf(Sheets("Sheet2").Range("A1:A100"), Sheets("Sheet1").Cells(i, 1)) > 0 Then
|
|
14
14
|
|
|
15
15
|
Sheets("Sheet1").Cells(i, 1).Interior.ColorIndex = 6
|
|
16
16
|
|
|
17
17
|
End If
|
|
18
18
|
Next i
|
|
19
19
|
End Sub
|
|
20
|
-
```
|
|
20
|
+
```
|
|
21
|
+
※
|