кодирование функции excel VBA для поиска строки в диапазоне

Question

Я новичок в excel ... Я пытаюсь создать функцию, которая принимает текстовую строку в качестве параметра, обрезает ее (т. Е. Удаляет лишние пробелы в end и в начале), ищет первое вхождение строки в диапазоне (на другой электронной таблице) и возвращает фактическое содержимое этой ячейки. Я написал код ниже, но, тем не менее, я его настраиваю, это никогда возвращает что-нибудь !! Любая помощь будет высоко оценена!

Примечание: на сайте я нашел несколько примеров «подлодки», которые делают подобные вещи, но когда я пытаюсь преобразовать их в «функции», они никогда не работают ...

Public Function Find_First2(FindString As String) As String 

    Dim Rng As Range 

    If Trim(FindString) <> "" Then 
     With Sheets("Sheet1").Range("A:A") 
      Set Rng = .Find(What:=FindString, _ 
          After:=.Cells(.Cells.Count), _ 
          LookIn:=xlValues, _ 
          LookAt:=xlPart, _ 
          SearchOrder:=xlByRows, _ 
          SearchDirection:=xlNext, _ 
          MatchCase:=False) 

      If Not Rng Is Nothing Then 
       Find_First2 = Rng.Value 
      Else 
       Find_First2 = "" 
      End If 
     End With 
    End If 

End Function 

Answer 1

Вы проверяете эта обрезка не очистит всю строку, но вы все еще используете ее как есть. Я изменил несколько вещей, но я не понимаю, что это должно делать. Вы ищете строку, и если вы ее найдете, вы вернете ту же строку? В любом случае, вот код. Я тестировал его, и он работает. Он будет выглядеть в колонке A листа Feuil1 прямо сейчас. Модифицируйте в соответствии с вашими потребностями.

Sub test() 
    MsgBox Find_First2("aa") 
End Sub 

Public Function Find_First2(FindString As String) As String 

    Dim Rng As Range 
    Dim TrimString As String 

    TrimString = Trim(FindString) 

    If TrimString <> "" Then 
     With Sheets("Feuil1").Range("A:A") 'This is what you need to modify 
      Set Rng = .Find(What:=TrimString, _ 
          After:=.Cells(.Cells.Count), _ 
          LookIn:=xlValues, _ 
          LookAt:=xlPart, _ 
          SearchOrder:=xlByRows, _ 
          SearchDirection:=xlNext, _ 
          MatchCase:=False) 

      If Not Rng Is Nothing Then 
       Find_First2 = Rng.Value 
       MsgBox ("Found at: " & Rng.Address) 
      Else 
       Find_First2 = "" 
      End If 
     End With 
    End If 

End Function