අන්තර්ගත වගුව
එක්සෙල් හි VBA සමඟ වැඩ කිරීමේදී අප භාවිතා කරන වැදගත්ම සහ බහුලව භාවිතා වන ශ්‍රිතයක් වන්නේ VBA හි මැද ශ්‍රිතය වේ. එය ආදානය ලෙස තන්තුවක් ගන්නා අතර තන්තුවේ මැද සිට ලබා දී ඇති අක්ෂර සංඛ්‍යාවක් ප්‍රතිදානය ලෙස ලබා දෙයි. අද මෙම ලිපියෙන්, මම ඔබට VBA හි Mid ශ්‍රිතය භාවිතා කළ හැකි ආකාරය නිසි උදාහරණ සහ නිදර්ශන සහිතව පෙන්වන්නම්.
ප්‍රායෝගික වැඩපොත බාගන්න
කාර්යය අභ්‍යාස කිරීමට මෙම පුහුණු පොත බාගන්න ඔබ මෙම ලිපිය කියවමින් සිටී.
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 හි මධ්‍ය ක්‍රියාකාරිත්වය භාවිතා කරමින් සමහර ID වල මැද සිට ලබා දී ඇති අක්ෂර සංඛ්‍යාවක් වෙන් කිරීම
මෙහි අපට IDs සහ සමඟ දත්ත කට්ටලයක් ලැබී ඇත. Saturn Group නම් ආයතනයේ සමහර සේවකයන්ගේ නම් හැඳුනුම්පත මගින් අදාළ සේවකයාගේ සම්බන්ධ වූ වර්ෂය දක්වයි.
දැන් අපි VBA හි මැද ශ්‍රිතය භාවිතයෙන් පරිශීලක-නිර්වචනය කරන ලද ශ්‍රිතයක් සංවර්ධනය කරන්නෙමු. එය එක් එක් සේවකයාගේ සම්බන්ධ වන වර්ෂය සේවක හැඳුනුම්පත වෙතින් උපුටා ගනී.
ඔබට පහත VBA කේතය භාවිතා කළ හැක:
⧭ VBA කේතය:
8100
සටහන: මෙම කේතය Joining_Year නමින් ශ්‍රිතයක් නිර්මාණය කරයි.
⧭ Output:
මෙය ක්‍රියාත්මක කරන්න ඔබගේ වැඩ පත්‍රිකාවේ ඕනෑම කොටුවක ක්‍රියා කරන්න> =Joining_Year(B4)
එය පළමු සේවකයාගේ සම්බන්ධ වන වර්ෂය, 2021 ආපසු ලබා දී ඇත.
දැන් ඔබට ඇදගෙන යා හැක. ඉතිරි සේවකයින්ගේ සම්බන්ධ වන වසර ලබා ගැනීමට හසුරුව පුරවන්න.
⧭ සංග්‍රහයේ පැහැදිලි කිරීම:
- පළමුව, අපි Joining_Year නමින් ශ්‍රිතයක් ප්‍රකාශ කරන්නෙමු එය Function Joining_Year(ID) .
- ඉන්පසු අපි 4 ස්ථානයේ සිට 4 අකුරු 4 , Joining_Year = මැද(ID, 4, 4) . යන රේඛාවෙන් උපුටා ගනිමු. 28> අවසන් ශ්‍රිතය රේඛාව ශ්‍රිතයේ අවසානය ප්‍රකාශ කරයි.
2. Excel හි VBA හි මධ්‍ය ක්‍රියාකාරිත්වය භාවිතයෙන් සමහර විද්‍යුත් තැපැල් ලිපින වලින් දිගු උපුටා ගැනීම
දැන් අපි දත්ත කට්ටලයට නව තීරුවක් එකතු කර ඇත, එහි සේවකයින්ගේ විද්‍යුත් තැපැල් ලිපින අඩංගු වේ.
මෙවර අපි VBA හි Mid ශ්‍රිතය භාවිතයෙන් විද්‍යුත් තැපැල් ලිපිනවල දිගු උපුටා ගනිමු.
VBA කේතය වනුයේ:
⧭ VBA කේතය:
4243
සටහන: මෙම කේතය Extension නමින් ශ්‍රිතයක් නිර්මාණය කරයි.
⧭ ප්‍රතිදානය:
මෙය ක්‍රියාත්මක කරන්න ඊමේල් එකක් සමඟ ඔබේ වැඩ පත්‍රිකාවේ ඕනෑම කොටුවක ක්‍රියා කරයිආමන්ත්‍රණය තර්කය ලෙස.
මෙහි, E4 කොටුව තුළ, අපි සූත්‍රය ඇතුළු කළෙමු:
=Extension(D4) 0>එය පළමු ඊමේල් ලිපිනයේ දිගුව ආපසු ලබා දී ඇත. 
ඉන්පසු ඔබට සියලු ඊමේල් වල දිගු උකහා ගැනීමට පිරවුම් හසුරුව ඇදගෙන යා හැක. ලිපින.
⧭ සංග්‍රහයේ පැහැදිලි කිරීම
- මුලින්ම, අපි නමින් ශ්‍රිතයක් ප්‍රකාශ කරමු ක්‍රියාකාරී දිගුව(ඊමේල්_ලිපිනය) යන පේළියේ ආදානය ලෙස ඕනෑම නමක් ගන්නා දිගුව .
- ඉන්පසු අපි ෆෝ-ලූප්<2 සමඟ පුනරාවර්තනයක් ආරම්භ කරමු> එය ඊමේල් ලිපිනය හි එක් එක් අක්ෂරය පරීක්ෂා කරන්නේ එය @ ද නැද්ද යන්න If Mid(Email_Address, i, 1) = “@” පසුව .
- එය @ සොයා ගන්නේ නම්, එය අවශ්‍ය දිගුව ඊමේල් ලිපිනය වෙතින් Extension = Mid(Email_Address, i) රේඛාවෙන් උපුටා ගනී. + 1, ලෙන්(ඊමේල්_ලිපිනය) – (i + 4)) .
- අවසානයේ, අපි ශ්‍රිතයේ අවසානය ප්‍රකාශ කරමු.
3. නිශ්චිත පෙළක් තිබේද නැද්ද යන්න බැලීමට සමහර පෙළ පරීක්ෂා කිරීම
මැද ශ්‍රිතය හි වැදගත්ම භාවිතයක් වන්නේ පෙළක නිශ්චිත පෙළක් තිබේද නැද්ද යන්න බැලීමයි. .
ඊමේල් ලිපින හි “gmail” යන පදය අඩංගුද නැද්ද යන්න පරීක්ෂා කිරීමට ශ්‍රිතයක් සංවර්ධනය කරමු.
ඔබට පහත <භාවිතා කළ හැක. 1>VBA කේතය:
⧭ VBA කේතය:
2760
සටහන: මෙම කේතය ශ්‍රිතයක් නිර්මාණය කරයි කියලා පරීක්ෂා කිරීම .
⧭ ප්‍රතිදානය:
ඕනෑම සෛලයක මෙම ශ්‍රිතය ක්‍රියාත්මක කරන්න තර්කය ලෙස පාඨ දෙකක් සහිත ඔබේ වැඩ පත්‍රිකාවේ පළමු ඊමේල් ලිපිනය Gmail ලිපිනයක් වන නිසා
එය ඔව් ආපසු පැමිණ ඇත.
එවිට ඔබට ඇදගෙන යා හැක. සියලුම විද්‍යුත් තැපැල් හැඳුනුම්පත් සඳහා එයම කිරීමට හැඩිය පුරවන්න.
⧭ කේතයේ පැහැදිලි කිරීම:
- පළමුව, අපි පරීක්ෂා කිරීම නම් ශ්‍රිතයක් ප්‍රකාශ කරන්නෙමු, එය Function Checking(Text1,Text2) යන පේළියෙන් පෙළ දෙකක් තර්ක ලෙස ගනී.
- ඉන්පසුව අපි Text2 ට සමානද නැද්ද යන්න 1 ස්ථානයෙන් පටන් ගෙන Text1 හි එක් එක් කොටස පරීක්ෂා කරන for loop එකක් ආරම්භ කරමු. , පේළිය මගින් Mid(Text1, i, Len(Text2)) = Text2 එවිට .
- එය Text2 සොයා ගන්නේ නම්, එය “ඔව්” ලබා දෙයි, එසේ නොමැති නම් එය “නැහැ” ලබා දෙයි.
- අවසාන වශයෙන්, අපි ශ්‍රිතය අවසන් කරන්නේ අවසන් ශ්‍රිතය .
මතක තබා ගත යුතු දේවල්
- මධ්‍ය ශ්‍රිතය හි 1 වන තර්කය සැමවිටම තන්තුවක් විය යුතු නැත. එය තන්තුවක් , අංක , හෝ බූලියන් අගයක් විය හැක.
- නමුත් 2nd සහ 3 වන විස්තාරක සංඛ්‍යා විය යුතුය. ඒවා පූර්ණ සංඛ්‍යා හෝ භාග විය හැකි නමුත් සංඛ්‍යා විය යුතුය. ඒවා භාග නම්, මැදශ්‍රිතය ඒවා ආසන්නතම නිඛිල වෙත පරිවර්තනය කරයි.
