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

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

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

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

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

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

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут