Spisie treści
Twórz akronimy z ciągów tekstu
Poniższa funkcja ocenia akronimy z ciągów, tj. łączy pierwszą literę w każdym słowie w ciągu. Np. „drzewa są zielone” staje się „TAG”.
Procedura przechodzi przez każdy znak w ciągu, a jeśli jest to spacja, przyjmuje następny znak w ciągu. Przed oceną ciągu usuwa wszystkie końcowe i zduplikowane spacje.
Function 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) 'oblicz długość ciągu Length = Len(Trimmed_String) Acroymn = UCase (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 Koniec funkcji
Na przykład:
Acroymn („British Broadcasting Corporation”) daje BBC
Acroymn („Funky”) daje F
Akronim („”) daje NULL
Aby pobrać plik .XLSM z artykułu, kliknij tutaj
