回答編集履歴
2
誤字訂正
answer
CHANGED
|
@@ -56,7 +56,7 @@
|
|
|
56
56
|
For Each c In Rng
|
|
57
57
|
If .CountIf(Rng, c) > 1 Then
|
|
58
58
|
ixColor = vbRed
|
|
59
|
-
ElseIf .CountIf(
|
|
59
|
+
ElseIf .CountIf(mrngTable.Columns(1), c) = 0 Then
|
|
60
60
|
ixColor = vbBlue
|
|
61
61
|
Else
|
|
62
62
|
ixColor = xlNone
|
1
追記
answer
CHANGED
|
@@ -72,4 +72,7 @@
|
|
|
72
72
|
|
|
73
73
|
CountIf関数で処理速度が不満なら、
|
|
74
74
|
その時に、それに代わる関数を自作したら
|
|
75
|
-
よいかと思います。
|
|
75
|
+
よいかと思います。
|
|
76
|
+
|
|
77
|
+
※動作確認は行っていません。
|
|
78
|
+
処理の流れのイメージを再確認してください。
|