අන්තර්ගත වගුව
විශාල දත්ත සමුදායන් තුළ, ඔබ ඔබේ කාලයෙන් වැඩි කාලයක් ගත කළේ පරාසයන් සහ කොටු සමඟ ගනුදෙනු කිරීමටය. සමහර විට ඔබට විශාල පරාසයක හෝ සෛල විශාල සංඛ්යාවක් එකම ක්රියාව නැවත කිරීමට සිදු වේ. මෙය එකවරම ඔබේ කාලය විනාශ කරන අතර ඔබේ කාර්යක්ෂමතාව අඩු කරයි. මෙම ගැටලුවට ඇති හොඳම විසඳුම නම් VBA ක්‍රමලේඛන කේතය ගොඩනැගීමයි, එය පරාසයේ එක් එක් සෛලය හරහා දිවෙන අතර ඔබ විසින් මෙහෙයවන ලද ක්‍රියාවම සිදු කරයි. අද මෙම ලිපියෙන් අපි සාකච්ඡා කරන්නේ එක්සෙල් හි පරාසයේ එක් එක් සෛල සඳහා VBA කරන්නේ කෙසේද යන්නයි.
පුහුණු වැඩපොත බාගන්න
ඔබ මෙම ලිපිය කියවන අතරතුර කාර්යය අභ්‍යාස කිරීමට මෙම පුහුණු පොත බාගන්න.
Excel.xlsx හි එක් එක් සෛලය සඳහා VBA කේතය
එක්සෙල් හි පරාසයක එක් එක් සෛලය සඳහා VBA අයදුම් කිරීමට සුදුසු ක්‍රම 3
VBA කේතයක් භාවිතයෙන් ඔබට පරාසයක හෝ තීරුවක හෝ පේළියක ඇති සෑම කොටුවකටම එකම සූත්‍රය සිදු කළ හැක. මෙම කොටසේදී, අපි සියලුම කොටස් හරහා යන්නෙමු.
1. පරාසයේ එක් එක් සෛල සඳහා VBA යොදන්න
ඔබට a තුළ ඇති සෑම කොටුවකටම එකම VBA කේතය යෙදිය යුතු තත්වයක් සලකා බලන්න. ලබා දී ඇති පරාසය ( B3:F12 ). මෙය සිදු කිරීම සඳහා අපි VBA කේතයක් සාදන්නෙමු. උපදෙස් පහත දක්වා ඇත
පියවර 1:
- පළමුව, අපි අපගේ කාර්යය සරල කිරීමට විධාන බොත්තමක් ඇතුල් කරන්නෙමු. . ඔබගේ සංවර්ධක පටිත්ත වෙත ගොස්, ඇතුළු කරන්න තෝරන්න, සහ එකක් ලබා ගැනීමට විධාන බොත්තම ක්ලික් කරන්න.
- අපට අපගේ විධානය ලැබී ඇතබොත්තම.
- විකල්ප විවෘත කිරීමට විධාන බොත්තම මත දකුණු-ක්ලික් කරන්න. සමහර විකල්ප වෙනස් කිරීමට ප්‍රොපටීස් තෝරා ක්ලික් කරන්න.
3>
- 12>විධාන බොත්තමෙහි සිරස්තලය වෙනස් කරන්න. මෙන්න අපි නම වෙනස් කරනවා, “ මෙතන ක්ලික් කරන්න ”.
පියවර 2:
<11 
- මුලින්ම, අපි විචල්‍ය දෙකක් ප්‍රකාශ කරමු. අපි පරාස වස්තු CL සහ Rng ලෙස හඳුන්වමු. ඔබට ඒවා ඔබ කැමති පරිදි නම් කළ හැක.
1906
- මෙම විධානය මඟින් නිශ්චිත පරාසයක් පවරන්න,
සකසන්න Rng = Worksheets(“VBA1”).Range(“B3:F12”)
- මෙහි VBA1 යනු අපගේ වැඩ පත්‍රිකාවේ නම වන අතර B3:F12 යනු අපගේ අර්ථ දක්වා ඇති පරාසයයි.
- දැන් අපි පරාසයේ එක් එක් කොටුව හරහා ක්‍රියා කිරීමට කේතය භාවිත කරමු. කේතය වන්නේ,
2852
- Value = 100 එය ලබා දී ඇති පරාසයේ එක් එක් කොටුව සඳහා 100 ලබා දෙන බව ය.
- එබැවින් අපගේ අවසාන කේතය වන්නේ,
9411
- ඔබේ ප්‍රධාන වැඩ පත්‍රිකාව වෙත ගොස් VBA ධාවනය කිරීමට විධාන බොත්තම ක්ලික් කරන්න. පරාසයේ ඇති සෑම කොටුවක් සඳහාම පරාසය තුළ එක් එක් කොටුව සඳහා පෙළ අගයන් දමන්න. එවැනි අවස්ථාවක, VBA කවුළුව වෙත ගොස්, 100 වෙනුවට, ඔබට ධාවනය කිරීමට අවශ්‍ය පෙළ අගය ඇතුල් කරන්න. වෙනස් වූරේඛාව
2222
- විධාන බොත්තම මත ක්ලික් කරන්න, එවිට VBA කේතය පරාසයේ එක් එක් කොටුව සඳහා මෙම පෙළ අගය ලබා දෙනු ඇත.
පියවර 4:
- මෙම පියවරේදී අපි ටිකක් ගැඹුරට හාරන්නෙමු. අපි කියමු අපට අපගේ පරාසයේ ඇති සෑම හිස් කොටුවක්ම උද්දීපනය කිරීමට අවශ්‍යයි.
- ඒ සඳහා, ඔබේ පවතින කේතයට නව කොන්දේසියක් එක් කරන්න. නව සූත්‍රය වන්නේ,
9690
- මෙම නව කේතය රතු පැහැයෙන් හිස් කොටුව ඉස්මතු කරයි. එබැවින් සම්පූර්ණ කේතය වන්නේ,
9640
- විධාන බොත්තම ක්ලික් කිරීමෙන් ප්‍රතිඵලය ලබා ගන්න.
සමාන කියවීම්:
- Excel හි VBA පරාසයේ වස්තුව භාවිතා කරන්නේ කෙසේද (5 ගුණාංග)
- VBA පරාසයේ ඕෆ්සෙට් භාවිතා කරන්න (මාර්ග 11)
- Excel හි පෙළ ගණන් කරන ආකාරය (පහසු උපක්‍රම 7)
2. VBA ඇතුළු කරන්න පරාසයක තීරුවක එක් එක් සෛල සඳහා කේතය
අපිට තීරුවක එක් එක් කොටුව සඳහා VBA කේතය ද ධාවනය කළ හැක. අපට සංඛ්‍යා අඩංගු තීරුවක් ඇතැයි සිතමු සහ අපට 10ට වඩා අඩු අගයන් වර්ණ ගැන්විය යුතුය. තීරුවේ සෑම කොටුවක්ම ධාවනය කිරීමට අපි VBA කේතයක් සාදන්නෙමු.
පියවර 1:
- අපි සාකච්ඡා කළ උපදෙස් අනුගමනය කරමින් විධාන බොත්තමක් සාදන්න.
පියවර 2:
- VBA කවුළුව විවෘත කිරීමට විධාන බොත්තම මත දෙවරක් ක්ලික් කරන්න.
- අපි “ c ” වර්ගයේ විචල්‍යයක් ප්‍රකාශ කරන්නෙමු. දිගු. අපි මෙතනදි Type Long variable එක පාවිච්චි කරන්නේ Long නිසාවිචල්‍යයන් පූර්ණ සංඛ්‍යා විචල්‍යයන්ට වඩා විශාල ධාරිතාවක් ඇත.
4270
- ඊළඟට, අපගේ තීරුවේ ඇති සියලුම සෛලවල අකුරු වර්ණය වෙනස් කරන කේත රේඛාව එක් කරන්න. කළු.
2524
- මෙම කේතය සඳහා ලූපය ඇතුළු කරන්න.
1500
- මෙම පියවරේදී, C4 (10) සෛලයේ අගයට වඩා අඩු අගයන් වර්ණ ගැන්වීම සඳහා අපි කොන්දේසියක් ඇතුළත් කරමු. එය කිරීමට මෙම කේතය ඇතුලත් කරන්න.
2609
- ඉතින් අවසාන කේතය වන්නේ,
7787
- VBA ඔබ විධාන බොත්තම මත ක්ලික් කළ විට ධාවනය කර ප්‍රතිඵල පෙන්වනු ඇත.
3. පරාසයක පේළියක එක් එක් සෛලය සඳහා VBA කේතයක් ලියන්න
අපට පේළියක ඇති සෑම කොටුවක් සඳහාම VBA කේතයක් ධාවනය කළ හැක. ලබා දී ඇති පේළියේ, පේළියේ සෑම කොටුවකටම අපි එකම ක්රියාව සිදු කළ යුතුයි.
පියවර 1:
- 12>විධාන බොත්තමක් එක් කර එහි නම “ මෙතන ක්ලික් කරන්න! ” ලෙස වෙනස් කරන්න
- බොත්තම මත දෙවරක් ක්ලික් කරන්න VBA කවුළුව විවෘත කරන්න. පහත සපයා ඇති VBA කේතය ලියන්න.
9861
- කේතය පේළියේ එක් එක් කොටුව හරහා දිවෙන අතර එක් එක් කොටුවට කහ වර්ණ පිරවීමක් යොදනු ඇත.
- බොත්තම මත ක්ලික් කරන්න, එවිට අපගේ ප්‍රතිඵලය මෙහි ඇත.
ඉක්මන් සටහන්
👉 නම් ඔබට ඔබේ සංවර්ධක ටැබය දෘශ්‍යමාන නොවේ, ඔබට මෙම උපදෙස් භාවිතයෙන් එය සක්‍රිය කළ හැක.
අභිරුචිකරණය කළ ඉක්මන් ප්‍රවේශ මෙවලම් තීරුව → තවත් විධාන → රිබන් අභිරුචිකරණය → සංවර්ධක → හරි
නිගමනය
අපි පරාසයක එක් එක් කොටුව සඳහා VBA ධාවනය කිරීමට විවිධ ප්‍රවේශයන් තුනක් හරහා ගොස් ඇත. ඔබට කිසියම් ප්‍රශ්නයක් හෝ විමසීමක් ඇත්නම් අදහස් දැක්වීමට ඔබව සාදරයෙන් පිළිගනිමු. ඔබට Excel කාර්යයන් සම්බන්ධ අපගේ අනෙකුත් ලිපිද පරීක්ෂා කළ හැක!
