(VBA Excel) Настройка стиля для результата .Find() не работает

Question

Я написал функцию, которая запрашивает базу данных для определенных записей, и что мне нужно сделать, это отфильтровать результаты. Я решил, что самым простым способом было бы использовать метод .Find в диапазоне и установить стиль ячеек, а затем фильтровать на основе стиля. Проблема, которую я испытываю, заключается в том, что я не могу применить какое-либо преобразование в ячейки по какой-то причине. Однако я могу прочитать значение результата .Find. Как изменить стиль?

Public Function WoRecR(workOrders As Range) 
    Dim cell As Range 
    Dim cn As Object 
    Dim command As Object 
    Dim results As Object 
    Dim searchResult As Range 
    Dim field As Object 
    Dim criteria As String 

    Set cn = New ADODB.Connection 
    Set command = New ADODB.command 
    Set results = New ADODB.Recordset 
    criteria = "" 

    For Each cell In workOrders 
     If (Not IsEmpty(cell.Value)) Then 
      criteria = "DOCINDEX1='" & cell.Value & "' OR " & criteria 
     End If 
    Next cell 
    criteria = "(" & Left(criteria, Len(criteria) - 4) & ") " 
    With cn 
     .ConnectionString = "Provider=SQLOLEDB.1;" & _ 
          "Persist Security Info=True;" & _ 
          "Data Source=*********;" & _ 
          "DATABASE=******;" & _ 
          "UID=******;" & _ 
          "PWD=******;" 
     .Open 
    End With 
    On Error GoTo CloseCon 
    command.ActiveConnection = cn 
    command.CommandText = "SELECT DOCINDEX1 FROM PVDM_DOCS_1_4 WHERE " & criteria & " AND DOCINDEX9!='Phone' " & _ 
          "AND DATEDIFF(YEAR, GETDATE(), DOCINDEX10) > -2;" 
    command.CommandType = adCmdText 
    command.Execute 

    results.ActiveConnection = cn 
    results.Open command 

    While Not results.EOF 
     Set searchResult = workOrders.Find(What:=results.Fields(0).Value) 
     Debug.Print searchResult.Value 
     searchResult.Style = "Good" 
     results.MoveNext 
    Wend 
    cn.Close 

CloseCon: 
    If Err.Number Then Debug.Print Err.Description 
End Function 

Точная часть кода, что я имею в виду это:

  While Not results.EOF 
       Set searchResult = workOrders.Find(What:=results.Fields(0).Value) 
       Debug.Print searchResult.Value 
       searchResult.Style = "Good" 
       results.MoveNext 
      Wend 

Answer 1

Вы уверены, что вы получаете результат .Find()? Попробуйте это, если:

 While Not results.EOF 
      Set searchResult = workOrders.Find(What:=results.Fields(0).Value) 
      If Not searchResult is Nothing then 
       Debug.Print searchResult.Value 
       searchResult.Style = "Good" 
      Else 
       MsgBox ("nothing found") 'for debugging purposes only 
      End If 
      results.MoveNext 
     Wend