VBAの文字列（セルとセルの部分一致を返す）をしたいのです。

Question

VBAの文字列（セルとセルの部分一致を返す）をしたいのです。
1.セルE5から以下のデータ表が入力されています。
AA,6600/110V
6600/110V,AA
6600/110V　

セルAAに例えば、6600/110Vと入力します。
これが上の文字列に含まれている場合、
セルVにその結果をPT比照合済と入力したいのです。

さらにPT照合済の場合、データ表でセルの色を赤色にしたいのですが、
方法を教えて下さい。（以前も同じような依頼しましたが、教えて下さい。）

Subセルの比較（）
Dim i As Long
'行5から行の最後（表の最終行）まで
'Cells(Rows.Count, 1).End(xlUp).Rowはデータの最後の行数を取得する
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, "AA").Value = "6600/110V" Then
    ElseIf InStr(Cells(i, "E"), "*6600/110V*") > 0 Then
        Cells(i, "V") = "PT比照合済"
        
End If
Next
End Sub

Comments

[meg_]

・コードは「コードの挿入」で記入してください。
・質問者さんが考えたコードの結果は何ですか？

[gom-49]

以下の通りです。
Sub セル比較()
Dim i As Long
'行5から行の最後（表の最終行）まで
'Cells(Rows.Count, 1).End(xlUp).Rowはデータの最後の行数を取得する
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, "AA").Value = "6600/110V" Then
ElseIf InStr(Cells(i, "E"), "*6600/110V*") > 0 Then
Cells(i, "V") = "PT比照合済"

End If
Next
End Sub

[YakumoSaki]

答えではないのですが、マクロの記録 機能を使って、希望の操作をすると、マクロとして
VBAのコードが吐き出されます。それを必要な部分だけ抜き出して使うととても便利です。

[meg_]

インデントが分かりませんので、コードは「コードの挿入」で記入してください。（質問を編集してください）

[gom-49]

質問を編集しました。宜しくお願いします。

Answer 1

質問者の説明がわかりにくいですが、「6600/110V」は単なる一例で、実際にはもっといろいろな値がAA列には設定されるということなんですかね。

「セルAAn (n >=5)に入力された文字列が、セルEnの値に含まれていたら、セルVnの値を『PT比照合済』に変更する」という問題だとして、以下のコードを提示します。

Sub Hogehoge()
  For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, "AA") <> "" And InStr(Cells(i, "E").Value, Cells(i, "AA")) > 0 Then
      Cells(i, "V").Value = "PT比照合済"
      Cells(i, "V").Interior.ColorIndex = 3
    End If
  Next
End Sub

ついでなので、上のコードではセルの背景色を赤に変更していますが、これはデータ表のV列に条件付き書式として設定しておいてもいいかと思います。

Comments

[gom-49]

ありがとうございます。試しましたが、デバッグF8を押して試すと、ForからEnd Subに飛ぶのでifのところが実行されません。
何か設定の問題でしょうか？

[Daregada]

こちらでは正常に動いています。
AA5以降のセルに「6600/110V」などは設定されていますか。

それでも動かないときは、「Cells(Rows.Count, 1).End(xlUp).Row」を10とか適当な値に一時的に変更して動かしてみてください。

[gom-49]

動きました。とても勉強になりました。ありがとうございました。

Answer 2

InStr関数を用いる場合、文字列の　*（ワイルドカード）は不要です。

InStr(1, Cells(i, "E").Value, "6600/110V") > 0
'InStr(Cells(i, "E"), "6600/110V") > 0

<追記>
AA列が6600/110Vの場合に部分一致判定するコードに修正しました。

    If Cells(i, "AA").Value = "6600/110V" Then
        ’AA列が6600/110Vの場合
        If InStr(1, Cells(i, "E").Value, "6600/110V") > 0 Then
            Cells(i, "V").Value = "PT比照合済"
        End If
    End If

<追記2>
AA列に V を含む文字が入力されている場合にIF文を実行するよう修正しました。
Trim関数でAA列の文字に左右の空白がある場合、これを取り除いて、部分一致判定させています。

    If InStr(1, Cells(i, "AA").Value, "V") > 0 Then
    'AA列に V を含む文字が入力されている場合にIF文実行
        If InStr(1, Cells(i, "E").Value, Trim(Cells(i, "AA").Value)) > 0 Then
        '↑AA列の文字から左右の空白を除去して、部分一致判定
            Cells(i, "V").Value = "PT比照合済"
        End If
    End If

Comments

[gom-49]

ありがとうございます。
ワイルドカードを外したのですが、うまくなりません。私の考えたものでおかしな箇所他にありますか？

[TanakaHiroaki]

表の構成がわからないので、どこが間違っているのかわかりません。
例えば、AA列は何が入っているのでしょうか。

[gom-49]

AA列には6600/110Vとしか入っていません。
これとE列に文字列があるので6600/110Vを含んでいればセルの色を変えるというのが最終目標です。

[TanakaHiroaki]

AA列が6600/110Vの場合に部分一致判定するコードを追記しました。
やりたいことに近づいたかどうか確認してみてください。

[gom-49]

ありがとうございます。セルがE5からE30までセルを入力してますが、E6,E7にしか実行結果が反映されません。エクセルを添付してコメントしようとしましたができなかったのですみませんが、宜しくお願いします。

[TanakaHiroaki]

AA列の文字列に余分なスペースが入っていないか確認をお願いします。

[gom-49]

余分なスペースがありました。今度はきちんと動きました。ありがとうございました。

[TanakaHiroaki]

AA列の文字列に余分なスペースがあっても動作するコードを追記しましたので参考にしてください。