Calcola acronimi da stringhe di testo - Esempi di codice VBA

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

wave wave wave wave wave