Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Формула для аббревиатуры
 
Есть формула, которая составляет аббревиатуру из первых букв трех слов:
Код
=ПРОПИСН(ЛЕВСИМВ(A1;1)&ПСТР(A1;ДЛСТР(ЛЕВСИМВ(A1;НАЙТИ(" ";A1)+1));1)&ПСТР(A1;ДЛСТР(ЛЕВСИМВ(A1;НАЙТИ(" ";A1;ДЛСТР(ЛЕВСИМВ(A1;НАЙТИ(" ";A1)))+1)))+1;1))

Как ее изменить для получения аббревиатуры из четырех слов?
Изменено: strawberryjam - 23 Апр 2015 22:26:45
 
И для трех, и для четырех:
=ЛЕВСИМВ(A1)&ПСТР(A1;ПОИСК(" ";A1)+1;1)&ПСТР(A1;ПОИСК(":";ПОДСТАВИТЬ(A1;" ";":";2))+1;1)&ПСТР(A1;ПОИСК(":";ПОДСТАВИТЬ(A1&" ";" ";":";3))+1;1)
 
Можно вот такой UDF, ей все равно сколько слов
Код
Function GetAbbr(Sorce As String) As String
Dim arr
arr = Split(Sorce)
For i = 0 To UBound(arr)
GetAbbr = GetAbbr & Left(arr(i), 1)
Next i
GetAbbr = UCase(GetAbbr)
End Function

Страницы: 1
Читают тему (гостей: 1)