Mar a chleachdas tu gnìomh meadhanach VBA ann an Excel (3 eisimpleirean)

Hugh West

16-10-2023 Macros & VBA ann an Excel
  • Roinn Seo
Hugh West

Is e aon de na gnìomhan as cudromaiche agus as fharsainge a bhios sinn a’ cleachdadh fhad ‘s a tha sinn ag obair le VBA ann an Excel an gnìomh Meadhanach de VBA . Gabhaidh e sreang mar an cuir a-steach agus tillidh e àireamh shònraichte de charactaran bho mheadhan an t-sreang mar toradh. An-diugh san artaigil seo, seallaidh mi dhut mar as urrainn dhut an gnìomh Mid de VBA a chleachdadh le eisimpleirean agus dealbhan ceart.

Tillidh seo 9 caractaran bhon t-sreang "Angela Catherine Nevills" , a' tòiseachadh bhon 8mh caractar. Is e “Catherine” a th’ ann.

Luchdaich sìos Leabhar-obrach Cleachdaidh

Luchdaich sìos an leabhar cleachdaidh seo gus an obair a dhèanamh fhad ‘s a tha thu tha thu a’ leughadh an artaigil seo.

VBA Mid Function.xlsm

Ro-ràdh gu Gnìomh Meadhanach VBA ann an Excel

⧭ Amas Gnìomha:

Tha an gnìomh Meadhan a’ gabhail luach mar an cuir a-steach agus tilleadh àireamh shònraichte de charactaran a' tòiseachadh o shuidheachadh sònraichte den luach mar an toradh.

Faodaidh an luach a bhith na sreang, àireamh , neo fiù 's boolean .

Mar eisimpleir, ma chuireas tu a-steach Mid(“Angela Catherine Nevills”, 8,9), tillidh e “Catherine” .

Ma chuireas tu a-steach Meadhan(12345,2,3), gheibh thu 234.

Agus cuir a-steach Meadhan(False,2,3), gheibh thu als .

⧭ Co-chòrdadh:

Co-chàradh a’ Meadhan gnìomh de VBA is:

=Mid(String,Start as Long,[Length])

⧭ Argumaidean:

Argamaid Riatanach / Roghainneil Mìneachadh
Sreang Riatanach An t-sreang o a thèid grunn charactaran a thilleadh.
Tòisich Riatanach Caractar tòiseachaidh an t-sreang a thèid a thilleadh.
Fad Roghainneil An àireamh de charactaran a thèid a thilleadh. 'S e 1 an roghainn bhunaiteach.

⧭ Luach Tillidh:

Tillidh àireamh shònraichte de charactaran on mheadhan de shreang, a' tòiseachadh bho shuidheachadh sònraichte.

3 Eisimpleirean de dh'obair mheadhanach VBA ann an Excel

An turas seo, leig dhuinn sgrùdadh a dhèanamh air an gnìomh meadhanach de VBA gu mionaideach le beagan eisimpleirean.

1. A 'sgaradh àireamh de charactaran a chaidh a thoirt seachad bho mheadhan cuid de IDan a' cleachdadh gnìomh meadhanach VBA ann an Excel

An seo tha seata dàta againn leis na IDs agus Ainmean cuid de luchd-obrach companaidh ris an canar Saturn Group.

An seo, an 4mh gu 7mh caractaran gach fear. Tha ID a' comharrachadh bliadhna tighinn còmhla an neach-obrach fa-leth.

A-nis leasaichidh sinn gnìomh Air a mhìneachadh leis a' chleachdaiche a' cleachdadh an gnìomh Meadhan de VBA bheir sin a-mach bliadhna ballrachd gach neach-obrach bhon ID Neach-obrach .

Faodaidh tu an còd VBA a leanas a chleachdadh:

⧭ Còd VBA: 

3153

An aire: An còd seoa' cruthachadh gnìomh air a bheil Joining_Year .

⧭ Toradh:

Ruith seo gnìomh ann an cealla sam bith dhen duilleag-obrach agad le ID mar an argamaid.

An seo, ann an cealla D4 , chuir sinn a-steach am foirmle:

=Joining_Year(B4)

Tha e air bliadhna tighinn còmhla a’ chiad neach-obrach a thilleadh, 2021 .

A-nis is urrainn dhut an a shlaodadh Lìon Làimhseachadh gus na bliadhnaichean ballrachd aig a’ chòrr den luchd-obrach fhaighinn.

⧭ Mìneachadh air a’ Chòd:

  • An toiseach, bidh sinn a' cur an cèill gnìomh air a bheil Joining_Year a ghabhas ID mar an cuir a-steach leis an loidhne Function Joining_Year(ID) .
  • An uairsin bheir sinn a-mach 4 caractaran bhon ID a’ tòiseachadh bhon t-suidheachadh 4 , leis an loidhne Joining_Year = Mid(ID, 4, 4) .
  • Tha an loidhne Deireadh-ghnìomh a' dearbhadh deireadh na gnìomh.

2. A’ toirt a-mach na leudachain bho chuid de sheòlaidhean post-d a’ cleachdadh gnìomh meadhanach VBA ann an Excel

A-nis tha sinn air colbh ùr a chuir ris an t-seata dàta, anns a bheil seòlaidhean post-d an luchd-obrach.

An turas seo bheir sinn a-mach na leudachain air na Seòlaidhean Post-d leis a’ ghnìomh Mid aig VBA .

An Is e Còd VBA :

⧭ Còd VBA: 

7084

An aire: An còd seo a' cruthachadh gnìomh air a bheil Leudachadh .

⧭ Toradh:

Ruith seo gnìomh ann an cealla sam bith den duilleag-obrach agad le Post-dSeòladh mar an argamaid.

Seo, ann an cealla E4 , chuir sinn a-steach am foirmle:

=Extension(D4)

Tha e air leudachadh a' chiad sheòladh puist-d a thilleadh.

An uairsin 's urrainn dhut an Làimhseachadh Lìonadh a shlaodadh gus leudachaidhean a' phuist-d gu lèir a thoirt a-mach. seòlaidhean.

⧭ Mìneachadh air a’ Chòd

  • An toiseach, bidh sinn a’ cur an cèill gnìomh ris an canar Leudachadh a ghabhas ainm sam bith mar an cuir a-steach leis an loidhne Function Extension(Email_Address) .
  • An uairsin tòisichidh sinn tionndadh le for-loop a nì sgrùdadh air gach caractar den Seòladh Post-d gus faicinn an e @ a th’ ann no nach eil leis an loidhne Ma tha Meadhan(Email_Address, i, 1) = “@” An uairsin .
  • Ma lorgas e @ , bheir e a-mach an leudachadh a tha a dhìth às an Seòladh Post-d leis an loidhne Extension = Mid(Email_Address, i + 1, Len(Email_Address) – (i + 4)) .
  • Mu dheireadh, bidh sinn a’ cur an cèill deireadh na h-obrach.

3. A’ sgrùdadh cuid de theacsaichean gus faicinn a bheil teacsa sònraichte annta no nach eil

Is e aon de na cleachdaidhean as cudromaiche den ghnìomh Meadhan faicinn a bheil teacsa sònraichte ann an teacsa no nach eil. .

Leasaichidh sinn gnìomh gus dèanamh cinnteach a bheil an teirm “gmail” no nach eil anns na Seòlaidhean Post-d .

Faodaidh tu na leanas a chleachdadh Còd VBA :

⧭ Còd VBA: 

7654

An aire: Bidh an còd seo a’ cruthachadh gnìomh ghairm A’ sgrùdadh .

⧭ Toradh:

Ruith an gnìomh seo ann an cealla sam bith den duilleag-obrach agad le dà theacsa mar an argamaid.

An seo, ann an cealla E4 , chuir sinn a-steach am foirmle:

=Checking(D4,"gmail") <2

Tha e air tilleadh tha a chionn 's gur e Gmail seòladh a' chiad sheòladh puist-d.

An uairsin is urrainn dhut an Làimhe lìonaidh gus an aon rud a dhèanamh airson a h-uile ID Post-d.

  • An toiseach, cuiridh sinn an cèill gnìomh ris an canar A’ sgrùdadh a bheir dà theacsa mar argamaidean leis an loidhne Sgrùdadh Gnìomh (Text1,Text2) .
  • An uairsin tòisichidh sinn airson lùb a nì sgrùdadh air gach earrann de Text1 a’ tòiseachadh bhon t-suidheachadh 1 , gus faicinn a bheil e co-ionann ri Text2 no nach eil. , leis an loidhne Ma tha Meadhan(Text1, i, Len(Text2)) = Text2 An uairsin .
  • Ma lorgas e Text2 , tillidh e “Tha” , air neo tillidh e “Chan eil” .
  • Mu dheireadh, bidh sinn a’ crìochnachadh a’ ghnìomh leis an loidhne Gnìomh Deireannach .

Rudan ri cuimhneachadh

  • Chan fheum an argamaid 1d den ghnìomh Meadhan a bhith na shreang an-còmhnaidh. Faodaidh e a bhith na sreang , àireamh , no fiù 's luach boolean .
  • Ach tha an 2na agus 3mh
argamaidean a bhith àireamhan. Faodaidh iad a bhith nan slàn-àireamhanno bloigheanach feumaidh iad a bhith àireamhan. Mas e bloigheana th’ annta, an uairsin bidh an Meadhantionndaidhidh gnìomhiad gu na h-àireamhanas fhaisge.
Post roimhe Mar a chruthaicheas tu liosta tuiteam-sìos fiùghantach a’ cleachdadh Excel OFFSET (3 dòighean)
An ath phost Mar a nì thu obrachadh a-mach co-èifeachd co-dhàimh Pearson ann an Excel (4 dòighean)

Tha Ùisdean West na thrèanaiche agus na mhion-sgrùdair Excel air leth eòlach le còrr air 10 bliadhna de eòlas sa ghnìomhachas. Tha ceum Bachelor aige ann an Cunntasachd is Ionmhas agus ceum Maighstireachd ann an Rianachd Gnothachais. Tha ùidh mhòr aig Ùisdean ann an teagasg agus tha e air dòigh-teagaisg gun samhail a leasachadh a tha furasta a leantainn agus a thuigsinn. Tha an eòlas eòlach aige air Excel air na mìltean de dh’ oileanaich agus proifeiseantaich air feadh an t-saoghail a chuideachadh gus na sgilean aca a leasachadh agus air leth math nan dreuchdan. Tron bhlog aige, bidh Ùisdean a’ roinn a chuid eòlais leis an t-saoghal, a’ tabhann clasaichean oideachaidh Excel an-asgaidh agus trèanadh air-loidhne gus daoine fa leth agus gnìomhachasan a chuideachadh gus an làn chomas a ruighinn.