මෙම නිබන්ධනයේදී, Excel හි තෝරාගත් කොටුවක පේළිය සහ තීරුව ගතිකව උද්දීපනය කිරීමට විවිධ ක්‍රම 3ක් ඔබ ඉගෙන ගනු ඇත.

දීර්ඝ කාලයක් විශාල වැඩ පත්‍රිකාවක් බලන විට, ඔබ ඔබගේ කර්සරය කොතැනද සහ ඔබ බලන්නේ කුමන දත්තද යන්න අවසානයේ අහිමි විය හැක. ඕනෑම මොහොතක ඔබ සිටින්නේ කොතැනදැයි හරියටම දැන ගැනීමට, ඔබ වෙනුවෙන් සක්‍රිය පේළිය සහ තීරුව ස්වයංක්‍රීයව උද්දීපනය කිරීමට Excel ලබා ගන්න! ස්වාභාවිකවම, උද්දීපනය ගතික විය යුතු අතර ඔබ වෙනත් කොටුවක් තෝරා ගන්නා සෑම අවස්ථාවකම වෙනස් විය යුතුය. අත්‍යවශ්‍යයෙන්ම, අප සාක්ෂාත් කර ගැනීමට ඉලක්ක කරන්නේ මෙයයි:

ස්වයං-උද්දීපනය කරන ලද VBA සමඟ තෝරාගත් කොටුවේ පේළිය සහ තීරුව

මෙය උදාහරණයක් ලෙස VBA සමඟින් ඔබට ක්‍රියාකාරී තීරුවක් සහ පේළියක් ක්‍රමලේඛනාත්මකව උද්දීපනය කළ හැකි ආකාරය පෙන්වයි. මේ සඳහා, අපි වැඩපත්‍ර වස්තුවේ SelectionChange සිදුවීම භාවිතා කරන්නෙමු.

පළමුව, ඔබ <සැකසීමෙන් පත්‍රයේ ඇති සියලුම සෛලවල පසුබිම් වර්ණය ඉවත් කරන්න 1>ColorIndex දේපල 0 දක්වා. ඉන්පසු, ඔබ ඔවුන්ගේ ColorIndex දේපල අපේක්ෂිත වර්ණය සඳහා දර්ශක අංකයට සැකසීමෙන් සක්‍රිය කොටුවේ සම්පූර්ණ පේළිය සහ තීරුව උද්දීපනය කරන්න.

කේතය අභිරුචිකරණය කිරීම

ඔබ ඔබේ අවශ්‍යතා සඳහා කේතය අභිරුචිකරණය කිරීමට කැමති නම්, මෙම කුඩා ඉඟි ප්‍රයෝජනවත් විය හැක:

• අපගේ නියැදි කේතය ඉහත gif හි නිරූපණය කර ඇති වෙනස් වර්ණ දෙකක් භාවිතා කරයි - පේළිය සඳහා වර්ණ දර්ශකය 38 සහ තීරුව සඳහා 24. උද්දීපන වර්ණය වෙනස් කිරීමට , ඔබ තෝරා ගන්නා ඕනෑම ColorIndex කේත සමඟ ඒවා ප්‍රතිස්ථාපනය කරන්න.
• පේළිය සහ තීරුව එකම ආකාරයෙන් වර්ණ ගැන්වීමට, එයම භාවිතා කරන්න දෙකම සඳහා වර්ණ දර්ශක අංකය.
• ක්‍රියාකාරී පේළිය පමණක් උද්දීපනය කිරීමට, මෙම පේළිය ඉවත් කරන්න හෝ අදහස් දක්වන්න: .EntireColumn.Interior.ColorIndex = 24
• ක්‍රියාකාරී තීරුව පමණක් උද්දීපනය කිරීමට, මෙම පේළිය ඉවත් කරන්න හෝ අදහස් දක්වන්න: .EntireRow.Interior.ColorIndex = 38

කේතය එකතු කරන්නේ කෙසේද ඔබේ වැඩ පත්‍රිකාවට

නිශ්චිත වැඩ පත්‍රිකාවක පසුබිමේ කේතය නිශ්ශබ්දව ක්‍රියාත්මක කිරීමට, ඔබ එය සාමාන්‍ය මොඩියුලයේ නොව එම වැඩ පත්‍රිකාවට අයත් කේත කවුළුවට ඇතුළු කළ යුතුය. එය සිදු කිරීම සඳහා, මෙම පියවර අනුගමනය කරන්න:

1. ඔබේ වැඩපොතෙහි, VBA සංස්කාරකය වෙත යාමට Alt + F11 ඔබන්න.
2. වමේ ඇති Project Explorer හි, ඔබ' සියලුම විවෘත වැඩපොත් සහ ඒවායේ වැඩ පත්‍රිකා ලැයිස්තුවක් දකියි. ඔබට එය නොපෙනේ නම්, බැලීමට Project Explorer කවුළුව ගෙන ඒමට Ctrl + R කෙටිමඟ භාවිතා කරන්න.
3. ඉලක්ක වැඩපොත සොයා ගන්න. එහි Microsoft Excel හිObjects ෆෝල්ඩරය, ඔබට උද්දීපනය කිරීමට අවශ්‍ය පත්‍රය මත දෙවරක් ක්ලික් කරන්න. මෙම උදාහරණයේදී, එය Sheet 1 වේ.
4. දකුණු පස ඇති කේත කවුළුවෙහි, ඉහත කේතය අලවන්න.
5. ඔබගේ ගොනුව Macro-Enabled Workbook ලෙස සුරකින්න (.xlsm).

වාසි : සෑම දෙයක්ම පසු අන්තයේ සිදු කෙරේ; පරිශීලකයාගේ පැත්තෙන් ගැලපීම්/අභිරුචිකරණයන් අවශ්‍ය නොවේ; සියලුම Excel අනුවාද වල ක්‍රියා කරයි.

අඩුපාඩු : යම් යම් තත්වයන් යටතේ මෙම ක්‍රමය අදාළ නොවන බවට අත්‍යවශ්‍ය අවාසි දෙකක් ඇත:

• කේතය පසුබිම හිස් කරයි වැඩ පත්‍රිකාවේ ඇති සියලුම සෛලවල වර්ණ . ඔබට කිසියම් වර්ණවත් කොටු තිබේ නම්, මෙම විසඳුම භාවිතා නොකරන්න, මන්ද ඔබේ අභිරුචි හැඩතල ගැන්වීම නැති වී යනු ඇත.
• මෙම කේතය ක්‍රියාත්මක කිරීම අවහිර කිරීමේ ක්‍රියාකාරීත්වය බ්ලොක් කරයි පත්‍රය, සහ ඔබට Ctrl + Z එබීමෙන් වැරදි ක්‍රියාවක් අහෝසි කිරීමට නොහැකි වනු ඇත.

VBA නොමැතිව සක්‍රිය පේළිය සහ තීරුව උද්දීපනය කරන්න

තෝරාගත් පේළිය උද්දීපනය කිරීමට ඔබට ලබා ගත හැකි හොඳම දේ සහ /හෝ VBA නොමැති තීරුව යනු Excel හි කොන්දේසිගත හැඩතල ගැන්වීමයි. එය පිහිටුවීමට, මෙම පියවර අනුගමනය කරන්න:

1. උද්දීපනය කළ යුතු ඔබේ දත්ත කට්ටලය තෝරන්න.
2. මුල් පිටුව ටැබය මත, Styles group, New Rule ක්ලික් කරන්න.
3. New Formatting Rule සංවාද කොටුවේ, Cell තීරනය කිරීමට සූත්‍රයක් භාවිතා කරන්න. format .
4. මෙම සූත්‍රය ඇති ආකෘති අගයන් තුළසත්‍ය කොටුව, මෙම සූත්‍රවලින් එකක් ඇතුළත් කරන්න:

   ක්‍රියාකාරී පේළිය :

   =CELL("row")=ROW()

   උද්දීපනය කිරීමට ක්‍රියාකාරී තීරුව :

   =CELL("col")=COLUMN()

   ක්‍රියාකාරී පේළිය සහ තීරුව :

   =OR(CELL("row")=ROW(), CELL("col")= COLUMN())

   උද්දීපනය කිරීමට සියලුම සූත්‍ර CELL ශ්‍රිතය භාවිතා කරයි තෝරාගත් කොටුවේ පේළිය/තීරු අංකය ආපසු දෙන්න.

5. Format බොත්තම ක්ලික් කරන්න, Fill ටැබය වෙත මාරු වී ඔබ කැමති වර්ණය තෝරන්න.
6. වසා ගැනීමට OK දෙවරක් ක්ලික් කරන්න සංවාද කවුළු දෙකම.

ඔබට වඩාත් සවිස්තරාත්මක උපදෙස් අවශ්‍ය යැයි හැඟේ නම්, කරුණාකර සූත්‍රය මත පදනම් වූ කොන්දේසි සහිත හැඩතල ගැන්වීමේ රීතිය සාදන ආකාරය බලන්න.

මෙම උදාහරණය සඳහා, අපි OR සඳහා තෝරා ගත්තෙමු. තීරුව සහ පේළිය යන දෙකම එකම වර්ණයෙන් සෙවන කිරීමට සූත්‍රය. එය අඩු කාර්යයක් ගන්නා අතර බොහෝ අවස්ථාවන් සඳහා සුදුසු වේ.

අවාසනාවකට, මෙම විසඳුම VBA එක තරම් හොඳ නැත මන්ද එයට පත්‍රය අතින් නැවත ගණනය කිරීම අවශ්‍ය වේ (F9 යතුර එබීමෙන්). පෙරනිමියෙන්, Excel වැඩ පත්‍රිකාවක් නැවත ගණනය කරන්නේ නව දත්ත ඇතුළත් කිරීමෙන් හෝ පවතින එක සංස්කරණය කිරීමෙන් පසුව පමණි, නමුත් තේරීම වෙනස් වූ විට නොවේ. එබැවින්, ඔබ වෙනත් සෛලයක් තෝරන්න - කිසිවක් සිදු නොවේ. F9 ඔබන්න - පත්‍රය නැවුම් කර, සූත්‍රය නැවත ගණනය කර, සහ උද්දීපනය යාවත්කාලීන කර ඇත.

SelectionChange සිදුවීමේදී ස්වයංක්‍රීයව වැඩ පත්‍රිකාව නැවත ගණනය කර ගැනීමට සිදුවේ, ඔබට මෙම සරල VBA කේතය ඔබේ ඉලක්ක පත්‍රයේ කේත මොඩියුලය තුළ පැහැදිලි කර ඇති පරිදි තැබිය හැකපෙර උදාහරණය:

කේතය තෝරාගත් පරාසය/සෛලය නැවත ගණනය කිරීමට බල කරන අතර එමඟින් CELL ශ්‍රිතය යාවත්කාලීන කිරීමට සහ කොන්දේසි සහිත හැඩතල ගැන්වීම පරාවර්තනය කිරීමට බල කරයි. වෙනස.

වාසි : පෙර ක්‍රමය මෙන් නොව, මෙය ඔබ අතින් යෙදූ පවතින හැඩතල ගැන්වීමට බලපාන්නේ නැත.

අඩුපාඩු : විය හැක. Excel හි කාර්ය සාධනය නරක අතට හැරේ.

• කොන්දේසි සහිත හැඩතල ගැන්වීම ක්‍රියා කිරීමට, ඔබ සෑම තේරීම් වෙනස්කමකදීම (F9 යතුර සමඟ අතින් හෝ ස්වයංක්‍රීයව VBA සමඟින්) සූත්‍රය නැවත ගණනය කිරීමට Excel හට බල කළ යුතුය. බලහත්කාරයෙන් නැවත ගණනය කිරීම් ඔබගේ Excel මන්දගාමී විය හැක. අපගේ කේතය සම්පූර්ණ පත්‍රයකට වඩා තේරීම නැවත ගණනය කරන බැවින්, සෘණාත්මක බලපෑමක් බොහෝ විට සැලකිය හැක්කේ විශාල හා සංකීර්ණ වැඩපොත් මත පමණි.
• CELL ශ්‍රිතය Excel 2007 සහ ඊට ඉහළ ඇති බැවින්, ක්‍රමය ජය ගනී' t පෙර අනුවාද වල ක්‍රියා කරයි.

කොන්දේසි සහිත හැඩතල ගැන්වීම සහ VBA භාවිතයෙන් තෝරාගත් පේළිය සහ තීරුව උද්දීපනය කරන්න

පෙර ක්‍රමය ඔබේ වැඩපොත සැලකිය යුතු ලෙස මන්දගාමී කරන්නේ නම්, ඔබට කාර්යයට වෙනස් ආකාරයකින් ප්‍රවේශ විය හැක - ඒ වෙනුවට සෑම පරිශීලක චලනයකදීම වැඩ පත්‍රිකාවක් නැවත ගණනය කිරීම, VBA ආධාරයෙන් ක්‍රියාකාරී පේළි/තීරු අංකය ලබා ගන්න, ඉන්පසු කොන්දේසි සහිත හැඩතල ගැන්වීමේ සූත්‍ර භාවිතයෙන් එම අංකය ROW() හෝ COLUMN() ශ්‍රිතයට සේවය කරන්න.

ට මෙය ඉටු කරන්න,ඔබ අනුගමනය කළ යුතු පියවර මෙන්න:

1. ඔබේ වැඩපොතට නව හිස් පත්‍රයක් එක් කර එය උදවු පත්‍රය නම් කරන්න. මෙම පත්‍රයේ එකම අරමුණ තෝරාගත් කොටුවක් අඩංගු පේළිය සහ තීරුව නියෝජනය කරන සංඛ්‍යා දෙකක් ගබඩා කිරීම වේ, එවිට ඔබට පසු අවස්ථාවක ආරක්ෂිතව පත්‍රය සැඟවිය හැක.
2. පහත VBA එක වැඩ පත්‍රිකාවේ කේත කවුළුවට ඇතුළු කරන්න. ඔබට උද්දීපනය ක්‍රියාත්මක කිරීමට අවශ්‍ය තැන. සවිස්තරාත්මක උපදෙස් සඳහා, කරුණාකර අපගේ පළමු උදාහරණය බලන්න. පුද්ගලික උප වැඩ පත්‍රිකාව_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Worksheets( "Helper Sheet" ).Cells(2, 1) = Target.Row Worksheets( "Helper Sheet" ).Cells(2, 2) = Target.Column Application.ScreenUpdating = True End Sub

   ඉහත කේතය සක්‍රිය පේළියේ සහ තීරුවේ ඛණ්ඩාංක "Helper Sheet" නම් පත්‍රයට තබයි. ඔබ 1 පියවරේදී ඔබේ පත්‍රය වෙනස් ලෙස නම් කළේ නම්, ඒ අනුව කේතයේ වැඩ පත්‍රිකාවේ නම වෙනස් කරන්න. පේළි අංකය A2 ලෙසත් තීරු අංකය B2 ලෙසත් ලියා ඇත.

3. ඔබගේ ඉලක්ක වැඩ පත්‍රිකාවේ, සම්පූර්ණ දත්ත කට්ටලයම තෝරා, පහත සූත්‍ර සමඟ කොන්දේසි සහිත හැඩතල ගැන්වීමේ රීතියක් සාදන්න. ඉහත උදාහරණයේ පියවරෙන් පියවර මාර්ගෝපදේශනය සපයා ඇත.

දැන්, අපි ප්‍රධාන භාවිත අවස්ථා තුන විස්තරාත්මකව ආවරණය කරමු.

ක්‍රියාකාරී පේළිය උද්දීපනය කරන්නේ කෙසේද

මේ මොහොතේ ඔබේ කර්සරය තබා ඇති පේළිය උද්දීපනය කිරීමට, මෙය සමඟ කොන්දේසි සහිත හැඩතල ගැන්වීමේ රීතියක් සකසන්නසූත්‍රය:

=ROW()='Helper Sheet'!$A$2

ප්‍රතිඵලයක් ලෙස, පරිශීලකයාට දැනට තෝරාගෙන ඇති පේළිය පැහැදිලිව දැකගත හැක:

ක්‍රියාකාරී තීරුව උද්දීපනය කරන්නේ කෙසේද

තෝරාගත් තීරුව උද්දීපනය කිරීමට, මෙම සූත්‍රය භාවිතයෙන් තීරු අංකය COLUMN ශ්‍රිතයට සංග්‍රහ කරන්න:

=COLUMN()='Helper Sheet'!$B$2

දැන්, උද්දීපනය කළ තීරුවක් ඔබට සුවපහසුව සහ වෙහෙසකින් තොරව සිරස් දත්ත සම්පූර්ණයෙන්ම අවධානය යොමු කරමින් කියවීමට ඉඩ සලසයි.

ක්‍රියාකාරී පේළිය සහ තීරුව උද්දීපනය කරන්නේ කෙසේද

තෝරාගත් පේළි සහ තීරු දෙකම එකම වර්ණයකින් ස්වයංක්‍රීයව සෙවන ලබා ගැනීමට, ROW() සහ COLUMN() ශ්‍රිත එක් සූත්‍රයකට ඒකාබද්ධ කරන්න:

=OR(ROW()='Helper Sheet'!$A$2, COLUMN()='Helper Sheet'!$B$2)

වාසි : ප්‍රශස්ත කාර්ය සාධනය; සියලුම Excel අනුවාද වල ක්‍රියා කරයි

අඩුපාඩු : දිගම සැකසුම

එනම් Excel හි තෝරාගත් කොටුවක තීරුව සහ පේළිය උද්දීපනය කරන ආකාරයයි. කියවීමට මම ඔබට ස්තූතිවන්ත වන අතර ලබන සතියේ අපගේ බ්ලොගයේ ඔබව දැකීමට බලාපොරොත්තු වෙමි!

බාගැනීම සඳහා වැඩපොත පුහුණු වන්න

සක්‍රීය පේළිය සහ තීරුව ඉස්මතු කිරීම (.xlsm ගොනුව)