Viena no svarīgākajām un visbiežāk izmantotajām funkcijām, ko mēs izmantojam, strādājot ar VBA programmā Excel ir Vidējā funkcija no VBA . Tas kā ievadi ņem virkni un kā izvadi atgriež doto rakstzīmju skaitu no virknes vidus. Šodien šajā rakstā es jums parādīšu, kā varat izmantot rīku Vidējā funkcija no VBA ar atbilstošiem piemēriem un ilustrācijām.

Tas atgriezīs 9 rakstzīmes no virknes "Angela Catherine Nevills" , sākot no 8. raksturs. Tas ir "Katrīna" .

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses grāmatu, lai izpildītu uzdevumu, kamēr lasāt šo rakstu.

Iepazīstināšana ar VBA vidus funkciju programmā Excel

⧭ Funkcijas mērķis:

Portāls Vidējais funkcija kā ievadi ņem vērtību un kā izvadi atgriež noteiktu rakstzīmju skaitu, sākot no noteiktas vērtības pozīcijas.

Vērtība var būt virkne, skaitlis vai pat boolean .

Piemēram, ja ievietojat Mid("Angela Catherine Nevills",8,9), tas atgriezīsies "Katrīna" .

Ja ievietojat Mid(12345,2,3) , jūs iegūsiet 234.

Un ievietojiet Mid(False,2,3) , jūs iegūsiet als .

⧭ Sintakse:

Sintakse Vidējā funkcija no VBA ir:

⧭ Argumenti:

⧭ Atgrieztā vērtība:

Atgriež doto rakstzīmju skaitu no virknes vidus, sākot no dotās pozīcijas.

3 piemēri par VBA vidus funkciju programmā Excel

Šoreiz izpētīsim Vidējā funkcija no VBA detalizēti un ar dažiem piemēriem.

1. Dotā rakstzīmju skaita atdalīšana no dažu ID vidus, izmantojot VBA funkciju Mid programmā Excel

Šeit mums ir datu kopa ar Identifikatori un Nosaukumi dažu uzņēmuma ar nosaukumu Saturn Group darbinieku.

Šajā gadījumā 4. uz 7. katra ID zīmes apzīmē attiecīgā darbinieka iestāšanās gadu.

Tagad mēs izstrādāsim Lietotāja definēta funkcija izmantojot Vidējā funkcija no VBA , kas izraksta katra darbinieka iestāšanās gadu no Darbinieka ID .

Varat izmantot šādus VBA kods:

⧭ VBA kods:

 Funkcija Joining_Year(ID) Joining_Year = Mid(ID, 4, 4) Funkcijas beigas 

Piezīme: Šis kods izveido funkciju ar nosaukumu Pievienošanās_gads .

⧭ Izvades rezultāts:

Palaidiet šo funkciju jebkurā darblapas šūnā, kā argumentu norādot ID.

Šeit, šūnā D4 , mēs esam ievadījuši formulu:

Tā ir atgriezusi pirmā darbinieka iestāšanās gadu, 2021 .

Tagad varat vilkt Uzpildes rokturis lai iegūtu pārējo darbinieku iestāšanās gadus.

⧭ Kodeksa skaidrojums:

• Vispirms mēs deklarējam funkciju ar nosaukumu Pievienošanās_gads kas kā ievadi ņem ID, izmantojot līniju Funkcija Joining_Year(ID) .
• Pēc tam mēs iegūstam 4 rakstzīmes no ID, sākot no pozīcijas 4 , pēc līnijas Joining_Year = Mid(ID, 4, 4) .
• Līnija Funkcijas beigas deklarē funkcijas beigas.

2. Paplašinājumu iegūšana no dažām e-pasta adresēm, izmantojot VBA vidus funkciju programmā Excel

Tagad datu kopai esam pievienojuši jaunu kolonnu, kurā ir darbinieku e-pasta adreses.

Šoreiz mēs izvilksim e-pasta adrešu paplašinājumus, izmantojot Vidējais funkcija VBA .

Portāls VBA kods būs:

⧭ VBA kods:

 Funkcija Extension(E-pasta_adrese) For i = 1 To Len(E-pasta_adrese) If Mid(E-pasta_adrese, i, 1) = "@" Then Extension = Mid(E-pasta_adrese, i + 1, Len(E-pasta_adrese) - (i + 4)) End If Next i End Function 

Piezīme: Šis kods izveido funkciju ar nosaukumu Paplašinājums .

⧭ Izvades rezultāts:

Palaist šo funkciju jebkurā darblapas šūnā ar E-pasta adrese kā argumentu.

Šeit, šūnā E4 , mēs esam ievadījuši formulu:

Tā ir atgriezusi pirmās e-pasta adreses paplašinājumu.

Pēc tam varat vilkt Uzpildes rokturis izvilkt visu e-pasta adrešu paplašinājumus.

⧭ Kodeksa skaidrojums

• Vispirms mēs deklarējam funkciju ar nosaukumu Paplašinājums kas kā ievadi ņem jebkuru nosaukumu, izmantojot rindu Funkcija Paplašinājums(E-pasta_adrese) .
• Tad mēs sākam iterāciju ar for-loop kas pārbauda katru rakstzīmi E-pasta adrese lai pārbaudītu, vai tas ir @ vai ne pēc līnijas Ja Mid(Email_Address, i, 1) = "@" Tad .
• Ja tas atrod @ , pēc tam tas izraksta vajadzīgo paplašinājumu no E-pasta adrese pie līnijas Paplašinājums = Mid(E-pasta_adrese, i + 1, Len(E-pasta_adrese) - (i + 4)) .
• Visbeidzot deklarējam funkcijas beigas.

3. Dažu tekstu pārbaude, lai noskaidrotu, vai tajos ir vai nav ietverts konkrēts teksts

Viens no svarīgākajiem Vidējā funkcija ir noskaidrot, vai tekstā ir konkrēts teksts vai nav.

Izstrādāsim funkciju, lai pārbaudītu, vai E-pasta adreses satur terminu "gmail" vai nē.

Varat izmantot šādus VBA kods:

⧭ VBA kods:

 Funkcija Pārbaude(Text1, Text2) For i = 1 To Len(Text1) If Mid(Text1, i, Len(Text2)) = Text2 Then Pārbaude = "Jā" Exit For Else Pārbaude = "Nē" End If Next i End Function 

Piezīme: Šis kods izveido funkciju ar nosaukumu Pārbaude .

⧭ Izvades rezultāts:

Palaidiet šo funkciju jebkurā darblapas šūnā, kā argumentu norādot divus tekstus.

Šeit, šūnā E4 , mēs esam ievadījuši formulu:

Tā ir atgriezusies jā jo 1. e-pasta adrese ir Gmail adrese.

Pēc tam varat vilkt Uzpildes rokturis lai to pašu izdarītu visiem e-pasta ID.

⧭ Kodeksa skaidrojums:

• Vispirms mēs deklarējam funkciju ar nosaukumu Pārbaude kas kā argumentus ņem divus tekstus, izmantojot rindu Funkcija Pārbaude(Text1,Text2) .
• Tad mēs sākam for cilpu, kas pārbauda katru segmentu no Teksts1 sākot no pozīcijas 1 , lai pārbaudītu, vai tas ir vienāds ar Teksts2 vai nē, pēc rindas Ja Mid(Text1, i, Len(Text2)) = Text2 Tad .
• Ja tas atrod Teksts2 , tad tas atgriež "Jā" , pretējā gadījumā tiek atgriezts "Nē" .
• Visbeidzot, mēs noslēdzam funkciju ar līniju Funkcijas beigas .

Lietas, kas jāatceras

• Portāls 1. arguments Vidējā funkcija ne vienmēr ir jābūt virknei. Tas var būt virkne , a numurs vai pat boolean vērtība.
• Bet 2. un 3. argumentiem jābūt skaitļi . Tie var būt veselie skaitļi vai frakcijas bet jābūt skaitļi Ja tie ir frakcijas , tad Vidējā funkcija tos konvertēs uz tuvāko veselie skaitļi .