අපගේ Excel වැඩපොතෙහි විශාල දත්ත කට්ටලයක් ඇති විට, අපට ලබා ගැනීමට අවශ්‍ය නිශ්චිත ප්‍රතිඵල උකහා ගැනීමට පේළි හරහා ලූප් කළ හැකි නම් එය පහසු වේ. VBA ක්‍රියාත්මක කිරීම Excel හි ඕනෑම මෙහෙයුමක් ක්‍රියාත්මක කිරීම සඳහා වඩාත් ඵලදායී, වේගවත්ම සහ ආරක්ෂිතම ක්‍රමයයි. මෙම ලිපියෙන්, අපි ඔබට VBA macro සමඟින් වගුවක පේළි හරහා ලූප් කිරීම ආකාරය පිළිබඳ විවිධ ක්‍රම 11ක් පෙන්වමු.

වැඩපොත බාගන්න.

ඔබට නොමිලේ පුහුණු Excel වැඩපොත මෙතැනින් බාගත හැක.

එක්සෙල් හි වගු පේළි හරහා ලූප් කිරීමට VBA සමඟ 11 ක්‍රම

මෙම කොටස අනුගමනය කිරීමෙන්, ඔබ විවිධ ක්‍රම 11 කින් වගුවක පේළි හරහා ලූප් කරන ආකාරය ඉගෙන ගනු ඇත. හිස් කොටුවක් දක්වා පේළි හරහා ලූප් කිරීම, නිශ්චිත අගයක් සොයා ගන්නා තෙක් පේළි හරහා ලූප් කිරීම, පේළි හරහා ලූප් කිරීම සහ එක්සෙල් හි VBA මැක්‍රෝ සමඟ නිශ්චිත කොටුවක් වර්ණ ගැන්වීම වැනි.

<8

ඉහත දැක්වෙන්නේ ක්‍රම විස්තර කිරීමට මෙම ලිපිය අනුගමනය කරන උදාහරණ දත්ත කට්ටලයයි.

1. Cell Reference Number

ඔබට ඔබේ Excel වැඩ පත්‍රිකාවේ වගුවක සෑම පේළියකම සෑම කොටුවක් හරහාම ලූප් කිරීමට අවශ්‍ය නම්, වගුවක සෑම පේළියකම සෑම කොටුවකම ලූප් කිරීමට VBA කාවැද්දන්න සහ සෛල යොමු අංකය ප්‍රතිලාභ අගය ලෙස ලබා ගන්න , ඉන්පසු පහත සාකච්ඡා කර ඇති පියවර අනුගමනය කරන්න.

පියවර:

• ආරම්භයේදී , ඔබගේ යතුරුපුවරුවේ Alt + F11 ඔබන්න හෝ යන්නවිචල්‍යය.

5592

මෙම කේත කොටස 1 සිට 15 දක්වා පේළි හරහා ලූප් කිරීම සඳහා මෙහි ඇත. එය “ Edge ” නිශ්චිත වචනය සොයා ගන්නේ නම්, එය වචනය රඳවා ඇති කොටුව වර්ණවත් කරයි. එය වචනය සෙවීමේදී පේළි 1 සිට 15 දක්වා සියලු දත්ත ස්කෑන් කිරීම අවසන් වන තුරු මෙය දිගටම කරගෙන යයි.

වැඩිදුර කියවන්න: VLOOKUP වගු අරාව මත පදනම්ව භාවිතා කරන්නේ කෙසේද? Excel හි සෛල අගය

සමාන කියවීම්

• TABLE Function එක Excel හි තිබේද?
• Table to List වෙත Excel පරිවර්තනය කරන්නේ කෙසේද (ඉක්මන් ක්‍රම 3ක්)
• Excel හි පරාසය Table බවට පරිවර්තනය කරන්න (පහසු ක්‍රම 5ක්)
• Excel වගුවක සූත්‍රය ඵලදායි ලෙස භාවිතා කරන්න (උදාහරණ 4ක් සමඟ)
• Excel Table Name: ඔබ දැනගත යුතු සියල්ල

7. සෑම පේළියක් හරහාම ලූප් කිරීමට VBA ක්‍රියාත්මක කරන්න සහ එක්සෙල් හි සෑම ඔත්තේ පේළියක්ම වර්ණවත් කරන්න

පෙර කොටසින්, අපි නිශ්චිත අගයක් ඇති සෛලයක් වර්ණ ගන්වන්නේ කෙසේදැයි ඉගෙන ගෙන ඇත්තෙමු. මෙම කොටසේදී, අපි වගුවක එක් එක් පේළිය හරහා ලූප් කරන්නේ කෙසේද සහ සෑම ඔත්තේ පේළියක්ම VBA එක්සෙල් හි මැක්‍රෝවෙන් වර්ණ ගන්වන්නේ කෙසේද යන්න ඉගෙන ගනිමු.

ක්‍රියාවලිය ක්‍රියාත්මක කිරීමට පියවර පහත විස්තර කර ඇත.

පියවර:

• පෙර පෙන්වා ඇති පරිදි, Developer වෙතින් Visual Basic Editor විවෘත කරන්න ටැබය සහ කේත කවුළුව තුළ ඇතුළු කරන්න මොඩියුලය .
• ඉන්පසු, පිටපත් පහත කේතය සහ අලවන්න කේත කවුළුව.

3166

ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සුදානම්ය.

• දැන්, ධාවනය කරන්න මැක්‍රෝව සහ ප්‍රතිදානය බැලීමට පහත රූපය දෙස බලන්න.

සියලුම ඔත්තේ අංක සහිත පේළි වර්ණ ගන්වා ඇත වැඩ පත්‍රිකාවේ වගුවේ ඇති සියලුම පේළි හරහා ලූප් කිරීමෙන් පසුව.

VBA කේත පැහැදිලි කිරීම

4846

විචල්‍යය නිර්වචනය කරන්න.

2578

අපි සමඟ වැඩ කරන පරාසය නිර්වචනය කරන්න.

8799

කේතයේ මෙම කොටස වත්මන් පේළියේ ඊළඟ පේළියේ සිට ආරම්භ වන සියලුම පේළි හරහා පුනරාවර්තනයට යොමු කරයි, B4 . පේළි අංක 2 න් බෙදීමේ මාදිලිය පූර්ණ සංඛ්‍යා වර්ගයක ගබඩා කර ඇති ආපසු එන පේළි අංකයට සමාන නම්, මෙම කේතය කේතයේ සපයා ඇති වර්ණ දර්ශකය සමඟ ගණනය කිරීමෙන් උපුටා ගන්නා සියලුම පේළි වර්ණවත් කරයි. එය පරාසයේ අවසානයට ළඟා වන තෙක් එය සියලු පේළි හරහා ගමන් කරයි.

8. පේළි හරහා ලූප් කිරීමට VBA ක්‍රියාත්මක කරන්න සහ Excel හි සෑම ඉරට්ටේ පේළියක්ම වර්ණවත් කරන්න

පෙර කොටසේදී, අපි මේසයක සෑම ඔත්තේ පේළියක්ම වර්ණ ගන්වන්නේ කෙසේදැයි ඉගෙන ගත්තෙමු. මෙම කොටසේදී, අපි Excel හි VBA මැක්‍රෝ සමඟ වගුවක එක් එක් පේළිය හරහා ලූප් කරන ආකාරය සහ සෑම ඉරට්ටේ පේළියක් වර්ණවත් කරන ආකාරය ඉගෙන ගනිමු.

ක්‍රියාවලිය ක්‍රියාත්මක කිරීමේ පියවර පහත සාකච්ඡා කෙරේ.

පියවර:

• පළමුව, Developer ටැබයෙන් Visual Basic Editor විවෘත කර Insert කේත කවුළුවෙහි මොඩියුලය .
• ඉන්පසු, පහත කේතය පිටපත් කර අලවන්න කේත කවුළුවට.
14>

2503

ඔබේ කේතය දැන් සූදානම්ධාවනය කරන්න.



• ඊළඟට, මැක්‍රෝව ධාවනය කරන්න ප්‍රතිඵලය බැලීමට පහත රූපය බලන්න.
<0

සියලු ඉරට්ටේ අංක සහිත පේළි වැඩ පත්‍රිකාවේ වගුවේ ඇති සියලුම පේළි හරහා ලූප කිරීමෙන් පසු වර්ණ ගන්වා ඇත.

VBA කේත පැහැදිලි කිරීම

5812

විචල්‍යය නිර්වචනය කරන්න.

5746

අපි වැඩ කරන පරාසය නිර්වචනය කරන්න.

4936

මෙම කේත කොටස පුනරාවර්තනය වීමට පටන් ගනී වත්මන් පේළියෙන් පේළි තුන, B4 . එය මුලින්ම එය වර්ණවත් කර පසුව පේළි ගණන 2 කින් වැඩි කරන අතර එය දත්ත කට්ටලයේ අවසාන පේළියට ළඟා වන තෙක් එය වර්ණවත් කරයි.

9. Excel හි හිස් කොටුව තෙක් පේළි හරහා පුනරාවර්තනය කිරීමට මැක්‍රෝව යොදන්න

ඔබට ඔබේ කේතය ක්‍රියා කිරීමට අවශ්‍ය නම් එය මේසයේ සියලුම පේළි හරහා ලූප් වී එය හිස් කොටුවකට ළඟා වූ විට නතර වේ , එවිට මෙම කොටස ඔබ සඳහා වේ. Excel VBA හි FOR Loop සහ Do-Until Loop මඟින් ඔබට එම කාර්යය ක්‍රියාත්මක කළ හැක.

9.1. FOR Loop සමඟ

VBA Excel හි FOR Loop සහිත හිස් කොටුවක් දක්වා වගුවක පේළි හරහා ලූප් කිරීමට පියවර පහත දක්වා ඇත.

පියවර:

• මුලින්ම, Developer ටැබයෙන් Visual Basic Editor විවෘත කර Insert කේත කවුළුවෙහි මොඩියුලය .
• ඉන්පසු, පහත කේතය පිටපත් කර අලවන්න කේත කවුළුවට.
14>

6892

ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සුදානම්ය.



• ඉන්පසු, ක්‍රියාත්මක කරන්න macro සහ ප්‍රතිඵලය පහත gif හි පෙන්වා ඇත.



මැක්‍රෝව ක්‍රියාත්මක කිරීමෙන් පසු, එය සියලු පේළි හරහා වගුවේ ලූප් වීමට පටන් ගත්තේය. එය හිස් කොටුව, Cell B8 වෙත ළඟා වූ පසු, එය පුනරාවර්තනය නතර කළේය .

VBA කේත පැහැදිලි කිරීම 3>

9292

විචල්‍යය නිර්වචනය කරන්න.

3367

තිරය යාවත්කාලීන කිරීමේ සිදුවීම ක්‍රියාවිරහිත කරන්න.

5948

Cell B4 සිට අවසාන එක දක්වා සියලුම පේළි ගබඩා කරන්න.

4739

Cell B4 තෝරන්න.

2655

මෙම කේත කොටස සියලුම පේළි හරහා ලූප් වීමට පටන් ගනී. එය පේළියක හිස් කොටුවක් සොයාගත් විට එය තෝරා එය අවසානයට පැමිණෙන තෙක් පේළි ස්කෑන් කිරීම දිගටම කරගෙන යයි.

1960

තිරය යාවත්කාලීන කිරීමේ සිදුවීම ක්‍රියාත්මක කරන්න.

9.2. Do-Until Loop සමඟ

VBA හි Do-Until loop සහිත හිස් කොටුවක් දක්වා පේළි හරහා ලූප් කිරීමට පියවර පහත දක්වා ඇත.

පියවර:

• පළමුව, Developer ටැබයෙන් Visual Basic Editor විවෘත කර Insert a මොඩියුලය කේත කවුළුවේ.
• ඉන්පසු, පහත කේතය පිටපත් කර අලවන්න කේත කවුළුවට.

2844

ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සුදානම්ය.



• පසුව, ක්‍රියාත්මක කරන්න මැක්‍රෝ. ප්‍රතිඵලය පහත gif හි පෙන්වා ඇත.



මැක්‍රෝව ක්‍රියාත්මක කිරීමෙන් පසුව, එය වගුවෙහි ඇති සියලු පේළි හරහා ලූප් වීම ආරම්භ කර එක් වරක් එය හිස් කොටුව, Cell B8 වෙත ළඟා විය, එය නැවතීම .

VBA කේතයපැහැදිලි කිරීම

3568

අපි වැඩ කරන කොටුව තෝරන්න.

1294

ආරම්භ වී හිස් කොටුවක් හමුවන තෙක් ලූප් කිරීම දිගටම කරගෙන යයි.

3675

හිස් කොටුවක් ඇති විට පේළියකින් හමු වූ පසු එය තෝරා පුනරාවර්තනය නවත්වන්න.

10. VBA Macro Excel හි බහු හිස් සෛල තෙක් පේළි හරහා පුනරාවර්තනය කිරීමට

පෙර කොටසේදී, හිස් කොටුවක් හමු වූ විට ලූපය නවත්වන ආකාරය ඔබ ඉගෙන ගෙන ඇත. නමුත් එක් සෛලයක් වෙනුවට හිස් කොටු කිහිපයක් සොයා ගන්නා තෙක් ඔබට පුනරාවර්තනය නැවැත්වීමට අවශ්‍ය නැතිනම් කුමක් කළ යුතුද?

හිස් කොටු කිහිපයක් ඇති තෙක් පේළි හරහා ලූප් කිරීමේ පියවර සමඟ VBA Excel පහත දැක්වේ.

පියවර:

• පළමුව, Visual Basic Editor විවෘත කරන්න සංවර්ධක ටැබය සහ ඇතුළු කරන්න මොඩියුලය කේත කවුළුවෙහි.
• ඉන්පසු, පිටපත් පහත කේතය සහ <1 එය කේත කවුළුව තුළට අලවන්න 1> මැක්‍රෝව ක්‍රියාත්මක කර ප්‍රතිදානය සඳහා පහත gif බලන්න.



මැක්‍රෝව ක්‍රියාත්මක කිරීමෙන් පසු එය නැවතුනේ නැත. පළමු හිස් කොටුව, Cell B8 . එය Cell B16 හි අඛණ්ඩ හිස් සෛල දෙකක් සොයාගත් විට එය නතර විය.

VBA කේත පැහැදිලි කිරීම

7246

කොටුව තෝරන්න අපි ක්‍රියා කරන්නෙමු.

7286

අඛණ්ඩ හිස් කොටු දෙකක් සොයා ගන්නා තෙක් ලූප් කිරීම ආරම්භ කර දිගටම කරගෙන යයි.

9524

අඛණ්ඩ හිස් කොටු දෙකක් හමු වූ විට, පසුවඑය තෝරා පුනරාවර්තනය නවත්වන්න.

11. එක්සෙල් හි සියලුම තීරු හිස් වන තෙක් පේළි හරහා ලූප් කිරීමට VBA කාවද්දන්න

මෙම කොටස මඟින් ඔබට වගුවක ඇති සියලුම පේළි හරහා ලූප් කර හිස් කොටුවක් දක්වා සියලු තීරු ඒකාබද්ධ කරන්නේ කෙසේදැයි පෙන්වයි. VBA Excel සමඟින් හමු වේ.

එක්සෙල් හි VBA macro සමඟ එය කරන්නේ කෙසේදැයි ඉගෙන ගනිමු.

පියවර:

• මුලින්ම, Developer ටැබයෙන් Visual Basic Editor විවෘත කර Insert Module කේත කවුළුව තුළ.
• ඉන්පසු, පිටපත් පහත කේතය සහ එය කේත කවුළුවට අලවන්න.

6356

ඔබගේ කේතය දැන් ධාවනය කිරීමට සුදානම්ය.



• පසුව, ක්‍රියාත්මක කරන්න මැක්‍රෝව සහ ප්‍රතිඵලය සඳහා පහත gif බලන්න.



ඉහත gif එකෙන් ඔබට පෙනෙන පරිදි, සෑම එකකම පවතින සියලුම තීරු වල ඒකාබද්ධ අගය පෙන්වන pop-up MsgBox පේළිය ඔබේ Excel වැඩ පත්‍රිකාවේ වගුවෙන්. නමුත් එය හිස් කොටුවට පැමිණි පසු එය නතර විය .

VBA කේත පැහැදිලි කිරීම

7488

විචල්‍යයන් නිර්වචනය කරන්න.

5807

අපි වැඩ කරන පත්‍ර නාමය සකසන්න (“ ConcatenatingAllColUntilBlank ” යනු වැඩපොතෙහි ඇති පත්‍ර නාමයයි).

8146

අපි වැඩ කරන පරාසය නිර්වචනය කරන්න.

9272

මෙම කේත කොටස අරාව සමඟ ලූපය ආරම්භ කරයි. එය අරාවේ විශාලතම උපසිරසිය සහ පහළ මායිම ආපසු ලබා දෙන තෙක් එය දිගටම ලූප් වේපළමු මානය. එවිට එය දෙවන මානයෙහි පහළ සීමාව නිස්සාරණය කිරීමේ පුනරාවර්තනයට ඇතුල් වේ. ඊට පසු, එය iResult විචල්‍යයේ ඇති සියලුම උද්ධෘත අගයන් ඒකාබද්ධ කර ප්‍රති result ලය MsgBox වෙත විසි කරයි. එය හිස් කොටුවක් සොයා ගන්නා තෙක් එය දිගටම කරගෙන යයි.

නිගමනය

නිමා කිරීමට, මෙම ලිපිය මඟින් ඔබට පේළි හරහා ලූප් කරන්නේ කෙසේද යන්න පිළිබඳ ඵලදායී ක්‍රම 11ක් පෙන්වා දුන්නේය. වගුවක Excel හි VBA macro සමඟ. මෙම ලිපිය ඔබට ඉතා ප්‍රයෝජනවත් වී ඇතැයි මම බලාපොරොත්තු වෙමි. මාතෘකාව සම්බන්ධයෙන් ඕනෑම ප්‍රශ්නයක් ඇසීමට නිදහස් වන්න.

ටැබයට සංවර්ධක -> Visual Basic Visual Basic Editor විවෘත කිරීමට.



• ඊළඟට, pop-up code window එකේ, මෙනු තීරුව, ක්ලික් කරන්න ඇතුළු කරන්න -> Module .



• ඉන්පසු, පිටපත් පහත කේතය එය එය කේතයට අලවන්න window.

6229

ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සුදානම්ය.



• දැන්, F5 ඔබන්න යතුරු පුවරුව හෝ මෙනු තීරුවෙන් තෝරන්න Run -> උප/පරිශීලක පෝරමය ධාවනය කරන්න. ඔබට මැක්‍රෝව ක්‍රියාත්මක කිරීමට උප මෙනු තීරුවේ ඇති කුඩා Play නිරූපකය මත ක්ලික් කරන්න.



• හෝ දත්ත කට්ටලය සහ ප්‍රතිඵලය දෘෂ්‍යව දැක බලා සංසන්දනය කරන්න, ඔබට කේතය සුරකින්න සහ උනන්දුව ඇති වැඩපත්‍රිකාවට ආපසු යන්න.
• එතනින්, ඔබට <1 ක්ලික් කළ හැක>මැක්‍රෝස් සංවර්ධක ටැබයෙන්, මැක්‍රෝ නම තෝරන්න, ඉන්පසු ධාවනය ක්ලික් කරන්න.



සාර්ථක කේත ක්‍රියාත්මක කිරීමෙන් පසු, ප්‍රතිඵලය බැලීමට ඉහත gif බලන්න. ඔබගේ Excel පත්‍රයේ ඇති වගුවෙන් එක් එක් පේළියේ සිටම සෑම සෛලයකම සෛල යොමු අංකය MsgBox පෙන්වන pop-up එකක් ඇත.

0> VBA කේත පැහැදිලි කිරීම

6191

B තීරුව සෙවීමෙන් වගුවේ අවසාන පේළි අංකය ලබා ගැනීමට.

5650

අපේ දත්ත ආරම්භ වන ස්ථානයේ සිට පේළි අංක 4 සකසන්න.

5516

පළමු පේළියේ සිට ලූප් කිරීමට.

5874

අපේ දත්ත ආරම්භ වන ස්ථානයේ සිට තීරු අංක 2 සකසන්න.

8423

අවසානය ලබා ගැනීමට පේළි හරහා ලූප් කිරීම අරඹන්න.අවසාන පේළිය දක්වා වත්මන් පේළිය ඇගයීමෙන් තීරු අංකය.

9303

පළමු පේළියේ සිට අවසාන පේළිය දක්වා තීරුව ලූප් කිරීම වැඩි කරන්න.

8561

මෙම කේත කොටස සැකසීමට ක්‍රියා කරයි, එක් එක් පසු වැඩි කිරීම පුනරාවර්තනය කර කේතයේ ප්‍රතිඵලය ප්‍රදර්ශනය කරන්න.

වැඩිදුර කියවන්න: Excel වගුවකට ස්වයංක්‍රීයව නව පේළියක් එකතු කරන්නේ කෙසේද

2 . අගය අනුව සෑම පේළියකම සෑම සෛලයක් හරහාම ලූප් කිරීමට VBA ක්‍රියාත්මක කරන්න

ඔබට අවශ්‍ය නම් වගුවක සෑම පේළියකම සෑම කොටුවක් හරහාම ලූප් කර ප්‍රතිලාභ අගය ලෙස සෛල තුළ පවතින අගය විසි කරන්න. , එවිට මෙම කොටස ඔබට VBA Excel සමඟ එය කරන්නේ කෙසේදැයි සොයා ගැනීමට උපකාරී වනු ඇත.

ඔබට ListObject සහ <1 සමඟ එය කළ හැක. VBA හි>DataBodyRange දේපල. වස්තුව සහ දේපල යන දෙකම සහිත සාර්ව කේතය අපි ඔබට පෙන්වන්නෙමු.

2.1. ListObject සමඟ

VBA Excel හි ඇති ListObject සමඟින් කොටු අගය අනුව වගුවක සෑම පේළියකම එක් එක් කොටුව හරහා ලූප් කිරීමේ පියවර පහත දක්වා ඇත.

පියවර:

• පෙර ආකාරයටම, Developer ටැබයෙන් Visual Basic Editor විවෘත කර කේත කවුළුවෙහි මොඩියුලය ඇතුළු කරන්න.
• ඉන්පසු, කේත කවුළුවෙහි, පිටපත් පහත කේතය සහ අලවන්න එය.

2088

ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සුදානම්ය.

බලන්න: Excel හි නිවැරදි අක්ෂර සහ අවකාශයන් කපා දමන්න (මාර්ග 5)



• ඊට පසුව, ක්‍රියාත්මක කරන්න macro ඉහත කොටසේ අපි ඔබට පෙන්වා දුන් පරිදි. ප්රතිඵලය gif හි දැක්වේයට>ඔබේ Excel පත්‍රයේ ඇති වගුවෙන්.

  VBA කේත පැහැදිලි කිරීම

  බලන්න: Excel සූත්‍රය භාවිතා කරමින් පරිසීමකය මගින් සෛලය බෙදන්නේ කෙසේද (මාර්ග 8)

  9325

  විචල්‍යයන් නිර්වචනය කරන්න.

  8261

  මෙම කෑල්ල කේතය පළමුව වගුවේ පේළි හරහා ලූප් වීමට පටන් ගනී (“ TblStudents ” යනු අපගේ වගුවේ නමයි). ඉන්පසු එක් එක් පේළිය සඳහා තීරු ඇතුල් කරයි. ඊට පසු, MsgBox හි සෛලයේ අගය ලබා දෙන්න. ඉන්පසු ඊළඟ තීරුව වෙත යන්න. එක් පේළියක සියලුම තීරු හරහා පුනරාවර්තනය අවසන් කිරීමෙන් පසුව, එය ඊළඟ පේළියට ගොස් අවසාන පේළිය දක්වා පුනරාවර්තන ක්‍රියාවලිය දිගටම කරගෙන යයි.

  2.2. DataBodyRange Property සමඟ

  වගුවෙන් උපුටා ගත් දත්ත සමඟ වඩාත් නිශ්චිත වීමට, ඔබට ListObject හි DataBodyRange ගුණාංගය භාවිතා කළ හැක. DataBodyRange ගුණාංගය මඟින් ශීර්ෂ පේළිය සහ ඇතුළු කිරීමේ පේළිය අතර ලැයිස්තුවේ ඇති පරාසය අඩංගු ප්‍රතිඵලය ඔබට විසි කරයි.

  ඔබට සෑම පේළියකම එක් එක් කොටුව හරහා ලූප් කළ හැකි ආකාරය පිළිබඳ පියවර VBA Excel හි DataBodyRange සමඟ සෛල අගය අනුව වගුවක පහත දක්වා ඇත.

  පියවර:

  • පෙන්වන පරිදි පෙර, Developer ටැබයෙන් Visual Basic Editor විවෘත කර කේත කවුළුව තුළ ඇතුළු කරන්න මොඩියුලය .
  • ඉන්පසු , පිටපත් පහත කේතය සහ එය කේත කවුළුවට අලවන්න.

  6461

  ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සූදානම්.

  

  • පසුව, ධාවනය කරන්න මැක්‍රෝව සහ ප්‍රතිදානය බැලීමට පහත gif බලන්න.

  

  උප-අප් MsgBox ඔබේ Excel පත්‍රයේ ඇති වගුවේ ඇති එක් එක් පේළියේ සිට සෑම කොටුවකින්ම ගෙන යන අගය පෙන්වයි.

  VBA කේත පැහැදිලි කිරීම

  5799

  විචල්‍යය නිර්වචනය කරන්න.

  3642

  මෙම කේත කොටස පළමුව වගුවේ පේළි හරහා ලූප් වීමට පටන් ගනී (“ TblStdnt ” අපගේ වගු නාමයයි) සහ හැර අගයන් පරාසයක් ලබා දෙයි. මේසයේ ශීර්ෂ පේළිය. ඉන්පසු MsgBox හි ඇති පරාසයේ අගය පාස් කරන්න. ඉන්පසු එය පරාසය උකහා ගැනීම සඳහා ඊළඟ පේළියට ගොස් අවසාන පේළිය දක්වා පුනරාවර්තන ක්‍රියාවලිය දිගටම කරගෙන යයි.

  3. එක්සෙල් හි තීරු සම්බන්ධ කිරීම මගින් පේළි හරහා පුනරාවර්තනය කිරීමට VBA මැක්‍රෝ යොදන්න

  මෙම කොටස ඔබේ දත්ත කට්ටලයෙන් පළමු තීරුව සමඟ තීරු ඒකාබද්ධ කිරීමෙන් වගුවක පේළි හරහා ලූප් කරන ආකාරය පෙන්වයි. Excel හි.

  උදාහරණයක් ලෙස, අපගේ දත්ත කට්ටලය සඳහා, පළමුව, අපි John in Cell B5 සහ 101 C5 හි හරහා නැවත නැවත සිදු කරන්නෙමු. John in Cell B5 සහ 89 Cell D5 මගින් ඒවා පේළිය 5 වෙතින් සංකලනය කිරීමෙන්.

  ඔබට එය කළ හැක්කේ කෙසේදැයි අපි ඔබට පෙන්වන්නෙමු. Excel හි VBA macro.

  පියවර:

  • මුලින්ම, Visual Basic Editor විවෘත කරන්න. 1>සංවර්ධක ටැබය සහ ඇතුළු කරන්න මොඩියුලය කේත කවුළුවෙහි.
  • දෙවනුව, කේත කවුළුවෙහි, පිටපත් කරන්න පහත කේතයසහ අලවන්න එය.

  2782

  ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සූදානම්ය.

  

  • තෙවනුව, <1 මැක්‍රෝව ක්‍රියාත්මක කරන්න. ප්‍රතිඵලය බැලීමට පහත gif බලන්න.

  

  ඔබට සංකලිත අගය පෙන්වමින් pop-up MsgBox වනු ඇත. පළමු සහ දෙවන තීරුවෙන් ( Cell B5 හි ජෝන් B සහ 101 C5 තීරුවෙන් C ) සහ පසුව සම්බන්ධිත අගය පේළි අංක 5 හි පළමු සහ තෙවැනි තීරුවෙන් ( Cell B5 හි ජෝන් B සහ Cell D5 හි 89 තීරුව D ) 2> ඔබේ දත්ත කට්ටලයෙන්. තවද මෙම concatenation මෙහෙයුම එය වගුවේ අවසාන පේළියට පැමිණෙන තෙක් දිගටම පවතිනු ඇත.

  VBA කේත පැහැදිලි කිරීම

  1356

  විචල්‍යය නිර්වචනය කරන්න.

  6643

  ඉන්පසු කේතය සක්‍රිය පත්‍රයෙන් වගුව තෝරයි (“ TblConcatenate ” අපගේ වගු නාමයෙන්).

  4885

  ඉන්පසු, ශීර්ෂකය හැර එක් එක් පේළිය නැවත නැවත කිරීමට පටන් ගනී. තීරුව. පුනරාවර්තනය තීරු ශීර්ෂය සහ පේළි අතර පරාසයේ ගැළපීමක් සොයා ගන්නේ නම්, එය iValue විචල්‍යයේ අගය ගබඩා කරයි.

  2329

  ඉහත කොන්දේසිය සපුරා නොමැති නම්, එවිට කේතය MsgBox හි අගය විසි කර කොන්දේසිය අවසන් කරයි. ඊට පසු, එය වෙනත් පරාසයක ලූප කිරීම වෙත ගමන් කරන අතර අවසාන පේළිය දක්වා පුනරාවර්තනය වේ. එය අවසන් පේළියට ළඟා වූ පසු, මැක්‍රෝව කේත ක්‍රියාත්මක කිරීම අවසන් කරයි.

  4. පුනරාවර්තනය කිරීමට මැක්‍රෝ කාවද්දන්නExcel හි වගුවක ඇති සියලුම තීරු සම්බන්ධ කිරීම මගින් පේළි හරහා

  මෙම කොටසේදී, අපි එක් එක් පේළියේ ඇති සියලුම තීරු සමඟ දත්ත කට්ටලයේ ඇති සියලුම තීරු ඒකාබද්ධ කරන්නේ කෙසේදැයි ඉගෙන ගනිමු. Excel හි VBA macro.

  ක්‍රියාත්මක කිරීමට අවශ්‍ය පියවර පහත දැක්වේ.

  පියවර:

  • පළමුව, විවෘත කරන්න දෘශ්‍ය මූලික සංස්කාරකය සංවර්ධක ටැබයෙන් සහ ඇතුළු කරන්න මොඩියුලය කේත කවුළුවෙහි.
  • ඉන්පසු, පහත කේතය පිටපත් කර අලවන්න කේත කවුළුවට.

  6325

  ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සූදානම්.

  <3

  • ඊළඟට, Run macro code එක.

  

  ඉහත gif එකෙන් ඔබට පෙනෙන පරිදි එහි තිබෙන බව. උත්පතන MsgBox මඟින් ඔබේ Excel වැඩ පත්‍රිකාවේ වගුවේ ඇති සෑම පේළියකම පවතින සියලුම තීරු වල සංයුක්ත අගය පෙන්වයි.

  VBA කේත පැහැදිලි කිරීම

  7328

  විචල්‍යයන් නිර්වචනය කරන්න.

  7707

  අපි වැඩ කරන පත්‍ර නාමය සකසන්න (“ ConcatenatingAllCol ” යනු පත්‍රයේ නමයි. වැඩපොතෙහි).

  7636

  දෙ අපි වැඩ කරන වගුවේ නම හොඳින් කරන්න (“ TblConcatenateAll ” යනු අපගේ දත්ත කට්ටලයේ වගු නාමයයි).

  1908

  වගුවෙහි එක් එක් පේළිය හරහා පුනරාවර්තනය ආරම්භ කරයි.

  4879

  වගුවෙහි එක් එක් පේළියේ එක් එක් තීරුව හරහා පුනරාවර්තනය ආරම්භ කරයි.

  9229

  එක් එක් පේළියේ එක් එක් තීරුව ගෙන යන අගයන් ඡේදනය කිරීමෙන් ප්‍රතිඵලය ගබඩා කරන්න. එක් එක් පේළියේ ඇති සියලුම තීරු හරහා ස්කෑන් කිරීමෙන් පසුව, එය පසුකර ගියේයප්රතිඵලය MsgBox. ඉන්පසු නැවතත් ඊළඟ පේළියේ ලූප් කිරීම ආරම්භ කර එය මේසයේ අවසාන පේළියට ළඟා වන තෙක් ලූප් කිරීම දිගටම කරගෙන යයි.

  වැඩිදුර කියවන්න: Excel VBA සමඟින් වගුවක බහුවිධ තීරු වර්ග කරන්නේ කෙසේද? (ක්‍රම 2)

  5. VBA මැක්‍රෝ සමඟ වගුවක පේළි හරහා ලූප් කිරීමෙන් අගය සොයාගතහොත් පුනරාවර්තනය නවත්වන්න

  ඔබට ඔබේ වගුවේ ඇති පේළි හරහා ලූප් කර නිශ්චිත අගයක් සොයාගත් විට ලූප් කිරීම නැවැත්වීමට අවශ්‍ය යැයි සිතන්න . ඔබට එය සරල මැක්‍රෝ කේතයකින් කළ හැක.

  එය කරන ආකාරය ඉගෙන ගනිමු VBA එක්සෙල් හි.

  පියවර:

  • මුලින්ම, Developer tab එකෙන් Visual Basic Editor විවෘත කර කේත කවුළුවේ Insert Module .
  • ඉන්පසු, කේත කවුළුව තුළ, පහත කේතය පිටපත් කර අලවන්න එය.

  9812

  ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සූදානම්ය. .

  

  • පසුව, මැක්‍රෝව ධාවනය කරන්න .
  • එය ලූපය අරඹා එය නවත්වනු ඇත. පරාසය තුළ නිශ්චිත අගය (“ Edge ”) සොයාගෙන ප්‍රතිඵලය MsgBox .
  වෙත විසි කරයි.

  

  ඉහත රූපයෙන් ඔබට පෙනෙන පරිදි, අපට සොයාගත් සෛල ලිපිනය, $B$10 පෙන්වන උත්පතන MsgBox එකක් තිබේ. නිශ්චිත අගය, “ Edge ” .

  VBA කේත පැහැදිලි කිරීම

  1507

  නිර්ණය කරන්න විචල්‍යය.

  2286

  මෙම කේත කොටස 1 සිට 15 දක්වා පේළි හරහා ලූප් කිරීම සඳහා මෙහි ඇත. එය නිශ්චිත වචනය සොයා ගන්නේ නම්“ Edge ” එවිට එය වචනය තබා ඇති සෛල ලිපිනය සමඟ ප්‍රතිඵලය ලබා දෙයි. වචනය සෙවීමේදී පේළි 1 සිට 15 දක්වා සියලු දත්ත ස්කෑන් කිරීම අවසන් වන තුරු එය මෙය දිගටම කරගෙන යයි.

  වැඩිදුර කියවන්න: Excel වගුවෙන් පේළි සහ තීරු ඇතුළු කරන්නේ හෝ මකන්නේ කෙසේද

  6. VBA එක් එක් පේළිය හරහා ලූප් කිරීමට සහ Excel හි නිශ්චිත අගයක් වර්ණ ගැන්වීමට

  ඔබට MsgBox හි නිශ්චිත අගයේ සෛල ලිපිනය විසි කිරීමට අවශ්‍ය නැතිනම් කුමක් කළ යුතුද? ඔබට ඔබ සොයන අගය දරන කොටුව වර්ණ ගැන්වීමට අවශ්‍ය විය හැකිය.

  අපි VBA macro සමඟ එය කරන්නේ කෙසේදැයි ඉගෙන ගනිමු.

  පියවර:

  • පෙර ආකාරයටම, Developer ටැබයෙන් Visual Basic Editor විවෘත කර Insert කේත කවුළුවේ මොඩියුලය .
  • ඉන්පසු, පහත කේතය පිටපත් කර අලවන්න කේත කවුළුවට.

  3082

  ඔබගේ කේතය දැන් ක්‍රියාත්මක වීමට සුදානම්ය.

  

  • ඊට පසුව, Run macro.
  • එය ලූපය අරඹා එය නවත්වන්නේ එය පරාසයේ ඇති නිශ්චිත අගය (“ Edge ”) සොයා ගත් විට සහ ColourIndex සමඟින් කෝෂය වර්ණවත් කරන්න ඔබ කේතයේ සපයා ඇති බව.

  

  ඉහත රූපයෙන් ඔබට පෙනෙන පරිදි, C ell B10 , අපි නිශ්චිත අගය සොයාගත් තැන, “ Edge ” සංකේතය ක්‍රියාත්මක කිරීමෙන් පසු වර්ණ වේ.

  VBA කේත පැහැදිලි කිරීම

  2593

  නිර්ණය කරන්න