Questo tutorial dimostrerà come utilizzare la funzione Right VBA per estrarre il testo da destra.
Funzione destra
VBA Funzione destra Ultimi n caratteri
La funzione VBA Right restituisce gli ultimi n caratteri da una stringa:
| 123456 | Sub RightEsempio_1()MsgBox Right("ABCDEFGHI", 4) 'Il risultato è: "FGHI"MsgBox Right("ABCDEFGHI", 2) 'Il risultato è: "HI"MsgBox Right("ABCDEFGHI", 1) 'Il risultato è: "I"MsgBox Right("ABCDEFGHI", 100) 'Il risultato è: "ABCDEFGHI"Fine sottotitolo |
VBA Right Function Ultimi n caratteri in una variabile
Come mostrato sopra, puoi definire una stringa semplicemente inserendo del testo racchiuso tra virgolette. Ma la funzione RIGHT funzionerà anche con variabili stringa. Questi esempi estrarranno gli ultimi n caratteri da una variabile stringa.
| 123456789 | Sub RightEsempio_2()Dim StrEx As String 'Definisci una variabile stringaStrEx = "ABCDEFGHI"MsgBox Right(StrEx, 4) 'Il risultato è: "FGHI"MsgBox Right(StrEx, 2) 'Il risultato è: "HI"MsgBox Right(StrEx, 1) 'Il risultato è: "I"MsgBox Right(StrEx, 100) 'Il risultato è: "ABCDEFGHI"Fine sottotitolo |
Programmazione VBA | Il generatore di codice funziona per te!
Funzione destra VBA Ultimi n caratteri da una cella
Le stringhe possono essere definite nel codice VBA ma puoi anche utilizzare i valori delle celle. Leggi il valore di una cella, mantienilo in una variabile stringa ed estrai gli ultimi n caratteri dal valore della cella del foglio di lavoro.
| 123456789101112 | Sub RightEsempio_3()Dim StrEx As String 'Definisci una variabile stringa'Leggi il valore della cella A1 nel foglio di lavoro Foglio1StrEx = ThisWorkbook.Worksheets("Foglio1").Intervallo("A1").Valore'Per questo esempio il valore della cella A1 è "ABCDEFG hI"MsgBox Right(StrEx, 4) 'Il risultato è: "G hI"MsgBox Right(StrEx, 2) 'Il risultato è: "hI"MsgBox Right(StrEx, 1) 'Il risultato è: "I"MsgBox Right(StrEx, 100) 'Il risultato è: "ABCDEFG hI"Fine sottotitolo |
Funzione destra VBA Taglia la prima lettera
Per rimuovere le lettere dall'inizio di una stringa, utilizzare la funzione RIGHT insieme alla funzione LEN.
La funzione VBA LEN conta il numero di caratteri in una stringa:
| 1 | Len(StrEx) |
Combinando le funzioni, possiamo rimuovere un certo numero di caratteri dall'inizio della stringa:
| 12345678 | Sub RightEsempio_4()Dim StrEx As String 'Definisci una variabile stringaStrEx = "ABCDEF"MsgBox Right(StrEx, Len(StrEx)) 'Il risultato è: "ABCDEF"MsgBox Right(StrEx, Len(StrEx) - 1) 'Il risultato è: "BCDEF"MsgBox Right(StrEx, Len(StrEx) - 2) 'Il risultato è: "CDEF"Fine sottotitolo |
Diritto VBA per estrarre il testo dopo lo spazio
Per estrarre il cognome da una stringa con un nome completo, utilizzare la funzione Right insieme a Len e Instr Function.
La funzione VBA LEN conta il numero di caratteri in una stringa:
| 1 | Len(StrEx) |
La funzione VBA InStr cerca una sottostringa all'interno di una stringa e restituisce il numero di posizione della sottostringa.
| 1 | InStr(StrEx, " ") |
Combinando le funzioni, possiamo estrarre la parte dopo il primo spazio da una frase:
| 123456789101112131415 | Sub RightEsempio_5()Dim StrEx As String 'Definisci una variabile stringaStrEx = "Luke Skywalker"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))Il risultato è: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))'Risultato è: "da Vinci"StrEx = "Che la Forza sia con te"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))'Risultato è: "la Forza sia con te"Fine sottotitolo |
Stanco di cercare esempi di codice VBA? Prova AutoMacro!
Diritto VBA per estrarre l'ultima parola
Per estrarre l'ultima parola da una stringa con una frase, usa la funzione Right insieme a Len e InstrRev Function.
Come abbiamo visto sopra, la funzione VBA LEN conta il numero di caratteri in una stringa:
| 1 | Len(StrEx) |
La funzione VBA InStrRev cerca una sottostringa all'interno di una stringa e restituisce il numero di posizione della sottostringa. Inizia la ricerca dalla fine della frase (da destra a sinistra) ma restituisce la posizione dall'inizio della stringa (da sinistra a destra).
| 1 | InStrRev(StrEx, " ") |
Combinando le funzioni, possiamo estrarre la parte dopo l'ultimo spazio da una frase:
| 123456789101112131415 | Sub RightEsempio_6()Dim StrEx As String 'Definisci una variabile stringaStrEx = "Luke Skywalker"MsgBox Right(StrEx, Len(StrEx) - InStrRev(StrEx, " "))Il risultato è: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox Right(StrEx, Len(StrEx) - InStrRev(StrEx, " "))'Risultato è: "da Vinci"StrEx = "Che la Forza sia con te"MsgBox Right(StrEx, Len(StrEx) - InStrRev(StrEx, " "))'Il risultato è: "tu"Fine sottotitolo |
