エクセルで顧客データベースを作ってます。 あいまい検索が出来るVBAをこちらからコピーさせて頂きました。 Dim ans As Byte, l As Long, mystr() As String, r As Range, r1 As Range If Target.Count <> 1 Then Exit Sub If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then GoTo b mystr() = Split(Replace(Target.Value, " ", " "), " ") Set r = Target Do Set r = Columns(1).Find(what:=mystr(0), after:=r, lookat:=2) If r Is Nothing Or r.Address = "$A$1" Then GoTo a For i = 0 To UBound(mystr()) If InStr(r.Value, mystr(i)) = 0 And mystr(i) <> "" Then GoTo a Next r.Select ans = MsgBox(" 次を検索しますか？", vbYesNo) If ans = 7 Then Target.Select: Exit Sub Loop Exit Sub a: MsgBox ("検索条件に一致するものはありません") Target.Select Exit Sub b: MsgBox ("検索条件を入力してください") Target.Select End Sub これで検索はできるのですが、 A1セルにキーワードを入力してA列だけを検索する仕様になってます。 これを例えば、 C1セルにキーワード入力、E列を検索する もしくは C3セルにキーワード入力、C列を検索するなどするには、 どこを書き換えればいいのか、どなたかご教授ください。 VBAはまだまだ初心者です。 よろしくお願いいたします。
Visual Basic
