回答編集履歴

2

コード再追記

2020/07/24 07:09

投稿

TanakaHiroaki
TanakaHiroaki

スコア1063

test CHANGED
@@ -27,3 +27,29 @@
27
27
  End If
28
28
 
29
29
  ```
30
+
31
+
32
+
33
+ **<追記2>**
34
+
35
+ AA列に V を含む文字が入力されている場合にIF文を実行するよう修正しました。
36
+
37
+ Trim関数でAA列の文字に左右の空白がある場合、これを取り除いて、部分一致判定させています。
38
+
39
+ ```VBA
40
+
41
+ If InStr(1, Cells(i, "AA").Value, "V") > 0 Then
42
+
43
+ 'AA列に V を含む文字が入力されている場合にIF文実行
44
+
45
+ If InStr(1, Cells(i, "E").Value, Trim(Cells(i, "AA").Value)) > 0 Then
46
+
47
+ '↑AA列の文字から左右の空白を除去して、部分一致判定
48
+
49
+ Cells(i, "V").Value = "PT比照合済"
50
+
51
+ End If
52
+
53
+ End If
54
+
55
+ ```

1

VBAコード追記

2020/07/24 07:09

投稿

TanakaHiroaki
TanakaHiroaki

スコア1063

test CHANGED
@@ -5,3 +5,25 @@
5
5
  InStr(1, Cells(i, "E").Value, "6600/110V") > 0
6
6
 
7
7
  'InStr(Cells(i, "E"), "*6600/110V*") > 0
8
+
9
+
10
+
11
+ **<追記>**
12
+
13
+ AA列が6600/110Vの場合に部分一致判定するコードに修正しました。
14
+
15
+ ```VBA
16
+
17
+ If Cells(i, "AA").Value = "6600/110V" Then
18
+
19
+ ’AA列が6600/110Vの場合
20
+
21
+ If InStr(1, Cells(i, "E").Value, "6600/110V") > 0 Then
22
+
23
+ Cells(i, "V").Value = "PT比照合済"
24
+
25
+ End If
26
+
27
+ End If
28
+
29
+ ```