Reverse stringhe in Excel VBA
Di seguito vedremo un programma in Excel VBA che può invertire le stringhe.
Situazione:
Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:
-
In primo luogo, si dichiara quattro variabili. Una variabile denominata testo di tipo stringa, una variabile denominata reversedText anche di tipo stringa, una variabile denominata lunghezza di tipo integer e una variabile i chiamata di tipo intero.
Dim text As String, reversedText As String, length As Integer, i As Integer
-
si inizializza due variabili. Usiamo la funzione InputBox per ottenere una stringa di testo da parte dell’utente. Usiamo la funzione Len in Excel VBA per ottenere la lunghezza di una stringa.
text = InputBox("Enter the text you want to reverse")
length = Len(text)
-
Iniziamo un ciclo For Next.
For i = 0 To length - 1
-
Ora arriva il semplice trucco. Prendiamo l’ultimo carattere da testo e posizionarlo nella parte anteriore della ReversedText. Possiamo usare la funzione Mid in Excel VBA per estrarre un carattere da una stringa. Usiamo l’operatore & per concatenare (join) due stringhe.
reversedText = reversedText & Mid(text, (length - i), 1)
-
Non dimenticare di chiudere il ciclo.
Next i
Esempio: text = “Auto”. La lunghezza del testo è 3. Per i = 0 e 2, si estrae la stringa di testo a partire lunghezza posizione – i con lunghezza 1. Pertanto, per i = 0, Mid (testo, 3, 1) è uguale a r. Abbiamo posto r alla prima posizione del reversedText. Per i = 1, Mid (testo, 2, 1) è uguale a. Aggiungiamo un a reversedText che diventa ra. Per i = 2, Mid (testo, 1, 1) è uguale a C. Aggiungiamo C a reversedText che diventa RAC.
-
Infine, visualizziamo reversedText utilizzando un MsgBox.
msgbox reversedText
-
Verificare il programma.
Risultato:
