Ikkoordina l-Għażla

Għandek monitor kbir, iżda t-tabelli li taħdem magħhom huma saħansitra akbar. U, meta tħares fuq l-iskrin biex tfittex l-informazzjoni meħtieġa, dejjem hemm iċ-ċans li "tiżloq" għajnejk għal-linja li jmiss u tħares fid-direzzjoni ħażina. Saħansitra naf nies li, għal okkażjonijiet bħal dawn, dejjem iżommu ħakkiem tal-injam viċin tagħhom biex iwaħħlu mal-linja fuq il-monitor. Teknoloġiji tal-futur! 

U jekk ir-ringiela u l-kolonna attwali huma enfasizzati meta ċ-ċellula attiva timxi fuq il-folja? Tip ta' għażla ta' koordinati bħal din:

Aħjar minn ħakkiem, hux?

Hemm diversi modi ta' kumplessità li tvarja biex timplimenta dan. Kull metodu għandu l-vantaġġi u l-iżvantaġġi tiegħu. Ejja nagħtu ħarsa lejhom fid-dettall.

Metodu 1. Ovvju. Makro li tenfasizza r-ringiela u l-kolonna attwali

L-aktar mod ovvju biex issolvi l-problema tagħna "fuq il-forehead" - għandna bżonn makro li se jsegwu l-bidla fl-għażla fuq il-folja u tagħżel ir-ringiela u l-kolonna kollha għaċ-ċellula attwali. Huwa wkoll mixtieq li tkun tista 'tippermetti u tiddiżattiva din il-funzjoni jekk meħtieġ, sabiex tali għażla f'forma ta' salib ma tipprevjenix milli nidħlu, pereżempju, formuli, iżda taħdem biss meta nħarsu mill-lista fit-tfittxija tal-ħtieġa meħtieġa. informazzjoni. Dan iwassalna għat-tliet macros (agħżel, abilita u tiddiżattiva) li se jkollhom bżonn jiżdiedu mal-modulu tal-folja.

Iftaħ folja b'tabella li fiha trid tikseb tali għażla ta 'koordinati. Ikklikkja bil-lemin fuq it-tab tal-folja u agħżel il-kmand mill-menu tal-kuntest Test tas-sors (Kodiċi Sors).It-tieqa tal-Editur Visual Basic għandha tiftaħ. Ikkopja dan it-test ta’ dawn it-tliet macros fih:

Dim Coord_Selection As Boolean 'Varjabbli globali għall-għażla mixgħula/mitfi Sub Selection_On() 'Makro fuq l-għażla Coord_Selection = True End Sub Selection_Off () 'Macro off selection Coord_Selection = False End Sub 'Proċedura prinċipali li twettaq l-għażla Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim WorkRange As Range Jekk Target.Cells.Count > 1 Imbagħad Ħruġ Sub 'jekk tintgħażel aktar minn ċellula 1, ħruġ If Coord_Selection = False Imbagħad Ħruġ Sub 'jekk l-għażla hija mitfija, ħierġa Application.ScreenUpdating = False Issettja WorkRange = Medda ("A6:N300") 'indirizz tal-firxa ta' ħidma li fiha l-għażla hija viżibbli

Ibdel l-indirizz tal-firxa tax-xogħol għal tiegħek - huwa f'din il-firxa li l-għażla tagħna taħdem. Imbagħad agħlaq l-Editur Viżwali Bażiku u erġa' lura għal Excel.

Agħfas is-shortcut tat-tastiera ALT + F8biex tiftaħ tieqa b'lista ta' macros disponibbli. Makro Selection_On, kif tista' taħżen, tinkludi għażla tal-koordinati fuq il-folja attwali, u l-makro Selection_Off – itfiha. Fl-istess tieqa, billi tikklikkja l-buttuna parametri (Għażliet) Tista 'tassenja shortcuts tat-tastiera għal dawn il-macros għal tnedija faċli.

Vantaġġi ta 'dan il-metodu:

  • faċilità relattiva ta’ implimentazzjoni
  • għażla - l-operazzjoni ma tagħmilx ħsara u ma tbiddilx il-kontenut jew l-ifformattjar taċ-ċelloli tal-folja bl-ebda mod, kollox jibqa' kif inhu

Żvantaġġi ta 'dan il-metodu:

  • għażla bħal din ma taħdimx b'mod korrett jekk hemm ċelloli magħquda fuq il-folja - ir-ringieli u l-kolonni kollha inklużi fl-unjoni jintgħażlu f'daqqa
  • jekk aċċidentalment tagħfas iċ-ċavetta Ħassar, allura mhux biss iċ-ċellula attiva titneħħa, iżda ż-żona kollha magħżula, jiġifieri ħassar id-dejta mir-ringiela u l-kolonna kollha.

Metodu 2. Oriġinali. CELL + Funzjoni ta' Formatting Kundizzjonali

Dan il-metodu, għalkemm għandu ftit żvantaġġi, jidhirli eleganti ħafna. Biex timplimenta xi ħaġa billi tuża biss l-għodod ta' Excel integrati, li tidħol minimament fl-ipprogrammar f'VBA hija aerobatika 😉

Il-metodu huwa bbażat fuq l-użu tal-funzjoni CELL, li tista’ tagħti ħafna informazzjoni differenti fuq ċellula partikolari – għoli, wisa’, numru ta’ kolonna ta’ ringiela, format ta’ numru, eċċ. Din il-funzjoni għandha żewġ argumenti:

  • kelma kodiċi għall-parametru, bħal "kolonna" jew "ringiela"
  • l-indirizz taċ-ċellula li għaliha rridu niddeterminaw il-valur ta 'dan il-parametru

Il-trick huwa li t-tieni argument huwa fakultattiv. Jekk ma tkunx speċifikata, allura ċ-ċellula attiva attwali tittieħed.

It-tieni komponent ta 'dan il-metodu huwa l-ifformattjar kondizzjonali. Din il-karatteristika ta 'Excel estremament utli tippermettilek tifformattja awtomatikament iċ-ċelloli jekk jissodisfaw kundizzjonijiet speċifikati. Jekk ngħaqqdu dawn iż-żewġ ideat f'waħda, niksbu l-algoritmu li ġej għall-implimentazzjoni tal-għażla tal-koordinati tagħna permezz ta 'formattjar kondizzjonali:

  1. Aħna nagħżlu t-tabella tagħna, jiġifieri dawk iċ-ċelloli li fihom l-għażla tal-koordinati għandha tintwera fil-futur.
  2. F'Excel 2003 u anzjani, iftaħ il-menu Format – Formatting Kundizzjonali – Formula (Format — Formatting Kundizzjonali — Formula). Fl-Excel 2007 u aktar ġodda - ikklikkja fuq it-tab home (Dar)buttuna Formatting Kundizzjonali - Oħloq Regola (Fformattjar Kundizzjonali — Oħloq Regola) u agħżel it-tip ta 'regola Uża formula biex tiddetermina liema ċelluli tifformattja (Uża l-formula)
  3. Daħħal il-formula għall-għażla tal-koordinati tagħna:

    =JEW(ĊELLLA(“filliera”)=ROW(A2),ĊELLA(“kolonna”)=KOLONNA(A2))

    = JEW(ĊELLLA(«ringiela»)=ROW(A1),ĊELLLA(«kolonna»)=KOLONNA(A1))

    Din il-formula tiċċekkja biex tara jekk in-numru tal-kolonna ta 'kull ċellula fit-tabella huwiex l-istess bħan-numru tal-kolonna taċ-ċellula attwali. Bl-istess mod mal-kolonni. Għalhekk, dawk iċ-ċelloli biss li għandhom jew numru ta 'kolonna jew numru ta' ringiela li jaqbel maċ-ċellula attwali se jimtlew pulzieri U din hija l-għażla tal-koordinati f'forma ta 'salib li rridu niksbu.

  4. istampa Qafas (format) u ssettja l-kulur tal-mili.

Kollox huwa kważi lest, iżda hemm sfumatura waħda. Il-fatt hu li Excel ma jikkunsidrax bidla fl-għażla bħala bidla fid-dejta fuq il-folja. U, bħala riżultat, ma jikkawżax kalkolu mill-ġdid tal-formuli u kulur mill-ġdid tal-ifformattjar kondizzjonali biss meta l-pożizzjoni taċ-ċellula attiva tinbidel. Għalhekk, ejja żid makro sempliċi mal-modulu tal-folja li se tagħmel dan. Ikklikkja bil-lemin fuq it-tab tal-folja u agħżel il-kmand mill-menu tal-kuntest Test tas-sors (Kodiċi Sors).It-tieqa tal-Editur Visual Basic għandha tiftaħ. Ikkopja dan it-test ta' dan il-makro sempliċi fih:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Calculate End Sub

Issa, meta l-għażla tinbidel, se jitnieda l-proċess ta 'kalkolu mill-ġdid tal-formula bil-funzjoni ĊELLULA fl-ifformattjar kondizzjonali u għargħar-ringiela kurrenti u kolonna.

Vantaġġi ta 'dan il-metodu:

  • L-ifformattjar kondizzjonali ma jkisserx l-ifformattjar tat-tabella tad-dwana
  • Din l-għażla ta 'għażla taħdem b'mod korrett ma' ċelloli magħquda.
  • L-ebda riskju li tħassar ringiela u kolonna sħiħa ta 'dejta meta tikklikkja aċċidentalment Ħassar.
  • Macros huma minimament użati

Żvantaġġi ta 'dan il-metodu:

  • Il-formula għall-ifformattjar kondizzjonali trid tiddaħħal manwalment.
  • M'hemm l-ebda mod rapidu biex jiġi attivat/iskonnettjat tali ifformattjar - huwa dejjem attivat sakemm ir-regola titħassar.

Metodu 3. Ottimal. Ifformattjar Kundizzjonali + Makros

Medja tad-deheb. Aħna nużaw il-mekkaniżmu biex insegwu l-għażla fuq il-folja bl-użu ta 'makros mill-metodu-1 u nżidu l-enfasi sikura magħha billi tuża l-ifformattjar kondizzjonali mill-metodu-2.

Iftaħ folja b'tabella li fiha trid tikseb tali għażla ta 'koordinati. Ikklikkja bil-lemin fuq it-tab tal-folja u agħżel il-kmand mill-menu tal-kuntest Test tas-sors (Kodiċi Sors).It-tieqa tal-Editur Visual Basic għandha tiftaħ. Ikkopja dan it-test ta’ dawn it-tliet macros fih:

Dim Coord_Selection As Boolean Sub Selection_On() Coord_Selection = True End Sub Sub Selection_Off () Coord_Selection = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim WorkRange As Range, CrossRange As Range Issettja WorkRange = Range("A7:N300") 'адрес рабочего диапазона с таблицей Jekk Target.Count > 1 Imbagħad Ħruġ Sub Jekk Coord_Selection = Falz Imbagħad WorkRange.FormatConditions.Delete Exit Sub End Jekk Applikazzjoni.ScreenUpdating, = Issettjar Xogħol Falz (Falz) WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 33 Target.FormatConditions .Ħassar Tmiem Jekk Tmiem Sub

Tinsiex li tibdel l-indirizz tal-firxa tax-xogħol għall-indirizz tal-mejda tiegħek. Agħlaq l-Editur Visual Basic u rritorna lejn Excel. Biex tuża l-macros miżjuda, agħfas is-shortcut tat-tastiera ALT + F8  u tipproċedi bl-istess mod bħall-metodu 1. 

Metodu 4. Beautiful. FollowCellPointer add-on

Excel MVP Jan Karel Pieterse mill-Olanda jagħti add-on b'xejn fuq il-websajt tiegħu FollowCellPointer(36Kb), li ssolvi l-istess problema billi tfassal linji tal-vleġeġ grafiċi billi tuża macros biex tenfasizza r-ringiela u l-kolonna attwali:

 

Soluzzjoni sabiħa. Mhux mingħajr glitches f'postijiet, iżda definittivament min jipprova. Niżżel l-arkivju, spakkjah fuq id-disk u installa l-add-on:

  • f'Excel 2003 u anzjani - permezz tal-menu Servizz – Add-ons – Ħarsa ġenerali (Għodod — Żid Ins — Fittex)
  • fl-Excel 2007 u aktar tard, permezz Fajl – Għażliet – Żid – Mur – Fittex (Fajl — Għażliet Excel — Add-Ins — Mur — Fittex)

  • X'inhuma macros, fejn daħħal il-kodiċi makro fil-Visual Basic

 

Ħalli Irrispondi