Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Помогите пожалуйста с ВБА
 
#1
03.10.2009 14:44:38
Нужно встроить функцию в эксэль... которая повторяла бы полностью работу ПОИСКПОЗ!Помогите плиз)Очень нужно
 
 
 
#2
03.10.2009 15:05:52
{quote}{login=The_Prist}{date=03.10.2009 02:59}{thema=}{post}Интересно для каких целей. Но если надо, то запишите действия макрорекордером.  
Есть еще метод .Find, и Application.worksheetFunction.{/post}{/quote}  
 
ну цель у меня одна)) надо сдать контрольную работу в универ)Задание там большое...я его сделал, а вот с встраиванием уже существующих функций я  не знаком!Если не трудно... киньте исходник этой функции!А я разберусь как она работает!
 
 
 
#3
03.10.2009 15:22:26
Вот тебе упрощённая версия исходника:  
 
Function МойПоискПоз(ЧтоИщем As Variant, ГдеИщем As Range, ТипСопоставления As Integer) As Variant  
   Dim cell As Range: МойПоискПоз = 1  
   For Each cell In ГдеИщем.Cells  
       If cell = ЧтоИщем Then Exit Function  
       МойПоискПоз = МойПоискПоз + 1  
   Next cell  
End Function  
 
 
А вот пример файла с этой функцией: http://excelvba.ru/XL_Files/Sample__03-10-2009__17-22-02.zip  
(см. формулу в желтой ячейке: =МойПоискПоз(6;A1:A12;0) )
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
03.10.2009 15:22:27
{quote}{login=The_Prist}{date=03.10.2009 03:13}{thema=Re: Re: }{post}{quote}{login=gr0b}{date=03.10.2009 03:05}{thema=Re: }{post}киньте исходник этой функции!{/post}{/quote}Что значит встроить функцию? {/post}{/quote}  
Действительно - как можно "встроить" то, что УЖЕ встроено?
 
 
 
#5
03.10.2009 15:24:15
{quote}{login=EducatedFool}{date=03.10.2009 03:22}{thema=}{post}Вот тебе упрощённая версия исходника:  
 
Function МойПоискПоз(ЧтоИщем As Variant, ГдеИщем As Range, ТипСопоставления As Integer) As Variant  
   Dim cell As Range: МойПоискПоз = 1  
   For Each cell In ГдеИщем.Cells  
       If cell = ЧтоИщем Then Exit Function  
       МойПоискПоз = МойПоискПоз + 1  
   Next cell  
End Function  
 
 
А вот пример файла с этой функцией: http://excelvba.ru/XL_Files/Sample__03-10-2009__17-22-02.zip  
(см. формулу в желтой ячейке: =МойПоискПоз(6;A1:A12;0) ){/post}{/quote}  
 
 
Огромное спасибо))Очень помогли!Моя благодарность не знает границ!)
 
 
 
Страницы: 1
Читают тему
Наверх