Taula de continguts
Una de les funcions més importants i àmpliament utilitzades que fem servir mentre treballem amb VBA a Excel és la funció mitjana de VBA . Pren una cadena com a entrada i retorna un nombre determinat de caràcters des del centre de la cadena com a sortida. Avui, en aquest article, us mostraré com podeu utilitzar la funció mitjana de VBA amb exemples i il·lustracions adequats.
Això retornarà 9 caràcters de la cadena “Angela Catherine Nevills” , començant pel caràcter 8è . És “Catherine” .
Descarregueu el llibre de pràctiques
Descarregueu aquest llibre de pràctiques per exercir la tasca mentre esteu llegint aquest article.
VBA Mid Function.xlsm
Introducció a la funció mitjana de VBA a Excel
⧭ Objectiu de la funció:
La funció Mit pren un valor com a entrada i retorna un nombre determinat de caràcters a partir d'una posició determinada del valor com a sortida.
El valor pot ser una cadena, un número o fins i tot un booleà .
Per exemple, si inseriu Mid(“Angela Catherine Nevills”,8,9), retornarà “Catherine” .
Si inseriu Mitjà(12345,2,3) , obtindreu 234.
I inseriu Mitjà(Fals,2,3), obtindreu als .
⧭ Sintaxi:
La sintaxi del Mid funció de VBA és:
=Mid(String,Start as Long,[Length]) ⧭ Arguments:
| Argument | Obligatori/Opcional | Explicació |
|---|---|---|
| Cadena | Obligatori | La cadena de que es retornarà un nombre de caràcters. |
| Inici | Obligatori | El caràcter inicial de la cadena que es retornarà. |
| Longitud | Opcional | El nombre de caràcters que es retornaran. El valor per defecte és 1. |
⧭ Valor de retorn:
Retorna un nombre determinat de caràcters des del centre d'una cadena, començant des d'una posició determinada.
3 Exemples de la funció mitjana de VBA a Excel
Aquesta vegada, explorem la funció mitjana de VBA amb detall amb alguns exemples.
1. Separació d'un nombre determinat de caràcters del centre d'alguns identificadors mitjançant la funció mitjana de VBA a Excel
Aquí tenim un conjunt de dades amb els IDs i Noms d'alguns empleats d'una empresa anomenada Saturn Group.
Aquí, els 4è al 7è caràcters de cadascun L'ID indica l'any d'incorporació del respectiu empleat.
Ara desenvoluparem una funció definida per l'usuari mitjançant la funció mitjana de VBA que extreu l'any d'incorporació de cada empleat de l' ID de l'empleat .
Podeu utilitzar el codi VBA següent:
⧭ Codi VBA:
7156
Nota: Aquest codicrea una funció anomenada Joining_Year .
⧭ Sortida:
Executeu això funció a qualsevol cel·la del full de treball amb un identificador com a argument.
Aquí, a la cel·la D4 , hem introduït la fórmula:
=Joining_Year(B4) Ha retornat l'any d'incorporació del primer empleat, 2021 .
Ara podeu arrossegar el Ompliu el mànec per obtenir els anys d'incorporació de la resta d'empleats.
⧭ Explicació del codi:
- Primer, declarem una funció anomenada Joining_Year que pren un ID com a entrada per la línia Function Joining_Year(ID) .
- Després extreim 4 caràcters de l'ID a partir de la posició 4 , per la línia Joining_Year = Mid(ID, 4, 4) .
- La línia Finalització de la funció declara el final de la funció.
2. Extracció de les extensions d'algunes adreces de correu electrònic utilitzant la funció mitjana de VBA a Excel
Ara hem afegit una nova columna al conjunt de dades, que conté les adreces de correu electrònic dels empleats.
Aquesta vegada extreurem les extensions de les adreces de correu electrònic mitjançant la funció Mid de VBA .
El Codi VBA serà:
⧭ Codi VBA:
4331
Nota: Aquest codi crea una funció anomenada Extensió .
⧭ Sortida:
Executeu això funció a qualsevol cel·la del vostre full de treball amb un Correu electrònicAdreça com a argument.
Aquí, a la cel·la E4 , hem introduït la fórmula:
=Extension(D4) Ha retornat l'extensió de la primera adreça de correu electrònic.
A continuació, podeu arrossegar la Annexa d'emplenament per extreure les extensions de tot el correu electrònic. adreces.
⧭ Explicació del codi
- Primer, declarem una funció anomenada Extensió que pren qualsevol nom com a entrada per la línia Extensió de funció(adreça_e-mail) .
- A continuació, comencem una iteració amb un bucle for que verifica cada caràcter de l' Adreça de correu electrònic per veure si és @ o no per la línia Si Mitjana (Adreça_e-mail, i, 1) = “@” Aleshores .
- Si troba un @ , extreu l'extensió necessària de l' Adreça de correu electrònic per la línia Extensió = Mitjana (Adreça_e-mail, i + 1, Len(Email_Address) – (i + 4)) .
- Finalment, declarem el final de la funció.
3. Comprovació d'alguns textos per veure si contenen un text específic o no
Un dels usos més importants de la funció Mitjana és veure si un text conté un text específic o no .
Desenvolupem una funció per comprovar si les Adreces de correu electrònic contenen el terme “gmail” o no.
Podeu utilitzar el següent Codi VBA :
⧭ Codi VBA:
8150
Nota: Aquest codi crea una funció va trucar Comprovació .
⧭ Sortida:
Executeu aquesta funció a qualsevol cel·la del vostre full de treball amb dos textos com a argument.
Aquí, a la cel·la E4 , hem introduït la fórmula:
=Checking(D4,"gmail") Ha tornat sí perquè la primera adreça electrònica és una adreça Gmail .
A continuació, podeu arrossegar el Empleneu el mànec per fer el mateix amb tots els ID de correu electrònic.
⧭ Explicació del codi:
- Primer, declarem una funció anomenada Comprovació que pren dos textos com a arguments de la línia Comprovació de funcions(Text1,Text2) .
- A continuació, iniciem un bucle for que comprova cada segment de Text1 començant des de la posició 1 , per veure si és igual a Text2 o no. , per la línia Si Mid(Text1, i, Len(Text2)) = Text2 Aleshores .
- Si troba Text2 , retorna “Sí” , en cas contrari retorna “No” .
- Finalment, concloem la funció amb la línia Fin funció .
Coses a recordar
- L'argument 1r de la funció mitjana no ha de ser sempre una cadena. Pot ser una cadena , un número o fins i tot un valor booleà .
- Però els 2n i 3r arguments han de ser nombres . Poden ser nombres enters o fraccions però han de ser nombres . Si són fraccions , aleshores la Mitjanala funció els convertirà als enters més propers.
