Sempre nell’ottica di gestire le stringhe (vedi “Inverti il testo di una cella” e “StrReverse“) questa funzione separa una stringa contenente un separatore e ne inverte l’ordine.
In pratica, prendendo un testo tipo “Nome Cognome” usando
Gianmario_inverti_con_separatore (“Nome Cognome”;” “)
otterremo come risultato il testo “Cognome Nome”.
La funzione usa Split per creare una matrice unidimensionale di stringhe e UBound per scansirla con un ciclo For.
Codice
Public Function Gianmario_inverti_con_separatore (testo As String, separatore As String) Dim I As Integer Dim stringainversa As String parole = VBA.Split(testo, separatore) stringainversa = "" For I = UBound(parole) To 0 Step -1 stringainversa = stringainversa & parole(I) & separatore Next Gianmario_inverti_con_separatore = stringainversa End Function