فهرست
یو له خورا مهم او پراخه کارول شوي فنکشنونو څخه چې موږ یې په Excel کې د VBA سره کار کولو پرمهال کاروو د VBA منځنی فعالیت دی. دا د ننوت په توګه تار اخلي او د تار له مینځ څخه د محصول په توګه یو ټاکلی شمیر حروف بیرته راولي. نن ورځ په دې مقاله کې، زه به تاسو ته وښیم چې تاسو څنګه کولی شئ د مناسب مثالونو او انځورونو سره د منځنی فعالیت د VBA څخه کار واخلئ.
دا به 9 کرکټرونه د تار "انجیلا کیترین نیویلز" څخه بیرته راوباسي، د اتم کرکټر څخه پیل کیږي. دا "کیترین" .
د تمرین کاري کتاب ډاونلوډ کړئ
دا د تمرین کتاب ډاونلوډ کړئ ترڅو د دندې تمرین کولو پرمهال تاسو دا مقاله لولي.
VBA Mid Function.xlsm
په Excel کې د VBA د مینځنۍ فنکشن پیژندنه
⧭ د فعالیت هدف:
منځ فنکشن د ان پټ په توګه ارزښت اخلي او د حروفونو یو ورکړل شوی شمیر بیرته راګرځوي چې د محصول په توګه د ارزښت له ټاکل شوي موقعیت څخه پیل کیږي.
ارزښت کیدای شي یو تار، شمیره ، یا حتی یو بولین وي.
د مثال په توګه، که تاسو میډ ("انجیلا کیترین نیویلز"،8,9) داخل کړئ، دا به بیرته راشي "کیترین".
<0 که تاسو Mid(12345,2,3) داخل کړئ، تاسو به ترلاسه کړئ 234.او داخل کړئ Mid(False,2,3) , تاسو به als ترلاسه کړئ.
⧭ نحو:
د منځنۍ نحو فنکشن د VBA دا دی:
=Mid(String,Start as Long,[Length]) ⧭ دلیلونه:
| استدلال | اړین / اختیاري | توضیح |
|---|---|---|
| سټرینګ | اړین | له تار څخه کوم چې یو شمیر کرکټرونه به بیرته راشي. |
| پیل | اړین دی | د تار پیلیدونکی کرکټر چې بیرته راستانه شي. |
| اوږدوالی | اختیاري | د کرکټرونو شمیر چې بیرته راګرځول کیږي. ډیفالټ 1 دی. |
⧭ د بیرته راستنیدو ارزښت:
له منځ څخه د حروفونو شمیره بیرته راګرځوي د یو تار څخه، د یو ټاکل شوي موقعیت څخه پیل کیږي.
3 په Excel کې د VBA د منځني فعالیت مثالونه
دا ځل، راځئ چې منځنی فعالیت وپلټئ. 2> د VBA په تفصیل سره د څو مثالونو سره.
1. په Excel کې د VBA د مینځنۍ فعالیت په کارولو سره د ځینې IDs له مینځ څخه د حروفونو ورکړل شوي شمیر جلا کول
دلته موږ د IDs او سره ډیټا سیټ ترلاسه کړ. د Saturn Group په نوم د یو شرکت د ځینو کارکوونکو نومونه
دلته د هر یو له څلورم څخه تر 7 کرکټرونه ID د اړوند کارمند د یوځای کیدو کال په ګوته کوي.
اوس به موږ د VBA د منځنۍ فعالیت په کارولو سره یو د کارونکي لخوا ټاکل شوی فنکشن جوړ کړو. دا به د هر کارمند د یوځای کیدو کال له کارمند ID څخه راوباسي.
تاسو کولی شئ لاندې VBA کوډ وکاروئ:
⧭ د VBA کوډ:
2831
یادونه: دا کوډد Joining_Year په نوم یو فنکشن رامینځته کوي.
⧭ Output:
دا چلوي ستاسو د کاري پاڼې په هره حجره کې د دلیل په توګه د ID سره فعالیت وکړئ.
دلته، په حجره D4 کې، موږ فورمول داخل کړی دی:
=Joining_Year(B4) دا د لومړي کارمند د یوځای کیدو کال بیرته راستانه شوی، 2021 .
اوس تاسو کولی شئ د پاتې کارمندانو د یوځای کیدو کلونو ترلاسه کولو لپاره لاسوند ډک کړئ.
⧭ د کوډ تشریح:
- لومړی، موږ د Joining_Year په نوم یو فنکشن اعلان کوو کوم چې د لاین Function Joining_Year(ID) په واسطه ID اخلي. <28 بیا موږ د ID څخه د 4 حروف راخلو چې له موقعیت څخه پیل کیږي 4 ، د کرښې په واسطه د یوځای کیدو_سال = منځنی(ID, 4, 4).
- کرښه پای فنکشن د فنکشن پای اعلانوي.
2. په Excel کې د VBA د مینځنۍ فعالیت په کارولو سره د ځینې بریښنالیک پتې څخه د توسیعونو استخراج
اوس موږ د ډیټا سیټ کې یو نوی کالم اضافه کړی چې د کارمندانو بریښنالیک پتې لري.
0>
دا ځل به موږ د VBA د منځ فنکشن په کارولو سره د بریښنالیک پتې توسیعونه راوباسي.
د VBA کوډ به وي:
⧭ VBA کوډ:
6092
یادونه: دا کوډ د توسیع په نوم یو فنکشن رامینځته کوي.
⧭ محصول:
دا چلوي ستاسو د کاري پاڼې په هره حجره کې د بریښنالیک سره فعالیت وکړئپته د دلیل په توګه.
دلته، په حجره E4 کې، موږ فورمول داخل کړی دی:
=Extension(D4) دا د لومړي بریښنالیک آدرس توسیع بیرته راګرځولی دی.
بیا تاسو کولی شئ د ټولو بریښنالیک توسیعونو ایستلو لپاره د ډکولو لاسوند کش کړئ پته.
⧭ د کوډ تشریح
- لومړی، موږ یو فعالیت اعلان کوو توسیع چې د لیکې لخوا د ان پټ په توګه کوم نوم اخلي فکشن توسیع (Email_Address) .
- بیا موږ د for-loop<2 سره تکرار پیل کوو> چې د برېښناليک پتې هر کرکټر چک کوي ترڅو وګوري چې ایا دا د کرښې په واسطه @ دی که نه که منځنی(Email_Address, i, 1) = “@” بیا .
- که چیرې دا @ ومومي، نو دا د برېښناليک پتې څخه د کرښې توسیع = منځنۍ(Email_Address, i + 1, Len(Email_Address) – (i + 4)) .
- په نهایت کې، موږ د فعالیت پای اعلان کوو.
3. د ځینو متنونو معاینه کول ترڅو وګوري چې ایا دوی یو ځانګړی متن لري که نه
د منځني فعالیت یو له خورا مهم کارولو څخه دا دی چې وګوري ایا متن یو ځانګړی متن لري که نه .
راځئ یو فنکشن رامینځته کړو ترڅو وګورو چې ایا بریښنالیک پتې اصطلاح لري “gmail” او که نه.
تاسو کولی شئ لاندې استعمال کړئ VBA کوډ:
⧭ VBA کوډ:
4455
یادونه: دا کوډ یو فعالیت رامینځته کوي بلل شوی چک کول .
⧭ محصول:
دا فنکشن په هر حجره کې چلول ستاسو د کاري پاڼې دوه متنونه د دلیل په توګه.
دلته، په حجره E4 کې، موږ فورمول داخل کړی دی:
=Checking(D4,"gmail") <2 دا بیرته راستانه شوی هو ځکه چې لومړی بریښنالیک پته د Gmail پته ده.
36>
بیا تاسو کولی شئ د ټولو بریښنالیک IDs لپاره د ورته کولو لپاره هنډل ډک کړئ .
37>
⧭ د کوډ تشریح:
- لومړی، موږ د چیک کولو په نوم یو فنکشن اعلان کوو چې دوه متنونه د لین په واسطه د دلیل په توګه اخلي فکشن چیکینګ(Text1,Text2) .
- بیا موږ د لوپ لپاره پیل کوو چې د متن 1 هره برخه چک کوي چې د 1 موقعیت څخه پیل کیږي، ترڅو وګوري چې ایا دا د متن 2 سره مساوي دی که نه , د کرښې په واسطه که Mid(Text1, i, Len(Text2)) = Text2 بیا .
- که دا متن2 ومومي، نو دا بیرته راګرځي "هو" ، که نه دا بیرته راګرځي "نه" .
- په نهایت کې، موږ فنکشن د کرښې په واسطه پای ته ورسوو د فنکشن پای .
د یادولو وړ شیان
- <28 د لومړی د منځنی فعالیت دلیل تل یو تار نه وي. دا کیدای شي یو تار ، یو شمیره ، یا حتی د بولین ارزښت وي.
- مګر دوهمه او دریم دلیلونه باید شمیرې وي. دوی کیدای شي عددونه یا فرقونه وي مګر باید شمیرې وي. که دوی فرقې وي، نو بیا منځنۍفنکشن به دوی نږدې انټیجرونو ته واړوي .
