අන්තර්ගත වගුව
ඔබ VBA භාවිතයෙන් උපස්ථර සොයා ගැනීමට පහසුම ක්‍රම සොයන්නේ නම්, ඔබ සිටින්නේ නිවැරදි ස්ථානයේය. මෙම ලිපිය කියවීමෙන් පසු, ඔබට මෙම උපස්ථරය භාවිතයෙන් උපස්ථරයක පිහිටීම සොයා ගැනීමට හෝ දත්ත උපුටා ගැනීමට හෝ උපස්ථරයක ආකෘතිය පහසුවෙන් වෙනස් කිරීමට හැකි වනු ඇත. අපි ලිපියට පිවිසෙමු.
වැඩපොත බාගන්න
නියැදි අන්තර්ගතය
VBA භාවිතයෙන් උපසිරැසි සෙවීමට ක්‍රම 9
මෙහි, මට පහත දේ ඇත දත්ත වගුව මඟින් VBA භාවිතයෙන් තන්තුවක උපස්ථරයක් සොයා ගැනීමේ ක්‍රම පෙන්වමි. මම සසම්භාවී තන්තුවකින් උපස්ථර සොයා ගැනීමේ ක්‍රම පෙන්වීමට ද උත්සාහ කරමි.
මම මෙම කාර්යය සිදු කර ඇත්තේ Microsoft Excel 365 අනුවාදය භාවිතයෙන්, ඔබට ඔබේ පහසුව අනුව වෙනත් ඕනෑම අනුවාදයක් භාවිතා කළ හැකිය.
ක්රමය-1: VBA භාවිතයෙන් තන්තුවක උපසිරැසි සෙවීම
ඔබට අවශ්‍ය උප තන්තුව VBA භාවිතයෙන් තන්තුවකින් සොයා ගැනීමට අවශ්‍ය නම්, ඔබට <භාවිතා කළ හැක. 11>InStr ශ්‍රිතය VBA කේතයේ.
පියවර-01 :
➤ Developer Tab>><වෙත යන්න 11>Visual Basic විකල්පය
ඉන්පසු, Visual Basic Editor විවෘත වේ.
➤<11 වෙත යන්න>ඇතුළු කරන්න Tab>> මොඩියුලය විකල්පය
ඉන් පසුව, මොඩියුලය සාදනු ඇත.
පියවර-02 :
➤පහත කේතය ලියන්න
3266
මෙහි, InStr(1, “ මම හිතන්නේ ඒ නිසා මමයි", "සිතන්න") තන්තුවක උප තන්තුවේ පිහිටීම ආපසු ලබා දෙනු ඇත. 1 යනුආරම්භක ස්ථානය, “ මම හිතන්නේ ඒ නිසා මමයි” ඔබට අවශ්‍ය උපසිරැසිය සොයා ගත හැකි තන්තුව වන අතර “හිතන්න” ඔබට සොයා ගැනීමට අවශ්‍ය උපස්ථරය වේ. එය පෙරනිමියෙන් සිද්ධි සංවේදී බැවින් ඔබට සෙවීමට අවශ්‍ය ඔබගේ උපසිරැසියේ අවස්ථාව ගැන ප්‍රවේශම් වන්න ප්‍රතිඵලය :
ඉන් පසු, ඔබට “හිතන්න” උප තන්තුවෙහි පිහිටුම අඩංගු පහත පණිවිඩ පෙට්ටිය ලැබේ.
ක්රමය-2: තන්තුවක කේස්-අසංවේදී උපස්ථරයක් සොයා ගැනීම
ඔබට VBA භාවිතා කරන නඩුව කුමක් වුවත්, ඔබට අවශ්‍ය උපසිරැසිය තන්තුවකින් සොයා ගැනීමට අවශ්‍ය නම්, මෙය අනුගමනය කරන්න ක්රමය 0>මෙහි, vbTextCompare කේස් සංවේදී නොවන උප තන්තුව සොයා ගැනීමට භාවිතා කරයි.
➤ F5
ඔබන්න ප්‍රතිඵලය :
ඉන්පසු, ඔබට “හිතන්න” උප තන්තුවෙහි පිහිටුම අඩංගු පණිවිඩ පෙට්ටිය පහත දැක්වෙනු ඇත.
<0
පහත කේතය භාවිතා කිරීමෙන් ඔබට එයම කළ හැක.
2399
මෙහි, පෙළ සසඳා බැලීම විකල්පය කේස්-සංවේදි උපසිරසිය සොයා ගනී.
0>
➤ඔබන්න F5
ප්‍රතිඵල :
ඉන්පසු, ඔබ wi පහත දැක්වෙන පණිවිඩ පෙට්ටිය “හිතන්න” උප පෙළෙහි පිහිටීම අඩංගු වේ.
ක්රමය-3: InstrRev ශ්‍රිතය භාවිතා කිරීම VBA හි
මෙහි, මම a හි අග සිට උපස්ථරයක් සොයා ගැනීමට මාර්ගය පෙන්වන්නම්නූල් 0> InStrRev වම් පැත්ත වෙනුවට දකුණු පැත්තේ සිට උපස්ථරය සොයා ගනී.
➤ F5
ඔබන්නප්රතිඵලය :
ඉන්පසු, ඔබට පහත දැක්වෙන පණිවිඩ පෙට්ටිය දෙවන “I” උප පෙළේ පිහිටුම අඩංගු වේ. දකුණු පැත්ත.
ක්රමය-4: දත්ත පරාසයක තන්තුවක උපස්ථරයෙහි පිහිටීම සොයා ගැනීම
ඔබට විශේෂ අක්ෂරය සොයා ගැනීමට අවශ්‍ය නම් “@” ඊමේල් හැඳුනුම්පතේ , ඉන්පසු මෙම ක්රමය අනුගමනය කරන්න. මම මේ සඳහා ස්ථාන තීරුව මෙහි එක් කර ඇත.
පියවර-01 :
➤අනුගමනය කරන්න Step-01 of Method-1
8264
එය FindSubstring (ඔබට වෙනත් ඕනෑම නමක් භාවිතා කළ හැක)
නමින් ශ්‍රිතයක් සාදනු ඇත.අගය යනු තන්තුව අඩංගු කොටු යොමුව වන අතර එය පරාසය ලෙස ප්‍රකාශ කෙරේ.
පියවර -02 :
➤ප්‍රතිදානය තෝරන්න Cell E5
➤පහත ශ්‍රිතය ටයිප් කරන්න ( VBA විසින් සාදන ලදී)
=FindSubstring(D5)
D5 යනු තන්තුව අඩංගු කොටුවයි.
➤ ඔබන්න ENTER
➤ Fill Handle මෙවලම
ප්‍රතිඵලය :
ඉන්පසු, ඔබට ඊමේල් හැඳුනුම්පතේ “ @” විශේෂ අක්ෂරයේ ස්ථාන ලැබෙනු ඇත.
සමාන කියවීම්:
- සොයා ගන්නේ කෙසේදExcel හි VBA භාවිතා කරමින් Cell එකක String (ක්‍රම 2)
- ඊළඟට Excel හි VBA භාවිතා කිරීම සොයන්න (උදාහරණ 2)
- සමඟ String සොයන්නේ කෙසේද Excel හි VBA (උදාහරණ 8)
- VBA Excel හි අවසාන පේළිය සොයන්න (මාර්ග 5)
ක්රමය-5: යම් උපසිරැසියක් පරීක්ෂා කිරීම දත්ත පරාසයක තන්තුවක්
ඔබට ප්‍රතිඵල තීරුව මත පදනම්ව සිසුන්ගේ නම්වලට සමත් හෝ අසාර්ථක ලිවීමට අවශ්‍ය යැයි සිතමු. Pass හෝ Fail යන්න වරහනක ලියා ඇත. ප්‍රතිඵල තීරුවේ මෙම උපසිරැසිය සොයා ගැනීමට සහ එය පසු හෝ අසාර්ථක තීරුවේ ලිවීමට මෙම ක්රමය අනුගමනය කරන්න.
පියවර-01 :
➤ පියවර-01 හි ක්රමය-1
5413
මෙහි, සෛල පරාසය C5:C10 එය ප්‍රතිඵල තීරුවයි
InStr(cell.value, “Pass”) > 0 යනු සංඛ්‍යාව ශුන්‍යයට වඩා වැඩි වන තත්ත්වයයි (සෛලයේ “Pass” අඩංගු වන විට) එවිට පහත පේළිය ඉදිරියට ගොස් Passed<12 ලෙස යාබද කොටුවේ ප්‍රතිදානය ලබා දෙනු ඇත>.
කොන්දේසිය අසත්‍ය නම් සෛලයක “Pass” කිසිවක් අඩංගු නොවේ නම්, Else යටතේ ඇති රේඛාව ක්‍රියාත්මක කර ප්‍රතිදාන අගය ලබා දෙනු ඇත. යාබද කොටුව අසාර්ථක ලෙස.
මෙම ලූපය සෑම කොටුවක් සඳහාම දිගටම පවතිනු ඇත.
➤ F5 <ඔබන්න 1>
ප්‍රතිඵලය :
ඉන්පසු, ඔබට Pass හෝ Fail හි පහත ප්‍රතිදානයන් ලැබෙනු ඇත තීරුව.
ක්රමය-6: තන්තුවක යම් උපසිරැසියක් පරීක්ෂා කර දත්ත උකහා ගැනීම
මම නම් කළ සිසුන් සොයා ගැනීමට මාර්ගය පෙන්වන්නම් මයිකල් ශිෂ්‍ය නම් තීරුවේ සහ මෙම ක්‍රමයේදී VBA භාවිතයෙන් ඔවුන්ගේ අනුරූප දත්ත උපුටා ගන්න.
පියවර-01 :
➤ පියවර-01 හි ක්රමය-1
4633
මෙහි, මම භාවිතා කර ඇත B100 ක්‍රියාකාරී පත්‍ර පරාසය ලෙස, නමුත් ඔබට ඔබේ භාවිතය අනුව ඕනෑම පරාසයක් භාවිතා කළ හැක.
InStr(1, Range("B" & i), "Michael") > 0 යනු කොටුව තුළ ඇතිදැයි පරීක්ෂා කිරීමේ කොන්දේසියයි. B තීරුවෙහි මයිකල්
Range("E" & icount & ":G" & icount) ඔබගේ ප්‍රතිදාන දත්ත අවශ්‍ය පරාසය වන අතර Range("B" & i & ":D" & i).value අගයන් ලබා දෙනු ඇත තීරු B සිට D දක්වා.
➤ F5
<11 ඔබන්න>ප්‍රතිඵලය :
ඉන් පසුව, මයිකල් යන නම ඇති සිසුන් සඳහා පහත උපුටා ගත් දත්ත ඔබට ලැබෙනු ඇත.
ක්රමය-7: වචනය සඳහා උපස්ථර සෙවීම
ඔබට උපසිරැසිය වචනයක් ලෙස සොයා ගැනීමට අවශ්‍ය නම්, පසුව ෆෝල් මෙම ක්රමය අඩු කරන්න.
පියවර-01 :
➤ පියවර-01 ක්රමය-1
අනුගමනය කරන්න9988
එය තන්තුවෙහි ද යන්න පරීක්ෂා කර පසුව එහි පිහිටීම ලබා දෙනු ඇත
➤ F5 ඔබන්න.
ප්‍රතිඵලය :
ඉන්පසු, ඔබට පහත පණිවිඩ පෙට්ටිය ලැබෙනු ඇති අතර එය වචනය ස්ථානය:6 (<11 හි පිහිටුම) පෙන්වයි> වේ ).
ඔබට පරීක්ෂා කළ හැකතන්තුවෙහි නොමැති වචනයක් සඳහා මෙම කේතය ඉවත් කරන්න.
➤පහත කේතය ටයිප් කරන්න
8972
➤ F5
ප්‍රතිඵලය :
ඉන්පසු, වචනය සොයාගත නොහැකි පෙන්වන පහත පණිවිඩ පෙට්ටිය ඔබට ලැබෙනු ඇත.
ක්රමය-8: Instr සහ LEFT ශ්‍රිතය භාවිතා කිරීම
මෙහි, මම තන්තුවක උපස්ථරයක පිහිටීම සොයා ගන්නා ආකාරය සහ භාවිතයෙන් මෙම උපසිරසියට පෙර පෙළ උපුටා ගන්නා ආකාරය පැහැදිලි කරමි. VBA සහ LEFT ශ්‍රිතය .
පියවර-01 :
➤ පියවර-01 අනුගමනය කරන්න 11>ක්රමය-1
5556
j = InStr(txt, "is") උප තන්තුවෙහි පිහිටීම වන අතර Left(txt, j - 1) <11 ට පෙර උප තන්තු උපුටා ගනී වේ පසුව, ඔබට මෙහි ( ඉන් ට පෙර උපසිරැසිය) පෙන්වන පහත පණිවිඩ පෙට්ටිය ලැබෙනු ඇත.
ක්රමය-9: තද කිරීම තන්තුවක යම් උපසිරැසියක්
ඔබට මෙම ක්රමය අනුගමනය කිරීමෙන් ප්‍රතිඵල තීරුවේ වරහන් වලට පෙර ශ්‍රේණි තද කළ හැක d.
පියවර-01 :
➤ පියවර-01 ක්රමය අනුගමනය කරන්න- 1
6692
txt = InStr(1, Cell, "(") පළමු වරහනේ පිහිටුම ලබා දෙන අතර Cell.Characters(1, txt - 1).Font.Bold පළමු වරහන බෝල්ඩ් ට පෙර උපස්ථරය සාදනු ඇත.
පියවර-02 :
➤ ප්‍රතිඵල තීරුව
➤යන්න තෝරන්න Developer වෙත Tab>> Macros විකල්පය
ඉන්පසු, Macro විශාරද දර්ශණය වනු ඇත.
➤ Boldingsubstring (VBA කේත නාමය) තෝරන්න, ඉන්පසු ධාවනය කරන්න .
ප්‍රතිඵලය :
ඉන් පසුව, ප්‍රතිඵල තීරුව හි ශ්‍රේණි තදකර ඇත.
අභ්‍යාස කොටස
ඔබ විසින්ම පුහුණුවීම සඳහා අපි ප්‍රායෝගික නම් පත්‍රයක පහත පරිදි අභ්‍යාස කොටසක් සපයා ඇත. කරුණාකර එය ඔබම කරන්න.
නිගමනය
මෙම ලිපියෙන්, මම VBA භාවිතයෙන් උපසිරැසි සෙවීමට පහසුම ක්‍රම ආවරණය කිරීමට උත්සාහ කළෙමි. Excel හි ඵලදායී ලෙස. ඔබට එය ප්‍රයෝජනවත් වනු ඇතැයි බලාපොරොත්තු වෙනවා. ඔබට කිසියම් යෝජනා හෝ ප්‍රශ්න ඇත්නම්, ඒවා අප සමඟ බෙදා ගැනීමට නිදහස් වන්න.
