Innholdsfortegnelse
Lag forkortelser fra tekststrenger
Følgende funksjon evaluerer akronymer fra strenger, det vil si at den kombinerer den første bokstaven i hvert ord i en streng. For eksempel "trær er grønne" blir "TAG".
Rutinen krysser hvert tegn i en streng, og hvis det er et mellomrom, tar det neste tegn i strengen. Før du evaluerer strengen, fjerner den alle etterfølgende og dupliserte mellomrom.
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) 'work out the length of the string Length = Len (Trimmed_String) Acroymn = UCase (Venstre (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Midt (Trimmed_String, Pos, 1) = "") Da Acroymn = Acroymn & UCase (Midt (Trimmed_String, Pos + 1, 1)) Slutt hvis neste pos. Sluttfunksjon
Så for eksempel:
Acroymn ("British Broadcasting Corporation") gir BBC
Acroymn ("Funky") gir F
Acroymn (“”) gir NULL
Klikk her for å laste ned .XLSM -filen fra artikkelen
