Sukurkite akronimus iš teksto eilučių
Ši funkcija įvertina akronimus iš eilučių, ty sujungia pirmąją raidę kiekviename eilutės žodyje. Pvz., „Medžiai yra žali“ tampa „TAG“.
Rutina pereina kiekvieną eilutės simbolį ir, jei tai yra tarpas, tada jis užima kitą eilutės simbolį. Prieš įvertindama eilutę, ji pašalina visas galines ir pasikartojančias tarpus.
Funkcija Acroymn (Original_String As String) Kaip eilutė Dim Trimmed_String Kaip String Dim Length Kaip Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'nustato eilutės ilgį Length = Len (Trimmed_String) Acroymn = UCase (Left (Trimmed_String, 1)) Pos = 2 iki ilgio - 1 If (Mid (Trimmed_String, Pos, 1) = "") Tada Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Pabaigos funkcija
Taigi, pavyzdžiui:
„Acroymn“ („British Broadcasting Corporation“) duoda BBC
„Acroymn“ („Funky“) suteikia F.
Acroymn („“) suteikia NULL
Norėdami atsisiųsti .XLSM failą iš straipsnio, spustelėkite čia
