Indholdsfortegnelse
Opret akronymer ud fra tekststrenge
Den følgende funktion evaluerer akronymer fra strenge, dvs. den sammenkæder det første bogstav i hvert ord i en streng. F.eks. "Træer er grønne" bliver til "TAG".
Rutinen krydser hvert tegn i en streng, og hvis det er et mellemrum, tager det det næste tegn i strengen. Inden evalueringen af strengen fjerner den alle efterfølgende og dublerede mellemrum.
Funktion 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 Til Length - 1 If (Midt (Trimmed_String, Pos, 1) = "") Så Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Afslut funktion
Så for eksempel:
Acroymn ("British Broadcasting Corporation") giver BBC
Acroymn ("Funky") giver F
Acroymn (“”) giver NULL
Klik her for at downloade .XLSM -filen fra artiklen
