Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/FindNext в функции - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » FindNext в функции (Макросы/Sub)
FindNext в функции
Fidgy Дата: Вторник, 08.05.2018, 13:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день, прошу помочь с пользовательской функцией

Пример во вложении

В примере есть процедура "test1" и функция "test2"

И процедура и функция почти аналогичны
Но в процедуре .Find и .FindNext находят значения
А в функции .FindNext = Nothing

Не могу понять в чем дело, или что я делаю не так
 
Ответить
СообщениеДобрый день, прошу помочь с пользовательской функцией

Пример во вложении

В примере есть процедура "test1" и функция "test2"

И процедура и функция почти аналогичны
Но в процедуре .Find и .FindNext находят значения
А в функции .FindNext = Nothing

Не могу понять в чем дело, или что я делаю не так
Автор - Fidgy
Дата добавления - 08.05.2018 в 13:52
Fidgy Дата: Вторник, 08.05.2018, 13:56 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Что-то не получилось прикрепить вложение
К сообщению приложен файл: 0589580.xlsm(13.8 Kb)
 
Ответить
СообщениеЧто-то не получилось прикрепить вложение
Автор - Fidgy
Дата добавления - 08.05.2018 в 13:56
_Boroda_ Дата: Вторник, 08.05.2018, 14:23 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12749
Репутация: 5227 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
FindNext в функциях безобразничает. Лучше не использовать.
Вот такой вариант
[vba]
Код
Function test2(arr As Range, GG)
    Dim c As Range, c2 As Range
    Set c = arr.Find(GG, LookIn:=xlValues)
    Set c2 = arr.Find(GG, After:=Range(c.Address))
    test2 = c.Address & " " & c2.Address
End Function
[/vba]
К сообщению приложен файл: 0589580_1.xlsm(14.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеFindNext в функциях безобразничает. Лучше не использовать.
Вот такой вариант
[vba]
Код
Function test2(arr As Range, GG)
    Dim c As Range, c2 As Range
    Set c = arr.Find(GG, LookIn:=xlValues)
    Set c2 = arr.Find(GG, After:=Range(c.Address))
    test2 = c.Address & " " & c2.Address
End Function
[/vba]
Автор - _Boroda_
Дата добавления - 08.05.2018 в 14:23
Fidgy Дата: Вторник, 08.05.2018, 14:54 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Помогло, большое спасибо
 
Ответить
СообщениеПомогло, большое спасибо
Автор - Fidgy
Дата добавления - 08.05.2018 в 14:54
_Boroda_ Дата: Вторник, 08.05.2018, 14:57 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12749
Репутация: 5227 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Что-то я перемудрил
[vba]
Код
Function test2(arr As Range, GG)
    Dim c As Range, c2 As Range
    Set c = arr.Find(GG, LookIn:=xlValues)
    Set c2 = arr.Find(GG, After:=c)
    test2 = c.Address & " " & c2.Address
End Function
[/vba]
К сообщению приложен файл: 0589580_2.xlsm(14.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧто-то я перемудрил
[vba]
Код
Function test2(arr As Range, GG)
    Dim c As Range, c2 As Range
    Set c = arr.Find(GG, LookIn:=xlValues)
    Set c2 = arr.Find(GG, After:=c)
    test2 = c.Address & " " & c2.Address
End Function
[/vba]
Автор - _Boroda_
Дата добавления - 08.05.2018 в 14:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » FindNext в функции (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!