Функция в VBA вместо формулы

Пользователь

Сообщений: 831 Регистрация: 11.02.2021

18.02.2021 07:07:10

Есть формула стандартными функциями Excel. Как перевести ее действия в свою функцию в формате языка VBA?

Суть: в массив из диапазона, по циклу сравнить на совпадение вхождения слова из массива в строке, и выдача 1 или 0. Без экселевских кодов ошибки.

Прикрепленные файлы

Primer_01.xlsm (9.65 КБ)

Изменено: Marat Ta - 18.02.2021 07:45:05

БМВ

Модератор

Сообщений: 23319 Регистрация: 28.12.2016

Excel 2013, 2016

18.02.2021 07:44:18

что-то вроде

Код

Function IsPresent(A As String, b As Variant) As String
IsPresent = "0"
C = b
If IsArray(C) Then
   For Each c1 In C
      If InStr(A, c1) > 0 And Not IsEmpty(c1) Then
         IsPresent = "1"
         Exit Function
      End If
   Next
Else
   If InStr(A, C) > 0 And Not IsEmpty(C) Then IsPresent = "1"
End If
End Function

По вопросам из тем форума, личку не читаю.

Marat Ta Пользователь Сообщений: 831 Регистрация: 11.02.2021	#3 18.02.2021 08:13:34 Спасибо. Как раз то, что было нужно.