Sommario
Crea acronimi da stringhe di testo
La seguente funzione valuta gli acronimi dalle stringhe, ovvero concatena la prima lettera di ogni parola in una stringa. Ad esempio, "gli alberi sono verdi" diventa "TAG".
La routine attraversa ogni carattere in una stringa e, se è uno spazio, prende il carattere successivo nella stringa. Prima di valutare la stringa, rimuove tutti gli spazi finali e duplicati.
Function 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) 'calcola la lunghezza della stringa 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 Fine funzione
Quindi ad esempio:
Acroymn ("British Broadcasting Corporation") dà alla BBC
Acroymn ("Funky") dà F
Acroymn ("") dà NULL
Per scaricare il file .XLSM dall'articolo, clicca qui