අන්තර්ගත වගුව
අපට බොහෝ ක්‍රම භාවිතයෙන් Excel හි පේළි අංක සොයා ගත හැකි නමුත් VBA වැඩි විශේෂාංග සහ අභිරුචිකරණයන් පිරිනමයි. එමඟින් අපට ස්මාර්ට් ක්‍රමවලින් පේළි අංක සොයා ගත හැක. අද මෙම ලිපියෙන් පෙන්වන්නේ VBA භාවිතයෙන් Excel හි පේළි අංකය සොයා ගැනීමට ප්‍රයෝජනවත් මැක්රෝ 4ක් පෙන්වයි.
ප්‍රායෝගික වැඩපොත බාගන්න
ඔබට නොමිලේ Excel වැඩපොත මෙතැනින් බාගත කර ගත හැක. ස්වාධීනව පුහුණු වන්න.
VBA.xlsm භාවිතයෙන් පේළි අංකය සොයන්න
4 මැක්‍රෝස් VBA භාවිතයෙන් Excel හි පේළි අංකය සොයා ගන්න
විවිධ ප්‍රදේශ වල සමහර විකුණුම්කරුවන්ගේ විකුණුම් නියෝජනය කරන ක්‍රම ගවේෂණය කිරීමට අපි භාවිතා කරන අපගේ දත්ත කට්ටලයට හඳුන්වා දෙන්න.
මැක්රෝ 1: තේරීම වෙනස් කිරීමෙන් පේළි අංකය සොයා ගැනීමට VBA
පළමුව, අපි ඕනෑම කොටුවක් තේරීමෙන් පේළි අංකය සොයා ගැනීමට Excel VBA හි මැක්රෝ එකක් භාවිත කරන්නෙමු. මෙයින් අදහස් කරන්නේ ඔබ භාවිතා කළ ඕනෑම කොටුවක් තෝරා ගන්නේ නම්, මැක්‍රෝව පේළි අංකය ක්ෂණිකව පෙන්වයි. ඒ සඳහා, ඔබට මොඩියුලයේ නොව, කොත පත්‍රයක තබා ගත යුතුය.
පියවර:
- හරි- පත්‍ර මාතෘකාව මත ක්ලික් කර සංකේතය බලන්න සන්දර්භය මෙනුවෙන් තෝරන්න.
- ඉන්පසු ලියන්න පහත කේතයන්-
6312
- පසුව, කේත ක්‍රියාත්මක කිරීමට අවශ්‍ය නැත, ඔබේ පත්‍රය වෙත ආපසු යන්න.
කේත බිඳවැටීම:
- පළමුව, මම පෞද්ගලික උප ක්‍රියා පටිපාටියක් නිර්මාණය කළෙමි – වැඩපත්‍ර_තේරීම වෙනස් කිරීම .
- ඉන්පසු Rnumber ලෙස විචල්‍යයක් ප්‍රකාශ කරන ලදී නිඛිල .
- පේළිය ක්‍රියාකාරී කොටුවේ පේළි අංකය තීරණය කරයි.
- ඊළඟට, if ප්‍රකාශය පරීක්ෂා කරනු ඇත. සක්‍රිය කොටුව හිස්ව තිබුණත් නැතත්, පසුව MsgBox ප්‍රතිදානය පෙන්වයි.
- දැන් ඕනෑම භාවිත කළ කොටුවක් මත ක්ලික් කරන්න, එවිට එය ඔබට පේළිය පෙන්වයි. අංකය.
වැඩිදුර කියවන්න: Excel VBA: තීරුවේ තන්තුව සොයන්න සහ පේළි අංකය ආපසු යන්න
9> මැක්රෝ 2: VBA භාවිතයෙන් සක්‍රීය සෛලයක පේළි අංකය සොයන්නමෙම මැක්‍රෝව අපගේ පත්‍රයේ සඳහන් කළ කොටුවක සක්‍රිය කොටුවක පේළි අංකය ලබා දෙයි. එබැවින්, අපගේ කේතවල වැඩ පත්‍රිකාවේ නම සහ ප්‍රතිදාන කොටුව සඳහන් කිරීමට අපට සිදුවේ. මෙන්න, අපි අපගේ ප්‍රතිදාන කොටුව ලෙස Cell D14 භාවිත කරන්නෙමු.
පියවර:
- ALT + F11<ඔබන්න 2> VBA කවුළුව විවෘත කිරීමට.
- ඊළඟට, නව මොඩියුලයක් ඇතුළු කිරීමට පහත පරිදි ක්ලික් කරන්න: ඇතුළු කරන්න > Module .
- ඉන් පසු පහත කේතයන් මොඩියුලයේ ටයිප් කරන්න-
3060
- ඉන්පසු ඔබේ පත්‍රය වෙත ආපසු හැරෙන්න.
කේත බිඳවැටීම:
- මෙහි , Find_Row_Number_of_an_Active_Cell() යනු උප
- wSheet Worksheet
- ලෙස ප්‍රකාශ කර ඇත එවිට Set ප්‍රකාශය සක්‍රිය කොටුව තෝරනු ඇත
- පරාසය ප්‍රතිදාන කොටුවේ පේළි අංකය ලබාදේ.
- දැන් කොටුවක් තෝරා පහත පරිදි ක්ලික් කරන්න: සංවර්ධක >Macros .
- Macro සංවාද කොටුවේ දර්ශනය වූ පසු, macro නම තෝරා ඔබන්න. Run .
ඉක්මනින්, ඔබ තෝරාගත් කොටුවේ පේළි අංකය අපගේ ප්‍රතිදාන කොටුවේ ආපසු එන බව ඔබට පෙනෙනු ඇත.
ඔබට B8 සෛලය තෝරාගෙන ඇති බව පෙනේ, එබැවින් 8 ප්‍රතිදානය වේ.
වැඩිදුර කියවන්න: Excel හි වත්මන් සෛල පේළි ගණන ලබා ගන්නේ කෙසේද (ඉක්මන් මාර්ග 4)
සමාන කියවීම්
- පේළි අංකය වැඩි කරන්නේ කෙසේද Excel Formula (හැකි ක්‍රම 6ක්)
- Excel VBA සමඟින් පේළි අංකය ලබාගන්න (උදාහරණ 9)
- A හි පේළි අංකය ආපසු ලබා දෙන්නේ කෙසේද? Excel හි සෛල ගැලපීම (ක්‍රම 7)
- Excel හි සෛල අගයෙන් පේළි අංකය ලබා ගන්නේ කෙසේද (ක්‍රම 5)
මැක්රෝ 3: VBA අගයක් ගැලපීම මගින් පේළි අංකය සොයා ගැනීමට
ඔබට අගයක් සෙවීමෙන් පේළි අංකය සොයා ගැනීමට අවශ්‍ය නම්, මෙම මැක්‍රෝව ඔබ සඳහා වේ. පහත රූපයේ දැක්වෙන පරිදි ඔබට කේතවල සෙවුම් අගය සහ තීරු අංකය සඳහන් කිරීමට සිදුවේ.
පියවර:
- පළමු එක අනුගමනය කරන්න නව මොඩියුලයක් ඇතුළු කිරීමට පෙර ක්‍රමයේ සිට පියවර දෙකක් .
- ඉන්පසු, එයට පහත කේත ඇතුල් කරන්න-
6358
- ඉන් පසු, ඔබේ වෙත ආපසු යන්න පත්‍රය.
කේත බිඳවැටීම:
- මෙන්න, Find_Row_Matching_a_Value() උප
- සහ wBook සහ wSheet ලෙස ප්‍රකාශ කර ඇත වැඩපත්‍රය සහ fCell පරාසය ලෙස ප්‍රකාශ කර ඇත.
- wBook සහ wSheet සකසා ඇත ActiveWorkbook සහ ActiveSheet සඳහා.
- Const සෙවුම් අගය සඳහා ආදානය ලබා ගනී.
- පසුව, පරාසය සඳහන් කළ තීරුව හරහා අගය සොයනු ඇත.
- ඊළඟට, if සහ Else ප්‍රකාශය MsgBox භාවිතයෙන් ප්‍රතිඵල පෙන්වයි.
- පසුව, මැක්රෝ සංවාද කොටුව විවෘත කිරීමට පෙර ක්‍රමයේ සිට 5 වැනි පියවර අනුගමනය කරන්න .
- තෝරන්න සාර්ව නාමය සහ ධාවනය ඔබන්න.
ඉක්මනින් දැනුම්දීම් පෙට්ටියක් ඔබට පේළි අංකය පෙන්වනු ඇත.
තවත් කියවන්න: Excel VBA: ප්‍රතිලාභ පේළි අගය (සුදුසු ක්‍රම 5)
මැක්රෝ 4: පේළි අංකය සොයා ගැනීමට බොත්තම
අපගේ අවසාන ක්‍රමයේදී, VBA මැක්‍රෝස් භාවිතයෙන් පේළි අංකයක් නිර්ණය කිරීමේ දක්ෂම ක්‍රමය අපි ඔබට පෙන්වන්නෙමු. අපි බොත්තමක් සාදා එය සමඟ මැක්රෝ එකක් පවරමු. අපි බොත්තම මත ක්ලික් කළ විට, එය ආදාන කොටුවක් විවෘත කරනු ඇත, එහිදී අපට පේළි අංකය අවශ්‍ය සෙවුම් අගය ආදානය කළ හැකිය. පෙර මැක්‍රෝවට සඳහන් කළ තීරුවක් හරහා සෙවිය හැකි නමුත් මෙම මැක්‍රෝවට පත්‍රයේ ඕනෑම තැනක ඕනෑම තීරුවක් සෙවිය හැක.
පියවර:
- නැවතත් නව මොඩියුලයක් ඇතුල් කිරීම සඳහා දෙවන ක්‍රමයේ සිට පළමු පියවර දෙක අනුගමනය කරන්න.
- ඊළඟට, පහත කේතයන් එයට ඇතුල් කරන්න-
6437
- ඉන්පසු ආපසු යන්න ඔබගේපත්‍රය.
කේත බිඳවැටීම:
- පළමුව, මම උප ක්‍රියා පටිපාටිය Find_Row_Number().
- ඉන්පසු mValue String සහ row range ලෙස විචල්‍ය දෙකක් ප්‍රකාශ කරන්න. .
- ඉන්පසු අගයක් ඇතුළු කිරීමට InputBox භාවිත කළේය.
- පසුව, Set සහ if ප්‍රකාශය එය හිස් නොවේ නම් පේළි අංකය සොයා ගනු ඇත.
- අවසානයේ, MsgBox ප්‍රතිදානය පෙන්වයි.
- පසුව, ක්ලික් කරන්න සංවර්ධක > ඇතුල් කරන්න ඉන්පසු ආකෘති පාලන අංශයෙන් බොත්තම විධානය තෝරන්න.
- ඉන්පසු ඔබට ඔබේ කර්සරය සමඟ plus ලකුණක් ලැබේවි, ඔබට අවශ්‍ය ප්‍රමාණයට අනුව ඔබේ පත්‍රය ක්ලික් කිරීමෙන් ඕනෑම තැනකට ඇදගෙන ගොස් ක්ලික් කිරීම නිදහස් කරන්න.
- ඊළඟට, බොත්තම මත දකුණු-ක්ලික් කර පෙළ සංස්කරණය කරන්න තෝරන්න බොත්තම් නම සංස්කරණය කිරීමට.
- බොත්තම් නම ටයිප් කරන්න, ඉන්පසු බොත්තමෙන් පිටත ඕනෑම තැනක ක්ලික් කරන්න එවිට නම වෙනස් වේ.
- දැන් බොත්තම මත ක්ලික් කරන්න, එය ආදාන පෙට්ටියක් විවෘත කරයි.
- අවසාන වශයෙන්, සෙවුම් අගය ඇතුළු කර ඔබන්න. හරි .
දැන් බලන්න, එය ගැලපෙන අයගේ පේළි අංකය පෙන්වයිඅගය.
වැඩිදුර කියවන්න: තීරුවේ තන්තුව සොයන්න සහ එක්සෙල් හි පේළි අංකය ආපසු හරවන්න (මාර්ග 7)
4> නිගමනයලිපිය සඳහා එපමණයි. VBA භාවිතයෙන් එක්සෙල් හි පේළි අංකය සොයා ගැනීමට ඉහත විස්තර කර ඇති ක්‍රියා පටිපාටි ප්‍රමාණවත් වනු ඇතැයි මම බලාපොරොත්තු වෙමි. අදහස් දැක්වීමේ කොටසේ ඕනෑම ප්‍රශ්නයක් ඇසීමට නිදහස් වන්න සහ කරුණාකර මට ප්‍රතිපෝෂණ ලබා දෙන්න. තවත් ගවේෂණය කිරීමට ExcelWIKI වෙත පිවිසෙන්න.
