Questo tutorial dimostrerà come utilizzare la funzione VBA sinistra.
Funzione sinistra
La funzione VBA Left restituisce i primi n caratteri di una stringa.
Funzione sinistra VBA n Primi caratteri
La funzione VBA Left restituisce i primi n caratteri da una stringa:
| 123456 | Sub LeftEsempio_1()MsgBox Left("ABCDEFGHI", 4) 'Il risultato è: "ABCD"MsgBox Left("ABCDEFGHI", 2) 'Il risultato è: "AB"MsgBox Left("ABCDEFGHI", 1) 'Il risultato è: "A"MsgBox Left("ABCDEFGHI", 100) 'Il risultato è: "ABCDEFGHI"Fine sottotitolo |
VBA Left Function n Primi caratteri in una variabile
Come mostrato sopra, puoi definire una stringa semplicemente inserendo del testo racchiuso tra virgolette. Ma la funzione LEFT funzionerà anche con variabili stringa. Questi esempi estrarranno i primi n caratteri da una variabile stringa.
| 1234567891011 | Sub LeftEsempio_2()Dim StrEx As String 'Definisci una variabile stringaStrEx = "ABCDEFGHI"MsgBox Left(StrEx, 4) 'Il risultato è: "ABCD"MsgBox Left(StrEx, 2) 'Il risultato è: "AB"MsgBox Left(StrEx, 1) 'Il risultato è: "A"MsgBox Left(StrEx, 100) 'Il risultato è: "ABCDEFGHI"Fine sottotitolo |
VBA Left Function n Primi caratteri in 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 n primi caratteri dal valore della cella del foglio di lavoro.
| 12345678910111213 | Sub LeftEsempio_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 è "A bCDEFGHI"MsgBox Left(StrEx, 4) 'Il risultato è: "ABCD"MsgBox Left(StrEx, 2) 'Il risultato è: "AB"MsgBox Left(StrEx, 1) 'Il risultato è: "A"MsgBox Left(StrEx, 100) 'Il risultato è: "ABCDEFGHI"Fine sottotitolo |
Funzione sinistra VBA Taglia l'ultima lettera
Per rimuovere le lettere dalla fine di una stringa, utilizzare la funzione LEFT 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 dalla fine della stringa:
| 123456789 | Sub LeftEsempio_4()Dim StrEx As String 'Definisci una variabile stringaStrEx = "ABCDEF"MsgBox Left(StrEx, Len(StrEx)) 'Il risultato è: "ABCDEF"MsgBox Left(StrEx, Len(StrEx) - 1) 'Il risultato è: "ABCDE"MsgBox Left(StrEx, Len(StrEx) - 2) 'Il risultato è: "ABCD"Fine sottotitolo |
VBA a sinistra per estrarre il nome
Per estrarre il nome da una stringa con un nome completo, utilizzare la funzione Left insieme alla funzione Instr.
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 prima parola da una frase:
| 12345678910111213141516171819 | Sub LeftEsempio_5()Dim StrEx As String 'Definisci una variabile stringaStrEx = "Alexander Graham Bell"MsgBox Left(StrEx, InStr(StrEx, " "))'Il risultato è: "Alexander" (notare lo spazio alla fine)MsgBox Left(StrEx, InStr(StrEx, " ") - 1)'Il risultato è: "Alexander" (NESSUN spazio alla fine)StrEx = "Leonardo da Vinci"MsgBox InStr(StrEx, " ")'Il risultato è: 9 perché lo spazio si trova nella posizione 9MsgBox Left(StrEx, InStr(StrEx, " ") - 1)Il risultato è: "Leonardo"Fine sottotitolo |
