Stvorite kratice od nizova teksta
Sljedeća funkcija procjenjuje akronime iz nizova, tj. Spaja prvo slovo u svakoj riječi u nizu. Npr. "Drveće je zeleno" postaje "TAG".
Rutina prelazi svaki znak u nizu i ako je razmak tada uzima sljedeći znak u nizu. Prije ocjenjivanja niza uklanja sve zaostale i duplicirane razmake.
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) 'izračunate duljinu niza 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 Završna funkcija
Tako na primjer:
Acroymn ("British Broadcasting Corporation") daje BBC -u
Acroymn ("Funky") daje F
Acroymn ("") daje NULL
Kliknite ovdje da biste preuzeli .XLSM datoteku iz članka
