Funzione MID VBA - Come utilizzare la funzione MID VBA di Excel?

Funzione MID VBA di Excel

La funzione MID VBA estrae i valori dalla metà della frase o della parola fornita. La funzione MID è classificata sotto la funzione String and Text ed è una funzione del foglio di lavoro, il che significa che per utilizzare questa funzione in VBA è necessario utilizzare il metodo application.worksheet.

Ci sono situazioni in cui vogliamo estrarre il nome, il cognome o il secondo nome. In queste situazioni, le formule della categoria TESTO sono utili per soddisfare i nostri requisiti. L'utilizzo di questa funzione è uguale a quello del riferimento del foglio di lavoro e anche la sintassi è la stessa.

Sintassi

Come la nostra funzione Excel MID, anche in VBA ha un set simile di valori di sintassi. Di seguito è la sintassi.

  • Stringa da cercare: non è altro che qual è la frase di stringa, ovvero da quale stringa o parola si desidera estrarre i valori.
  • Posizione iniziale: da quale posizione della frase si desidera estrarre. Dovrebbe essere un valore numerico.
  • Numero di caratteri da estrarre: dalla posizione iniziale, quanti caratteri vuoi estrarre? Anche questo dovrebbe essere un valore numerico.

Come utilizzare la funzione MID VBA?

Esempio 1

Supponi di avere la parola "Hello Good Morning" e di voler estrarre "Good" da questa frase. Segui i passaggi seguenti per estrarre il valore.

Passaggio 1: creare prima un nome di macro.

Codice:

Sub MID_VBA_Example1 () End Sub

Passaggio 2: dichiara una variabile come "STRINGA".

Codice:

Sub MID_VBA_Example1 () Dim MiddleValue As String End Sub

Passaggio 3: ora assegna un valore a questa variabile tramite la funzione MID.

Codice:

Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid (End Sub

Passaggio 4: il primo argomento è String, ovvero da quale valore si desidera estrarre. Quindi il nostro valore è "Hello Good Morning".

Codice:

Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", End Sub

Passaggio 5: il prossimo è qual è la posizione iniziale del personaggio che desideri estrarre. In questo caso, il buongiorno inizia da un 7 ° carattere.

Nota: anche lo spazio è un personaggio.

Codice:

Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7 End Sub

Passaggio 6: la lunghezza non è altro che il numero di caratteri che desideri estrarre. Dobbiamo estrarre 4 caratteri qui perché la lunghezza della parola "Buono" è di 4 caratteri.

Codice:

Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7, 4) End Sub

Passaggio 7: abbiamo completato la formula. Mostriamo il risultato della variabile nella finestra del messaggio.

Codice:

Sub MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7, 4) MsgBox MiddleValue End Sub

Passaggio 8: ora esegui questo codice manualmente o premi il tasto F5, la finestra del messaggio dovrebbe mostrare la parola "Buono".

Produzione:

Esempio n. 2

Supponi di avere un nome e un cognome insieme e che la parola sia "Ramesh, Tendulkar". Tra il nome e il cognome, il carattere di separazione è una virgola (,). Ora dobbiamo estrarre solo il nome.

Passaggio 1: creare una macro e definire una variabile.

Codice:

Sub MID_VBA_Example2 () Dim FirstName As String End Sub

Passaggio 2: ora assegna un valore a questa variabile tramite la funzione MID.

Codice:

Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid (End Sub

Passaggio 3: la nostra stringa è "Ramesh.Tendulkar", quindi inserisci questa parola.

Codice:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", End Sub

Step 4: Since we are extracting the first name starting position is 1.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1, End Sub

Step 5: Length of the character you can directly enter as 6, but this is not the best way. In order to determine the length, let’s apply one more formula called Instr.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr( End Sub

Step 6: For this starting position is 1.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1, End Sub

Step 7: String 1 is our name, i.e., “Ramesh, Tendulkar.”

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar", End Sub

Step 8: String 2 what is the separator of first name & last name, i.e., comma (,).

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar",",") End Sub

Note: Instr function will return how many characters are there in the word “Ramesh, Tendulkar” from the string 1 position to the string 2 positions, i.e., until comma (,). So Instr will return 7 as a result, including comma (,).

Step 9: Since Instr function returns no., of characters including comma (,) we need to minus 1 character here. So enter -1 after the close of Instr function.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) End Sub

Step 10: Now show the value of the variable in the message box.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) MsgBox FirstName End Sub

Step 11: Run this code using the F5 key, or you can run this code manually. We would get the first name in the message box.

Output:

Example #3

Now I will give you one assignment to solve. I have a list of First Name & Last Name.

From this list, I want you to extract the first name only. All the best!!!!.

Ok, If you have tried and not able to get the result, then the below code would help you in this.

Code:

Sub MID_VBA_Example3 () Dim i As Long For i = 2 To 15 Cells (i, 2) .Value = Mid (Cells (i, 1) .Value, 1, InStr (1, Cells (i, 1) .Value, " , ") - 1) Next i End Sub

Copia e incolla il codice sopra nel tuo modulo. Dopo aver copiato il codice, esegui questo codice utilizzando il tasto F5 oppure puoi eseguirlo manualmente.

Dovrebbe dare un risultato come il seguente.

Cose da ricordare

  • L'argomento della lunghezza nella funzione MID è facoltativo. Se lo ignori, prenderà 1 come valore predefinito.
  • Per determinare la lunghezza o la posizione iniziale, utilizzare la funzione Instr insieme alla funzione MID.

Articoli interessanti...