FindNext в функции
Fidgy
Дата: Вторник, 08.05.2018, 13:52 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация:
11
±
Замечаний:
0% ±
Excel 2016
Добрый день, прошу помочь с пользовательской функцией Пример во вложении В примере есть процедура "test1" и функция "test2" И процедура и функция почти аналогичны Но в процедуре .Find и .FindNext находят значения А в функции .FindNext = Nothing Не могу понять в чем дело, или что я делаю не так
Добрый день, прошу помочь с пользовательской функцией Пример во вложении В примере есть процедура "test1" и функция "test2" И процедура и функция почти аналогичны Но в процедуре .Find и .FindNext находят значения А в функции .FindNext = Nothing Не могу понять в чем дело, или что я делаю не так Fidgy
Ответить
Сообщение Добрый день, прошу помочь с пользовательской функцией Пример во вложении В примере есть процедура "test1" и функция "test2" И процедура и функция почти аналогичны Но в процедуре .Find и .FindNext находят значения А в функции .FindNext = Nothing Не могу понять в чем дело, или что я делаю не так Автор - Fidgy Дата добавления - 08.05.2018 в 13:52
Fidgy
Дата: Вторник, 08.05.2018, 13:56 |
Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация:
11
±
Замечаний:
0% ±
Excel 2016
Что-то не получилось прикрепить вложение
Что-то не получилось прикрепить вложение Fidgy
Ответить
Сообщение Что-то не получилось прикрепить вложение Автор - Fidgy Дата добавления - 08.05.2018 в 13:56
_Boroda_
Дата: Вторник, 08.05.2018, 14:23 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация:
6612
±
Замечаний:
±
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]
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_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация:
11
±
Замечаний:
0% ±
Excel 2016
Помогло, большое спасибо
Помогло, большое спасибо Fidgy
Ответить
Сообщение Помогло, большое спасибо Автор - Fidgy Дата добавления - 08.05.2018 в 14:54
_Boroda_
Дата: Вторник, 08.05.2018, 14:57 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация:
6612
±
Замечаний:
±
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]
Что-то я перемудрил [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_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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