සම්බන්ධීකරණ තේරීම

ඔබට විශාල මොනිටරයක් ​​ඇත, නමුත් ඔබ වැඩ කරන වගු ඊටත් වඩා විශාලයි. තවද, අවශ්‍ය තොරතුරු සෙවීම සඳහා තිරය දෙස බැලීමෙන්, ඔබේ ඇස් ඊළඟ පේළියට “ලිස්සා” යාමට සහ වැරදි දිශාවට බැලීමට සෑම විටම අවස්ථාවක් තිබේ. එවැනි අවස්ථාවන් සඳහා, මොනිටරයේ රේඛාවට එය ඇලවීම සඳහා ලී පාලකයක් සෑම විටම ළඟ තබා ගන්නා අය පවා මම දනිමි. අනාගතයේ තාක්ෂණයන්! 

සක්‍රිය සෛලය පත්‍රය හරහා ගමන් කරන විට වත්මන් පේළිය සහ තීරුව උද්දීපනය කරන්නේ නම්? මෙවැනි ආකාරයේ ඛණ්ඩාංක තේරීමක්:

පාලකයෙකුට වඩා හොඳයි නේද?

මෙය ක්රියාත්මක කිරීම සඳහා විවිධ සංකීර්ණ ක්රම කිහිපයක් තිබේ. සෑම ක්රමයක්ම එහි වාසි සහ අවාසි ඇත. අපි ඒවා විස්තරාත්මකව බලමු.

ක්රමය 1. පැහැදිලිය. වත්මන් පේළිය සහ තීරුව උද්දීපනය කරන මැක්රෝ

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

එවැනි ඛණ්ඩාංක තේරීමක් ලබා ගැනීමට ඔබට අවශ්ය වගුවක් සහිත පත්රයක් විවෘත කරන්න. ෂීට් ටැබය මත දකුණු-ක්ලික් කර සන්දර්භය මෙනුවෙන් විධානය තෝරන්න මූලාශ්ර පාඨය (ප්රභව කේතය).Visual Basic Editor කවුළුව විවෘත විය යුතුය. මෙම මැක්‍රෝ තුනේ මෙම පාඨය එයට පිටපත් කරන්න:

Boolean ලෙස Dim Coord_Selection තෝරා ගැනීම සඳහා ගෝලීය විචල්‍යය සක්‍රිය/අක්‍රිය Sub Selection_On() 'Macro on selection Coord_Selection = True End Sub Selection_Off() 'Macro off selection Coord_Selection = False End Sub' තෝරාගැනීම සිදු කරන ප්‍රධාන ක්‍රියා පටිපාටිය පුද්ගලික උප වැඩ පත්‍රිකාව_SelectionChange(Bget AsyVSelectionChange) පරාසය) Target.Cells.Count > 1 නම් පරාසයක් ලෙස වැඩ පරාසය අඳුරු කරන්න, ඉන්පසුව Cell 1කට වඩා තෝරාගෙන ඇත්නම් Sub 'පිටවන්න, Coord_Selection = False නම් පිටවන්න, තේරීම ක්‍රියාවිරහිත නම් Sub' පිටවන්න, Application.ScreenUpdating = වැරදි සකසන WorkRange = Range වෙතින් පිටවන්න. (" A6:N300") 'තේරීම දෘශ්‍යමාන වන වැඩ කරන පරාසයේ ලිපිනය

වැඩ කරන පරාසයේ ලිපිනය ඔබේම ලෙස වෙනස් කරන්න - අපගේ තේරීම ක්‍රියාත්මක වන්නේ මෙම පරාසය තුළ ය. ඉන්පසු Visual Basic Editor එක වසා නැවත Excel වෙත යන්න.

යතුරුපුවරු කෙටිමඟ ඔබන්න ALT + F8පවතින මැක්‍රෝ ලැයිස්තුවක් සහිත කවුළුවක් විවෘත කිරීමට. මැක්රෝ තේරීම_ක්‍රියාත්මකයි, ඔබ අනුමාන කළ හැකි පරිදි, වත්මන් පත්‍රයේ ඛණ්ඩාංක තේරීම සහ මැක්‍රෝ ඇතුළත් වේ තේරීම_අක්‍රිය - එය නිවා දමයි. එකම කවුළුව තුළ, බොත්තම ක්ලික් කිරීමෙන් පරාමිතීන් (විකල්ප) ඔබට පහසුවෙන් දියත් කිරීම සඳහා මෙම මැක්‍රෝ වෙත යතුරුපුවරු කෙටිමං පැවරිය හැක.

මෙම ක්රමයේ වාසි:

  • ක්රියාත්මක කිරීමේ සාපේක්ෂ පහසුව
  • තේරීම - මෙහෙයුම හානිකර නොවන අතර පත්‍ර සෛලවල අන්තර්ගතය හෝ හැඩතල ගැන්වීම කිසිඳු ආකාරයකින් වෙනස් නොකරයි, සියල්ල එලෙසම පවතී

මෙම ක්රමයේ අවාසි:

  • පත්‍රයේ ඒකාබද්ධ කොටු තිබේ නම් එවැනි තේරීමක් නිවැරදිව ක්‍රියා නොකරයි - සංගමයට ඇතුළත් කර ඇති සියලුම පේළි සහ තීරු එකවර තෝරා ගනු ලැබේ
  • ඔබ අහම්බෙන් මකන්න යතුර එබුවහොත්, සක්‍රිය කොටුව පමණක් නොව, තෝරාගත් මුළු ප්‍රදේශයම හිස් කරනු ඇත, එනම් සම්පූර්ණ පේළියෙන් සහ තීරුවෙන් දත්ත මකන්න

ක්රමය 2. මුල්. CELL + කොන්දේසි සහිත හැඩතල ගැන්වීමේ කාර්යය

මෙම ක්රමය, එහි අඩුපාඩු කිහිපයක් තිබුණද, මට ඉතා අලංකාර ලෙස පෙනේ. ගොඩනඟන ලද එක්සෙල් මෙවලම් පමණක් භාවිතයෙන් යමක් ක්‍රියාත්මක කිරීම සඳහා, අවම වශයෙන් VBA හි ක්‍රමලේඛනයට පිවිසීම aerobatics වේ 😉

මෙම ක්‍රමය පදනම් වී ඇත්තේ CELL ශ්‍රිතය භාවිතා කිරීම මත වන අතර, එය ලබා දී ඇති කොටුවක විවිධ තොරතුරු ලබා දිය හැක - උස, පළල, පේළි-තීරු අංකය, අංක ආකෘතිය, යනාදිය. මෙම ශ්‍රිතයට තර්ක දෙකක් ඇත:

  • "තීරුව" හෝ "පේළිය" වැනි පරාමිතිය සඳහා කේත වචනයක්
  • මෙම පරාමිතියේ අගය තීරණය කිරීමට අපට අවශ්‍ය කොටුවේ ලිපිනය

උපක්‍රමය නම් දෙවන තර්කය විකල්ප වීමයි. එය නිශ්චිතව දක්වා නොමැති නම්, වත්මන් ක්රියාකාරී සෛලය ගනු ලැබේ.

මෙම ක්රමයේ දෙවන අංගය වන්නේ කොන්දේසි සහිත හැඩතල ගැන්වීමයි. මෙම අතිශයින් ප්‍රයෝජනවත් Excel විශේෂාංගය මඟින් සෛල නිශ්චිත කොන්දේසි සපුරා ඇත්නම් ඒවා ස්වයංක්‍රීයව හැඩතල ගැන්වීමට ඔබට ඉඩ සලසයි. අපි මෙම අදහස් දෙක එකකට ඒකාබද්ධ කළහොත්, කොන්දේසි සහිත හැඩතල ගැන්වීම හරහා අපගේ සම්බන්ධීකරණ තේරීම ක්‍රියාත්මක කිරීම සඳහා පහත ඇල්ගොරිතම අපට ලැබේ:

  1. අපි අපගේ වගුව තෝරා ගනිමු, එනම් අනාගතයේදී ඛණ්ඩාංක තේරීම පෙන්විය යුතු සෛල.
  2. Excel 2003 සහ පැරණි වලදී, මෙනුව විවෘත කරන්න ආකෘතිය - කොන්දේසිගත හැඩතල ගැන්වීම - සූත්රය (ආකෘතිය - කොන්දේසිගත හැඩතල ගැන්වීම - සූත්‍රය). Excel 2007 සහ නව - ටැබ් එක මත ක්ලික් කරන්න මුල් පිටුව (නිවස)බොත්තම කොන්දේසිගත හැඩතල ගැන්වීම - රීතියක් සාදන්න (කොන්දේසි සහිත හැඩතල ගැන්වීම - රීතියක් සාදන්න) සහ රීති වර්ගය තෝරන්න කුමන සෛල හැඩසවිය යුතුද යන්න තීරණය කිරීමට සූත්‍රයක් භාවිතා කරන්න (සූත්රය භාවිතා කරන්න)
  3. අපගේ ඛණ්ඩාංක තේරීම සඳහා සූත්‍රය ඇතුළු කරන්න:

    =හෝ(CELL(“පේළිය”)=ROW(A2),CELL(“තීරුව”)=COLUMN(A2))

    =හෝ(CELL("පේළිය")=පේළිය(A1),CELL("තීරුව")=COLUMN(A1))

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

  4. මාධ්ය රාමුව (ආකෘතිය) සහ පිරවුම් වර්ණය සකසන්න.

සෑම දෙයක්ම පාහේ සූදානම්, නමුත් එක් සූක්ෂ්මතාවයක් ඇත. කාරණය නම් Excel තේරීමේ වෙනසක් පත්‍රයේ දත්තවල වෙනසක් ලෙස නොසලකයි. තවද, එහි ප්‍රතිඵලයක් වශයෙන්, එය සූත්‍ර නැවත ගණනය කිරීම සහ සක්‍රීය සෛලයේ පිහිටීම වෙනස් වන විට පමණක් කොන්දේසි සහිත හැඩතල ගැන්වීම් නැවත වර්ණ ගැන්වීමට හේතු නොවේ. එමනිසා, මෙය සිදු කරන පත්‍ර මොඩියුලයට සරල මැක්‍රෝ එකක් එකතු කරමු. ෂීට් ටැබය මත දකුණු-ක්ලික් කර සන්දර්භය මෙනුවෙන් විධානය තෝරන්න මූලාශ්ර පාඨය (ප්රභව කේතය).Visual Basic Editor කවුළුව විවෘත විය යුතුය. මෙම සරල මැක්‍රෝවේ මෙම පෙළ එයට පිටපත් කරන්න:

පුද්ගලික උප වැඩ පත්‍රිකාව_SelectionChange(පරාසය ලෙස ByVal ඉලක්කය) ActiveCell.අවසන් උපසිරැසි ගණනය කරන්න

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

මෙම ක්රමයේ වාසි:

  • කොන්දේසිගත හැඩතල ගැන්වීම අභිරුචි වගු හැඩතල ගැන්වීම බිඳ දමන්නේ නැත
  • මෙම තේරීම් විකල්පය ඒකාබද්ධ කළ සෛල සමඟ නිවැරදිව ක්‍රියා කරයි.
  • අහම්බෙන් ක්ලික් කිරීමේදී සම්පූර්ණ පේළියක් සහ දත්ත තීරුවක් මකා දැමීමේ අවදානමක් නැත Delete.
  • Macros අවම වශයෙන් භාවිතා වේ

මෙම ක්රමයේ අවාසි:

  • කොන්දේසිගත හැඩතල ගැන්වීම සඳහා සූත්රය අතින් ඇතුල් කළ යුතුය.
  • එවැනි හැඩතල ගැන්වීම සක්රිය / අක්රිය කිරීමට ඉක්මන් ක්රමයක් නොමැත - රීතිය මකා දමන තුරු එය සැමවිටම සක්රිය කර ඇත.

ක්රමය 3. ප්රශස්ත. කොන්දේසිගත හැඩතල ගැන්වීම + මැක්‍රෝස්

රන් මධ්යන්යය. අපි ක්‍රමය-1 සිට මැක්‍රෝස් භාවිතයෙන් පත්‍රයේ තේරීම නිරීක්ෂණය කිරීම සඳහා යාන්ත්‍රණය භාවිතා කරන අතර ක්‍රමය-2 වෙතින් කොන්දේසි සහිත හැඩතල ගැන්වීම් භාවිතයෙන් එයට ආරක්ෂිත උද්දීපනය එක් කරන්නෙමු.

එවැනි ඛණ්ඩාංක තේරීමක් ලබා ගැනීමට ඔබට අවශ්ය වගුවක් සහිත පත්රයක් විවෘත කරන්න. ෂීට් ටැබය මත දකුණු-ක්ලික් කර සන්දර්භය මෙනුවෙන් විධානය තෝරන්න මූලාශ්ර පාඨය (ප්රභව කේතය).Visual Basic Editor කවුළුව විවෘත විය යුතුය. මෙම මැක්‍රෝ තුනේ මෙම පාඨය එයට පිටපත් කරන්න:

Dim Coord_Selection as Boolean Sub Selection_On() Coord_Selection = True End Sub Selection_Off() Coord_Selection = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim WorkRange as Range, CrossRange Range Sang, CrossRange 7) 'адрес рабочего диапазона с таблицей නම් Target.Count > 300 ඉන්පසු උපයෙන් පිටවන්න Coord_Selection = වැරදි නම් WorkRange.FormatConditions. මකන්න Exit Sub End නම් Application.ScreenUpdating නම් ScreenUpdating = FelestRange නම්) WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.මකන්න CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.TCondition.Formatconditions .Delete End If End Sub

වැඩ කරන පරාසයේ ලිපිනය ඔබගේ වගු ලිපිනයට වෙනස් කිරීමට අමතක නොකරන්න. දෘශ්‍ය මූලික සංස්කාරකය වසා එක්සෙල් වෙත ආපසු යන්න. එකතු කරන ලද මැක්‍රෝ භාවිතා කිරීමට, යතුරුපුවරු කෙටිමඟ ඔබන්න ALT + F8  සහ ක්‍රමය 1 ආකාරයටම ඉදිරියට යන්න. 

ක්රමය 4. ලස්සනයි. FollowCellPointer ඇඩෝනය

නෙදර්ලන්තයේ Excel MVP Jan Karel Pieterse ඔහුගේ වෙබ් අඩවියේ නොමිලේ ඇඩෝනයක් ලබා දෙයි FollowCellPointer(36Kb), වත්මන් පේළිය සහ තීරුව උද්දීපනය කිරීමට මැක්‍රෝස් භාවිතයෙන් ග්‍රැෆික් ඊතල රේඛා ඇඳීමෙන් එම ගැටලුව විසඳයි:

 

ලස්සන විසඳුමක්. තැන් වල අවුල් නැතුවම නෙවෙයි, අනිවාර්යෙන්ම උත්සාහ කරන්න වටිනවා. සංරක්ෂිතය බාගෙන, එය තැටියට ඉවත් කර ඇඩෝනය ස්ථාපනය කරන්න:

  • Excel 2003 සහ ඊට වැඩි - මෙනුව හරහා සේවාව - ඇඩෝන - දළ විශ්ලේෂණය (මෙවලම් - ඇඩෝන - බ්‍රවුස් කරන්න)
  • Excel 2007 සහ පසුව, හරහා ගොනුව - විකල්ප - ඇඩෝන - යන්න - බ්‍රවුස් කරන්න (ගොනුව - එක්සෙල් විකල්ප - ඇඩෝන - වෙත යන්න - බ්‍රවුස් කරන්න)

  • මැක්‍රෝස් යනු මොනවාද, විෂුවල් බේසික් තුළ මැක්‍රෝ කේතය ඇතුළත් කළ යුතු ස්ථානය

 

ඔබමයි