|
どうぞよろしくお願いします。
FINDにて一つの条件で検索をかけていたのですが、
複数条件で検索をかけることは可能でしょうか?
A B C D ・・・・ L
1 1 001-1-22222 あ い ・・ 1X
2 2 003-1-77777 う え ・・ 1X
3 3 056-3-55555 か な ・・ 2X
4 ・ ……
・ ・
・検索条件としては、
・・・B列のうち「-1-」と入っていたらM列に「1X」と表示
としていたものを、
・・・B列のうち左から3文字が「001から050」だったらはM列に「1X」、
・・・「051から100」だったらM列に「2X」と表示させたいのです・・
すべてのセルの書式は標準です。エクセルは2000使用しております。
Sub kensaku()
Dim C As Object
Dim mykey As String, fAddress As String
mykey = "-1-"
With Worksheets("Sheet1").Columns("B")
Set C = .Find(what:=mykey, LookIn:=xlValues, lookat:=xlPart, _
searchorder:=xlByColumns, matchbyte:=False)
If Not C Is Nothing Then
fAdress = C.Address
Do
C.Offset(0, 10) = "1X"
Set C = .FindNext(C)
If C.Address = fAddress Then Exit Sub
Loop
End If
End With
End Sub
Like演算子での検索でしたら可能なのでしょうか?
アドバイスいただければ、と思います、よろしくお願い致します。
|
|