Di seguito vedremo un programma in Excel VBA che può stringhe inverse.
Situazione:
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, dichiariamo quattro variabili. Una variabile denominata text di tipo String, una variabile denominata reversedText anch'essa di tipo String, una variabile denominata length di tipo Integer e una variabile denominata i di tipo Integer.
Dim text As String, reversedText As String, length As Integer, i As Integer
2. Inizializziamo due variabili. Usiamo la funzione InputBox per ottenere una stringa di testo dall'utente. Usiamo la funzione Len in Excel VBA per ottenere la lunghezza di una stringa.
text = InputBox("Inserisci il testo che vuoi invertire")
lunghezza = Len(testo)
3. Avviamo un ciclo For Next.
Per i = 0 Alla lunghezza - 1
4. Ora arriva il semplice trucco. Prendiamo l'ultimo carattere dal testo e lo posizioniamo davanti a ReversedText. Possiamo usare la funzione Mid in Excel VBA per estrarre un carattere da una stringa. Usiamo l'operatore & per concatenare (unire) due stringhe.
reversedText = reversedText & Mid(testo, (lunghezza - i), 1)
5. Non dimenticare di chiudere il ciclo.
Avanti io
Esempio: testo = "Auto". La lunghezza del testo è 3. Per i = da 0 a 2, estraiamo la sottostringa del testo a partire dalla posizione lunghezza - i con lunghezza 1. Quindi, per i = 0, Mid(testo, 3, 1) è uguale a r. Mettiamo r alla prima posizione di reversedText. Per i = 1, Mid(testo, 2, 1) è uguale a a. Aggiungiamo a a reversedText che diventa ra. Per i = 2, Mid(testo, 1, 1) è uguale a C. Aggiungiamo C a reversedText che diventa raC.
6. Infine, mostriamo reversedText usando un MsgBox.
msgbox reversedText
7. Testare il programma.
Risultato:
