回答編集履歴
1
追記しました。ｂが空白でない場合に色をつけるようにしました。
test
CHANGED
|
@@ -8,7 +8,11 @@
|
|
|
8
8
|
|
|
9
9
|
Else
|
|
10
10
|
|
|
11
|
+
If wksNew.Cells(r.row, r.Column).Value <> "" Then
|
|
12
|
+
|
|
11
|
-
wksNew.Cells(r.row, r.Column).Interior.Color = 65535 '黄色の定数
|
|
13
|
+
wksNew.Cells(r.row, r.Column).Interior.Color = 65535 '黄色の定数
|
|
14
|
+
|
|
15
|
+
End If
|
|
12
16
|
|
|
13
17
|
End If
|
|
14
18
|
|