Содержание
Создание сокращений из строк текста
Следующая функция оценивает аббревиатуры из строк, то есть объединяет первую букву в каждом слове в строке. Например, «деревья зеленые» превращается в «ТЕГ».
Подпрограмма просматривает каждый символ в строке и, если это пробел, берет следующий символ в строке. Перед оценкой строки он удаляет все завершающие и повторяющиеся пробелы.
Функция Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'определяет длину строки Length = Len (Trimmed_String) Acroymn = UCase (Left (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Then Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Конечная функция
Так например:
Acroymn («Британская радиовещательная корпорация») передает BBC
Acroymn («Веселый») дает F
Acroymn («») дает NULL
Чтобы загрузить файл .XLSM из статьи, щелкните здесь
