Ustvarite kratice iz nizov besedila
Naslednja funkcija ocenjuje kratice iz nizov, tj. Združuje prvo črko v vsaki besedi v nizu. Npr. "Drevesa so zelena" postane "TAG".
Rutina prečka vsak znak v nizu in če je presledek, potem vzame naslednji znak v nizu. Preden ovrednoti niz, odstrani vse zadnje in podvojene presledke.
Funkcija 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) 'določite dolžino niza Length = Len (Trimmed_String) Acroymn = UCase (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Potem Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Končaj funkcijo
Tako na primer:
Acroymn ("British Broadcasting Corporation") daje BBC
Acroymn ("Funky") daje F.
Acroymn (“”) daje NULL
Če želite prenesti datoteko .XLSM iz članka, kliknite tukaj
