Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создат пользовательскую функцию для извлечения части из середины текста
 
#1
08.04.2020 07:14:10
приветствую всех.
можете подсказать на примере, как создать свою функцию в VBA, чтобы каждый раз не набирать эту команду в строке формулы ?

=ЛЕВСИМВ(ПРАВСИМВ(A1;12);4)
 
 
 
#2
08.04.2020 08:07:16
напишите так:
Код
Function ЛП412$(s$)
  ЛП412 = Left(Right(s, 12), 4)
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
08.04.2020 08:30:27
круто, спасибо.
а можно еще вопрос, как сделать, чтобы эта формула начиналась с =ЛП412, а не с =PERSONAL.XLSB!ЛП412
 
 
 
#4
08.04.2020 08:36:43
вариант:создайте имя ЛП412 с формулой
Код
=ЛЕВСИМВ(ПРАВСИМВ(Лист1!A1;12);4)
в ячейке пишете
Код
=ЛП412
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#5
08.04.2020 08:41:28
в персональной книге макросов создайте стандартный модуль и скопируйте текст этой функции в него или в любой аналогичный из уже существующих в персональной книге макросов модуль
обращайтесь к ней используя приведенную вами запись
только обратите внимание - на другом компьютере это не будет работать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
08.04.2020 11:23:51
Название темы
 
 
 
#7
08.04.2020 11:33:56
название темы:
написать пользовательскую функцию, которая из строки возьмет 4 левых символа из 12 правых
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#8
08.04.2020 11:41:58
Yastreb, про создание пользовательских функций можно почитать в "Приемах" эту статью.
 
 
 
Страницы: 1
Наверх