teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

コード再追記

2020/07/24 07:09

投稿

TanakaHiroaki
TanakaHiroaki

スコア1065

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コード追記

2020/07/24 07:09

投稿

TanakaHiroaki
TanakaHiroaki

スコア1065

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
+ ```