VBA - Найти определенные строки в листе

Question

Я хочу, чтобы создать либо макрос или UDF, который может найти ячейки в листе первенствовать, который содержит следующее: POxxx PO ххххххх PO # ххххх PO # хххх (С x - числа) Строка может быть в начале или в середине ячеек. Кроме того, функция/macro не должна находить ячейки, содержащие записи типа CORPORATE, где PO является частью слова.

Все ячейки, содержащие соответствующие данные, должны быть выделены.

Answer 1

Этот небольшой UDF вернется является матч присутствует, в противном случае

Public Function IsItThere(r As Range) As Long 
    Dim st As String 
    st = "0,1,2,3,4,5,6,7,8,9" 
    ary = Split(st, ",") 
    st = r.Text 
    IsItThere = 1 
    For Each a In ary 
    If InStr(1, st, "PO" & a) > 1 Then Exit Function 
    If InStr(1, st, "PO " & a) > 1 Then Exit Function 
    If InStr(1, st, "PO#" & a) > 1 Then Exit Function 
    If InStr(1, st, "PO# " & a) > 1 Then Exit Function 
    Next a 
    IsItThere = 0 
End Function 

Вы также можете использовать регулярные выражения, чтобы найти нужный шаблон.

Answer 2

Попробуйте это:

Sub Tester() 
    Dim c As Range 
    For Each c In Selection.Cells 
     c.Interior.Color = IIf(RegexpTest(c.Value), vbRed, vbGreen) 
    Next c 
End Sub 


Function RegexpTest(v As String) 
    Static re As Object 'note static: you must reset the VB environment 
         ' (press the "stop" button) if you edit the 
         ' Pattern below 
    If re Is Nothing Then 
     Set re = CreateObject("VBScript.RegExp") 
     '"PO" then optional #, optional space, then 2-5 digits 
     re.Pattern = "PO#?\s?\d{2,5}" 
     re.ignorecase = True 
    End If 
    RegexpTest = re.test(v) 
End Function