@ganbaruzoposted at 2022-08-13

VBA Find関数を使って、e3:e5の条件で部分一致する、a2:a21に塗りつぶしをしたい

Q&A

Closed

Find関数を使って、e3:e5の条件で部分一致する、a2:a21に塗りつぶしをしたいのですが、上手くいきません。因みにlike演算子とInstr関数、調べて、なんとか出来ました。
大変お手数ですが、どなたか、ご存じの方、教えて頂けないでしょうか？

出ているエラーメッセージを入力

例）

NameError (uninitialized constant World)

または、問題・エラーが起きている画像をここにドラッグアンドドロップ

該当するソースコード

Sub Find条件一致()
  Dim c As Object
  Dim r As Range
  Dim myKey As Variant

    For Each r In Range("A2:A21")
        myKey = Left(r.Value, 5)
'        Stop
        Set c = Range("E2:E5").find(myKey & "*", LookAt:=xlPart) '←多分、ここがおかいのではと思います。
'        Stop
        If c Is Nothing Then
        Else
            r.Interior.ColorIndex = 4

        End If
    Next r
End Sub

例）

def greet
  puts Hello World
end

VBA find関数部分一致でネット検索したのですが、分かりませんでした。

1Answer

@YoshitakaOkada posted at 2022-08-14

実際のところ、プログラムは関数のように処理を勝手にまとめてはくれません（もっというとexcelの関数も裏で結局同じことをしている）。findを使ったタイミングで「findがええかんじに結果持ってきてくれるやろ」と横着してE列側のループを作らなかったのが今回の症状の顛末です（myKeyは左5桁にする意味が特になさそうなので削ってあります）

findはひとつのセルにひとつのキーワードで検索をかける関数です
つまるところ「リスト×商品名」の処理数が必要

Sub Find条件一致()
  Dim c As Object
  Dim r As Range
  Dim myKey As Variant

    For Each r In Range("A2:A21")
        For Each word In Range("E2:E5")
            Set c = r.Find(word.Value, LookAt:=xlPart)
            If Not c Is Nothing Then
                r.Interior.ColorIndex = 4
            End If
        Next word
    Next r
End Sub

2Like

Comments

@ganbaruzo
Questioner
返事、遅くなりました。For Eachがもう一つ、いるんですね。一つ勉強になりました。分かりやすく、親切に、説明して下さり、誠に有難うございます。と同時に大変、助かりました。

Are you sure you want to delete the question?

VBA Find関数を使って、e3:e5の条件で部分一致する、a2:a21に塗りつぶしをしたい

該当するソースコード

1Answer

Comments

Your answer might help someone💌