Ամենակարևոր և լայնորեն օգտագործվող գործառույթներից մեկը, որը մենք օգտագործում ենք Excel-ում VBA -ի հետ աշխատելիս, VBA -ի Mid ֆունկցիան է: Որպես մուտքագրում այն ​​վերցնում է տողը և որպես ելք վերադարձնում է տողի միջից տրված թվով նիշ: Այսօր այս հոդվածում ես ձեզ ցույց կտամ, թե ինչպես կարող եք օգտագործել VBA -ի Mid ֆունկցիան ՝ համապատասխան օրինակներով և նկարազարդումներով:

Սա կվերադարձնի 9 նիշ «Angela Catherine Nevills» տողից՝ սկսած 8-րդ նիշից: Դա «Քեթրինն» է :

Ներբեռնեք պրակտիկայի աշխատանքային գիրքը

Ներբեռնեք այս պրակտիկայի գիրքը՝ առաջադրանքը կատարելու համար մինչ դուք կարդում եք այս հոդվածը:

Ներածություն Excel-ում VBA-ի միջին գործառույթին

⧭ Ֆունկցիայի նպատակը.

Միջ ֆունկցիան ընդունում է արժեք որպես մուտքագրում և վերադարձնում է նիշերի տրված թիվը՝ սկսած արժեքի տվյալ դիրքից՝ որպես արդյունք:

Արժեքը կարող է լինել տող, թիվ կամ նույնիսկ բուլյան :

Օրինակ, եթե տեղադրեք Mid(«Angela Catherine Nevills»,8,9), այն կվերադարձնի «Catherine» ։

Եթե տեղադրեք Mid(12345,2,3), դուք կստանաք 234:

Եվ տեղադրեք Mid(False,2,3) , դուք կստանաք als :

⧭ Շարահյուսություն.

Սինտաքսը Միդի ֆունկցիան VBA -իցէ:

⧭ Փաստարկներ:

⧭ Վերադարձի արժեքը.

Վերադարձնում է նիշերի տրված թիվը միջինից տողի՝ սկսած տրված դիրքից:

3 Excel-ում VBA-ի Mid ֆունկցիայի օրինակներ

Այս անգամ եկեք ուսումնասիրենք Միջ ֆունկցիան VBA -ից մանրամասն մի քանի օրինակներով:

1. Նշանների տրված քանակի առանձնացում որոշ ID-ների միջից՝ օգտագործելով VBA-ի միջին ֆունկցիան Excel-ում

Այստեղ մենք ունենք տվյալների հավաքածու ID-ներով և : Saturn Group կոչվող ընկերության որոշ աշխատակիցների անունները :

Այստեղ յուրաքանչյուրի 4-րդ -ից 7-րդ նիշերը ID-ն նշանակում է համապատասխան աշխատակցի միանալու տարեթիվը:

Այժմ մենք կմշակենք Օգտատիրոջ կողմից սահմանված ֆունկցիա ՝ օգտագործելով Mid ֆունկցիան VBA -ում: որը կհանի յուրաքանչյուր աշխատակցի միանալու տարին Աշխատողի ID-ից :

Դուք կարող եք օգտագործել հետևյալ VBA կոդը՝

⧭ VBA կոդը՝

1849

Ծանոթագրություն՝ Այս կոդըստեղծում է գործառույթ, որը կոչվում է Միանալու_տարի :

⧭ Արդյունք.

Գործարկել սա գործում է ձեր աշխատաթերթի ցանկացած բջիջում՝ ID-ով որպես արգումենտ:

Այստեղ, D4 բջիջում մենք մուտքագրել ենք բանաձևը.

Վերադարձրեց առաջին աշխատակցի միանալու տարեթիվը` 2021 :

Այժմ կարող եք քաշել Լրացրեք Handle , որպեսզի ստանաք մնացած աշխատակիցների միանալու տարիները:

⧭ Օրենսգրքի բացատրությունը.

• Սկզբում մենք հայտարարում ենք ֆունկցիա, որը կոչվում է Միացման_տարի , որը որպես մուտքագրում է ID-ն Function Joining_Year(ID) :
• Այնուհետև ID-ից հանում ենք 4 նիշ` սկսած 4 դիրքից, Joining_Year = Mid(ID, 4, 4) տողով:
• End Function տողը հայտարարում է ֆունկցիայի ավարտը:

2. Որոշ էլփոստի հասցեներից ընդլայնումների դուրսբերում Excel-ում VBA-ի Mid ֆունկցիան օգտագործելով

Այժմ մենք նոր սյունակ ենք ավելացրել տվյալների հավաքածուին, որը պարունակում է աշխատակիցների էլփոստի հասցեները:

Այս անգամ մենք կհանենք էլփոստի հասցեների ընդլայնումները՝ օգտագործելով VBA Mid ֆունկցիան:

The VBA կոդը կլինի՝

⧭ VBA կոդը՝

9218

Ծանոթագրություն՝ Այս կոդը ստեղծում է գործառույթ, որը կոչվում է Extension :

⧭ Արդյունք.

Գործարկել սա գործում է ձեր աշխատաթերթի ցանկացած բջիջում՝ ԷլՀասցե որպես արգումենտ:

Այստեղ, E4 բջիջում մենք մուտքագրել ենք բանաձևը.

Այն վերադարձրել է առաջին էլփոստի հասցեի ընդլայնումը:

Այնուհետև կարող եք քաշել Լրացնել բռնակը ` բոլոր էլփոստի ընդլայնումները հանելու համար: հասցեները:

⧭ Օրենսգրքի բացատրությունը

• Նախ, մենք հայտարարում ենք ֆունկցիա, որը կոչվում է. Ընդարձակում որը ցանկացած անուն ընդունում է որպես մուտքագրում Function Extension(Email_Address) :
• Այնուհետև մենք սկսում ենք կրկնություն for-loop<2-ով:> որը ստուգում է Էլ.փոստի հասցեի յուրաքանչյուր նիշը` տեսնելու, թե արդյոք այն @ է, թե ոչ If Mid(Email_Address, i, 1) = “@” Այնուհետև .
• Եթե գտնում է @ , ապա այն հանում է պահանջվող ընդլայնումը Email Address -ից Extension = Mid(Email_Address, i + 1, Len(Email_Address) – (i + 4)) .
• Վերջապես հայտարարում ենք ֆունկցիայի ավարտը։

3. Որոշ տեքստերի ստուգում` պարզելու համար, թե արդյոք դրանք պարունակում են կոնկրետ տեքստ, թե ոչ

Mid ֆունկցիայի ամենակարևոր կիրառություններից մեկն այն է, թե արդյոք տեքստը պարունակում է կոնկրետ տեքստ, թե ոչ: .

Եկեք մշակենք ֆունկցիա՝ ստուգելու համար, թե Էլփոստի հասցեները պարունակում են «gmail» տերմինը, թե ոչ:

Դուք կարող եք օգտագործել հետևյալը VBA կոդ՝

⧭ VBA կոդ՝

4297

Նշում․ Այս կոդը ստեղծում է ֆունկցիա կանչեց Ստուգում :

⧭ Ելք.

Գործարկեք այս ֆունկցիան ցանկացած բջիջում Ձեր աշխատաթերթի երկու տեքստը որպես փաստարկ:

Այստեղ, E4 բջիջում մենք մուտքագրել ենք բանաձևը.

Այն վերադարձել է այո , քանի որ 1-ին էլփոստի հասցեն Gmail հասցե է:

Այնուհետև կարող եք քաշել Լրացրեք Handle ՝ նույնն անելու բոլոր էլփոստի ID-ների համար:

⧭ Կոդի բացատրություն>

• Նախ, մենք հայտարարում ենք ֆունկցիա, որը կոչվում է Ստուգում , որը որպես արգումենտ ընդունում է երկու տեքստ Function Checking(Text1,Text2) տողով:
• Այնուհետև մենք սկսում ենք for loop, որը ստուգում է Text1 -ի յուրաքանչյուր հատվածը` սկսած 1 դիրքից, տեսնելու, թե արդյոք այն հավասար է Text2 -ին, թե ոչ: , տողով Եթե Mid(Text1, i, Len(Text2)) = Text2 Ապա .
• Եթե գտնում է Text2 , ապա վերադարձնում է «Այո» , հակառակ դեպքում՝ «Ոչ» :
• Վերջապես, մենք եզրափակում ենք ֆունկցիան End Function տողով:

Հիշելու բաներ

<28 1st արգումենտը Mid ֆունկցիայի չպետք է միշտ լինի տող: Այն կարող է լինել տող , թիվ կամ նույնիսկ բուլյան արժեք:
• Սակայն 2-րդ և 3-րդ արգումենտները պետք է լինեն թվեր : Դրանք կարող են լինել ամբողջ թվեր կամ կոտորակներ , բայց պետք է լինեն թվեր : Եթե ​​դրանք կոտորակներ են , ապա Միջֆունկցիան կվերափոխի դրանք մոտակա ամբողջ թվերի :