回答編集履歴
2
コード再追記
answer
CHANGED
@@ -12,4 +12,17 @@
|
|
12
12
|
Cells(i, "V").Value = "PT比照合済"
|
13
13
|
End If
|
14
14
|
End If
|
15
|
+
```
|
16
|
+
|
17
|
+
**<追記2>**
|
18
|
+
AA列に V を含む文字が入力されている場合にIF文を実行するよう修正しました。
|
19
|
+
Trim関数でAA列の文字に左右の空白がある場合、これを取り除いて、部分一致判定させています。
|
20
|
+
```VBA
|
21
|
+
If InStr(1, Cells(i, "AA").Value, "V") > 0 Then
|
22
|
+
'AA列に V を含む文字が入力されている場合にIF文実行
|
23
|
+
If InStr(1, Cells(i, "E").Value, Trim(Cells(i, "AA").Value)) > 0 Then
|
24
|
+
'↑AA列の文字から左右の空白を除去して、部分一致判定
|
25
|
+
Cells(i, "V").Value = "PT比照合済"
|
26
|
+
End If
|
27
|
+
End If
|
15
28
|
```
|
1
VBAコード追記
answer
CHANGED
@@ -1,4 +1,15 @@
|
|
1
1
|
InStr関数を用いる場合、文字列の *(ワイルドカード)は不要です。
|
2
2
|
|
3
3
|
InStr(1, Cells(i, "E").Value, "6600/110V") > 0
|
4
|
-
'InStr(Cells(i, "E"), "*6600/110V*") > 0
|
4
|
+
'InStr(Cells(i, "E"), "*6600/110V*") > 0
|
5
|
+
|
6
|
+
**<追記>**
|
7
|
+
AA列が6600/110Vの場合に部分一致判定するコードに修正しました。
|
8
|
+
```VBA
|
9
|
+
If Cells(i, "AA").Value = "6600/110V" Then
|
10
|
+
’AA列が6600/110Vの場合
|
11
|
+
If InStr(1, Cells(i, "E").Value, "6600/110V") > 0 Then
|
12
|
+
Cells(i, "V").Value = "PT比照合済"
|
13
|
+
End If
|
14
|
+
End If
|
15
|
+
```
|