質問編集履歴
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
1.セルE5から以下のデータ表が入力されています。
|
|
3
3
|
AA,6600/110V
|
|
4
4
|
6600/110V,AA
|
|
5
|
-
6600/110V
|
|
5
|
+
6600/110V
|
|
6
6
|
|
|
7
7
|
セルAAに例えば、6600/110Vと入力します。
|
|
8
8
|
これが上の文字列に含まれている場合、
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,8 +11,8 @@
|
|
|
11
11
|
さらにPT照合済の場合、データ表でセルの色を赤色にしたいのですが、
|
|
12
12
|
方法を教えて下さい。（以前も同じような依頼しましたが、教えて下さい。）
|
|
13
13
|
|
|
14
|
-
|
|
14
|
+
```VBA
|
|
15
|
-
Sub
|
|
15
|
+
Subセルの比較（）
|
|
16
16
|
Dim i As Long
|
|
17
17
|
'行5から行の最後（表の最終行）まで
|
|
18
18
|
'Cells(Rows.Count, 1).End(xlUp).Rowはデータの最後の行数を取得する
|
|
@@ -23,4 +23,6 @@
|
|
|
23
23
|
|
|
24
24
|
End If
|
|
25
25
|
Next
|
|
26
|
-
End Sub
|
|
26
|
+
End Sub
|
|
27
|
+
|
|
28
|
+
```
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,8 +12,6 @@
|
|
|
12
12
|
方法を教えて下さい。（以前も同じような依頼しましたが、教えて下さい。）
|
|
13
13
|
|
|
14
14
|
|
|
15
|
-
|
|
16
|
-
私が考えた以下のプログラム
|
|
17
15
|
Sub セル比較()
|
|
18
16
|
Dim i As Long
|
|
19
17
|
'行5から行の最後（表の最終行）まで
|