teratail
回答率
85.29%
質問するログイン新規登録
トップVBAに関する質問エクセル　項目の不一致　色を付ける

編集履歴

回答編集履歴

2

コードミス

2021/11/11 07:44

投稿

bebebe_
bebebe_

スコア520

answer CHANGED
@@ -14,7 +14,7 @@
14
14
  End If
15
15
 
16
16
  If ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i, 8).Value Then
17
- ActiveSheet.Cells(i, 5).Interior.Color = xlNone
17
+ ActiveSheet.Cells(i, 8).Interior.Color = xlNone
18
18
  Else
19
19
  ActiveSheet.Cells(i, 8).Interior.Color = vbYellow
20
20
  End If

1

＝の場合を追加

2021/11/11 07:44

投稿

bebebe_
bebebe_

スコア520

answer CHANGED
@@ -1,5 +1,5 @@
1
1
  一例として
2
- この場合ですとB列の空白をセルまで繰り返す形ですので途中に空白があった場合はそこで終わってしまいますが
2
+ この場合ですとB列の空白のセルまで繰り返す形ですので途中に空白があった場合はそこで終わってしまいますが
3
3
 
4
4
  ```ここに言語を入力
5
5
  Dim i As Integer
@@ -7,12 +7,16 @@
7
7
 
8
8
  Do Until ActiveSheet.Cells(i, 2).Value = ""
9
9
 
10
- If ActiveSheet.Cells(i, 2).Value <> ActiveSheet.Cells(i, 5).Value Then
10
+ If ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i, 5).Value Then
11
+ ActiveSheet.Cells(i, 5).Interior.Color = xlNone
12
+ Else
11
- ActiveSheet.Cells(i, 5).Interior.Color = vbYellow
13
+ ActiveSheet.Cells(i, 5).Interior.Color = vbYellow
12
14
  End If
13
15
 
14
- If ActiveSheet.Cells(i, 2).Value <> ActiveSheet.Cells(i, 8).Value Then
16
+ If ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i, 8).Value Then
17
+ ActiveSheet.Cells(i, 5).Interior.Color = xlNone
18
+ Else
15
- ActiveSheet.Cells(i, 8).Interior.Color = vbYellow
19
+ ActiveSheet.Cells(i, 8).Interior.Color = vbYellow
16
20
  End If
17
21
 
18
22
  i = i + 1