Tartalomjegyzék
Hozzon létre mozaikszavakat szövegszövegből
A következő függvény kiértékeli a betűszavakat a karakterláncokból, azaz összekapcsolja a karakterlánc minden szavának első betűjét. Pl. „A fák zöldek” „TAG” lesz.
A rutin áthalad a karakterlánc minden karakterén, és ha szóköz, akkor a karakterlánc következő karakterét veszi fel. A karakterlánc kiértékelése előtt eltávolítja az összes záró és duplikált szóközt.
Függvény Acroymn (Original_String As String) Mint String Dim Trimmed_String Mint String Dim Length as Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'dolgozza ki a karakterlánc hosszát Length = Len (Trimmed_String) Acroymn = UCase (Left (Vágott_String, 1)) Poz = 2 -ig - 1 Ha (Közép (Vágott_String, Poz, 1) = "") Akkor Acroymn = Acroymn & UCase (Közép (Trimmed_String, Pos + 1, 1)) Vége, ha a következő pozíció Vége funkció
Tehát például:
Acroymn („British Broadcasting Corporation”) ad a BBC -nek
Az Acroymn („Funky”) F -et ad
Az Acroymn („”) NULL értéket ad
A .XLSM fájl letöltéséhez a cikkből kattintson ide