Di seguito vedremo un programma in Excel VBA Quello separa le stringhe.
Situazione:
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Per prima cosa, dichiariamo una variabile chiamata fullname di tipo String, una variabile chiamata posizione virgola di tipo Integer e una variabile chiamata i di tipo Integer.
Dim fullname As String, posizione virgola As Integer, i As Integer
Il problema con cui abbiamo a che fare è che dobbiamo dire a Excel VBA dove vogliamo separare la stringa. Nel caso di Smith, Mike la virgola è alla posizione 6 mentre nel caso di Williams, Janet la virgola è alla posizione 9.
2. Usiamo un ciclo per eseguire le operazioni su ogni nome inserito in Excel. Innanzitutto, inizializziamo la variabile fullname. Successivamente, usiamo la funzione Instr per trovare la posizione della virgola.
Per i = da 2 a 7
fullname = Cells(i, 1).Value
posizione virgola = InStr(nome completo, ",")
3. Infine, vogliamo scrivere la parte dopo la virgola nella colonna B e la parte prima della virgola nella colonna C. Puoi farlo aggiungendo le righe:
Cells(i, 2).Value = Mid(nome completo, posizione virgola + 2)
Cells(i, 3).Value = Left(nome completo, posizione virgola - 1)
Mid(nome completo, posizione virgola + 2) significa che vogliamo la parte del nome completo che inizia con il carattere "composizione + 2" (questo è esattamente il nome).
Left(fullname, commaposition - 1) significa che vogliamo la parte del fullname che inizia dall'inizio fino al carattere 'commaposition-1' (questo è esattamente il cognome).
4. Non dimenticare di chiudere il ciclo.
Avanti io
5. Aggiungi sei nomi separati da una virgola e uno spazio a Range ("A2: A7").
6. Testare il programma.
Risultato:
