Функция поиска в Excel - VBA

Узнай цену своей работы

Формулировка задачи:

Написал функцию в Экселе, которое проверяет наличие значения из искомой ячейки на другом листе и возвращает да/нет. Сейчас она работает простым перебором строчек и сверкой наличия в определенной ячейке искомого значения, но строчек с данными на листе уже более 95 000 и хотелось бы как-то соптимизировать эту функцию. Плюс часто возникает проблема из-за разности форматов: в искомой ячейке вводится число (целое, 10 знаков), в колонке для поиска эти числа могут быть в числовом и текстовом формате, плюс в каких-то строках встречается просто текст (типа "без номера"). Как бы это тоже аккуратно обойти? Подскажите пжл в каком направлении покопать мануалы?

Решение задачи: «Функция поиска в Excel»

textual
Листинг программы
Function find_cell(f_cell As String)
Dim currCell As Range
 With Sheets(2)
          Set currCell = .Cells.Find(What:=f_cell, LookIn:=xlValues, LookAt:=xlWhole)
  If currCell Is Nothing Then
        find_cell = "Нет"
  Else
        find_cell = "да"
  End If
End With
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.857 из 5