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

Как ее изменить для получения аббревиатуры из четырех слов?
Изменено: strawberryjam - 23.04.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

 
МВТ, огромное спасибо за UDF.Идеальное решение
 
Цитата
написал:
Можно вот такой UDF, ей все равно сколько слов
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8      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   
 
Изменено: Evgen Evgen - 18.11.2022 12:32:56
 
Долго бился, для таких как я, первая сточка должна  выглядеть так:

Public Function GetAbbr(Sorce As String) As String

Автору спасибо, все работает.
 
365
Код
=ОБЪЕДИНИТЬ("";;ПСТР(ТЕКСТРАЗД(A1;" ";);1;1))
Страницы: 1
Наверх