Pagpili sa Koordinasyon

Adunay ka dako nga monitor, apan ang mga lamesa nga imong gitrabahoan mas dako pa. Ug, sa pagtan-aw sa ibabaw sa screen sa pagpangita sa gikinahanglan nga impormasyon, adunay kanunay nga higayon sa "slip" sa imong mga mata ngadto sa sunod nga linya ug tan-aw sa sayop nga direksyon. Nakaila pa gani ko og mga tawo nga, sa maong mga okasyon, kanunay magbutang ug kahoy nga ruler duol nila aron itaod kini sa linya sa monitor. Mga teknolohiya sa umaabot! 

Ug kung ang karon nga laray ug kolum gipasiugda kung ang aktibo nga cell molihok sa sheet? Usa ka matang sa pagpili sa coordinate sama niini:

Mas maayo pa kay sa usa ka magmamando, di ba?

Adunay daghang mga paagi sa lainlain nga pagkakomplikado sa pagpatuman niini. Ang matag pamaagi adunay iyang mga bentaha ug disbentaha. Atong tan-awon sila sa detalye.

Pamaagi 1. Dayag. Macro nga nagpasiugda sa kasamtangan nga laray ug kolum

Ang labing klaro nga paagi aron masulbad ang among problema "sa agtang" - kinahanglan namon ang usa ka macro nga magsubay sa pagbag-o sa pagpili sa sheet ug pilia ang tibuuk nga laray ug kolum alang sa karon nga cell. Gitinguha usab nga ma-enable ug ma-disable kini nga function kung kinahanglan, aron ang ingon nga usa ka cross-shaped nga pagpili dili makapugong kanamo sa pagsulod, pananglitan, mga pormula, apan molihok lamang kung among gitan-aw ang lista sa pagpangita sa kinahanglan. impormasyon. Kini nagdala kanato ngadto sa tulo ka mga macros (pagpili, pagpagana, ug pag-disable) nga kinahanglan nga idugang sa sheet module.

Ablihi ang usa ka sheet nga adunay usa ka lamesa diin gusto nimo makuha ang ingon nga pagpili sa coordinate. Pag-right-click sa tab nga sheet ug pilia ang command gikan sa menu sa konteksto Tinubdan nga teksto (Source Code).Ang bintana sa Visual Basic Editor kinahanglan magbukas. Kopyaha kini nga teksto niining tulo ka macro ngadto niini:

Dim Coord_Selection As Boolean 'Global variable for selection on/off Sub Selection_On() 'Macro on selection Coord_Selection = True End Sub Selection_Off() 'Macro off selection Coord_Selection = False End Sub' Panguna nga pamaagi nga naghimo sa pagpili Private Sub Worksheet_SelectionChange As(ByVal Target Range) Dim WorkRange As Range Kung Target.Cells.Count > 1 Unya Exit Sub 'kung labaw sa 1 cell ang napili, exit Kung Coord_Selection = False Unya Exit Sub 'kung ang pagpili wala, exit Application.ScreenUpdating = False Set WorkRange = Range (" A6:N300") 'address sa nagtrabaho nga range diin makita ang pagpili

Usba ang adres sa work range ngadto sa imong kaugalingon – naa sa sulod niini nga range nga ang among pagpili molihok. Dayon isira ang Visual Basic Editor ug balik sa Excel.

Pindota ang keyboard shortcut ALT + F8aron maablihan ang usa ka bintana nga adunay usa ka lista sa magamit nga mga macro. Macro Pagpili_Sa, ingon sa imong pagtag-an, naglakip sa pagpili sa coordinate sa kasamtangan nga sheet, ug ang macro Selection_Off – gipalong kini. Sa parehas nga bintana, pinaagi sa pag-klik sa buton lantugi (Mga Opsyon) Mahimo nimong i-assign ang mga shortcut sa keyboard sa kini nga mga macros para sa dali nga paglansad.

Mga bentaha niini nga pamaagi:

  • relatibong kasayon ​​sa pagpatuman
  • pagpili - ang operasyon dili makadaot ug wala magbag-o sa sulud o pag-format sa mga selyula sa sheet sa bisan unsang paagi, ang tanan nagpabilin nga ingon niini.

Cons niini nga pamaagi:

  • ang ingon nga pagpili dili molihok sa husto kung adunay gihiusa nga mga cell sa sheet - ang tanan nga mga laray ug mga kolum nga gilakip sa unyon gipili dayon
  • kung wala ka tuyoa nga napugos ang Delete key, nan dili lamang ang aktibo nga cell ang ma-clear, kondili ang tibuok pinili nga lugar, ie delete data gikan sa tibuok laray ug kolum.

Pamaagi 2. Orihinal. CELL + Conditional Formatting Function

Kini nga pamaagi, bisan kung kini adunay usa ka pares nga mga kakulian, para nako elegante kaayo. Aron ipatuman ang usa ka butang gamit lamang ang built-in nga mga tool sa Excel, ang gamay nga pagsulod sa programming sa VBA mao ang aerobatics 😉

Ang pamaagi gibase sa paggamit sa CELL function, nga makahatag ug daghang lain-laing impormasyon sa gihatag nga cell – gitas-on, gilapdon, row-column number, number format, ug uban pa. Kini nga function adunay duha ka argumento:

  • usa ka code nga pulong alang sa parameter, sama sa "column" o "row"
  • ang adres sa cell diin gusto namon mahibal-an ang kantidad sa kini nga parameter

Ang lansis mao nga ang ikaduha nga argumento mao ang opsyonal. Kung wala kini gitino, nan ang kasamtangan nga aktibo nga selula gikuha.

Ang ikaduha nga bahin niini nga pamaagi mao ang conditional formatting. Kini nga labi ka mapuslanon nga bahin sa Excel nagtugot kanimo nga awtomatiko nga ma-format ang mga cell kung nakab-ot nila ang piho nga mga kondisyon. Kung atong hiusahon kining duha ka mga ideya ngadto sa usa, atong makuha ang mosunod nga algorithm sa pagpatuman sa atong coordinate nga pagpili pinaagi sa conditional formatting:

  1. Gipili namo ang among lamesa, ie kadtong mga cell diin ang pagpili sa coordinate kinahanglan nga ipakita sa umaabot.
  2. Sa Excel 2003 ug pataas, ablihi ang menu Format – Conditional Formatting – Pormula (Format — Conditional Formatting — Pormula). Sa Excel 2007 ug mas bag-o - i-klik ang tab Home (Balay)button Conditional Formatting - Paghimo og Lagda (Conditional Formatting — Paghimog Lagda) ug pilia ang tipo sa lagda Paggamit og pormula aron mahibal-an kung unsang mga cell ang i-format (Gamit ang pormula)
  3. Pagsulod sa pormula alang sa among pagpili sa coordinate:

    =O(CELL(“row”)=ROW(A2),CELL(“column”)=COLUMN(A2))

    =O(CELL(«row»)=ROW(A1),CELL(«column»)=COLUMN(A1))

    Kini nga pormula nagsusi aron makita kung ang numero sa kolum sa matag cell sa lamesa parehas sa numero sa kolum sa karon nga cell. Ingon usab sa mga kolum. Busa, kadto lang mga selula nga adunay numero sa kolum o numero sa laray nga motakdo sa kasamtangan nga selula ang mapuno.

  4. press Framework (Format) ug ibutang ang kolor sa pun-on.

Ang tanan hapit andam na, apan adunay usa ka nuance. Ang tinuod mao nga wala gikonsiderar sa Excel ang pagbag-o sa pagpili ingon usa ka pagbag-o sa datos sa sheet. Ug, isip resulta, wala kini magpahinabog pag-usab sa mga pormula ug pagkolor pag-usab sa conditional formatting lamang kon ang posisyon sa aktibong selula mausab. Busa, magdugang ta ug yanong macro sa sheet module nga mobuhat niini. Pag-right-click sa tab nga sheet ug pilia ang command gikan sa menu sa konteksto Tinubdan nga teksto (Source Code).Ang bintana sa Visual Basic Editor kinahanglan magbukas. Kopyaha kini nga teksto niining yano nga macro ngadto niini:

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

Karon, kung magbag-o ang pagpili, ang proseso sa pagkalkula pag-usab sa pormula nga adunay function ilunsad SULOD sa conditional formatting ug baha sa kasamtangan nga laray ug kolum.

Mga bentaha niini nga pamaagi:

  • Ang kondisyon nga pag-format dili makaguba sa naandan nga pag-format sa lamesa
  • Kini nga kapilian sa pagpili molihok sa husto sa gisagol nga mga cell.
  • Walay risgo sa pagtangtang sa tibuok laray ug kolum sa datos sa aksidenteng pag-klik Tangtanga.
  • Ang mga macro gamay ra nga gigamit

Cons niini nga pamaagi:

  • Ang pormula para sa conditional formatting kinahanglang isulod sa mano-mano.
  • Walay dali nga paagi sa pag-enable/disable sa ingon nga pag-format - kini kanunay nga mahimo hangtud nga ang lagda mapapas.

Pamaagi 3. Labing maayo. Conditional Formatting + Macros

Bulawan nga kahulogan. Gigamit namon ang mekanismo sa pagsubay sa pagpili sa sheet gamit ang mga macro gikan sa pamaagi-1 ug gidugang ang luwas nga pag-highlight niini gamit ang conditional formatting gikan sa pamaagi-2.

Ablihi ang usa ka sheet nga adunay usa ka lamesa diin gusto nimo makuha ang ingon nga pagpili sa coordinate. Pag-right-click sa tab nga sheet ug pilia ang command gikan sa menu sa konteksto Tinubdan nga teksto (Source Code).Ang bintana sa Visual Basic Editor kinahanglan magbukas. Kopyaha kini nga teksto niining tulo ka macro ngadto niini:

Dim Coord_Selection Ingon 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 Set WorkRange = N7 'адрес рабочего диапазона с таблицей Kung Target.Count > 300 Unya Exit Sub Kung Coord_Selection = False Unya WorkRange.FormatConditions.Delete Exit Sub End Kung Application.ScreenUpdating = False Kung Dili Intersect Ang Intersect(Target Wala, Intersect Ranggo) WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 1 Target.FormatConditions .Delete End Kung End Sub

Ayaw kalimti nga usbon ang adres sa hanay sa pagtrabaho sa imong adres sa lamesa. Isira ang Visual Basic Editor ug balik sa Excel. Aron magamit ang gidugang nga mga macro, pindota ang keyboard shortcut ALT + F8  ug magpadayon sa parehas nga paagi sama sa pamaagi 1. 

Pamaagi 4. Nindot. FollowCellPointer add-on

Ang Excel MVP nga si Jan Karel Pieterse gikan sa Netherlands nanghatag ug libre nga add-on sa iyang website Sunda angCellPointer(36Kb), nga nagsulbad sa samang problema pinaagi sa pagdrowing og mga graphic arrow nga mga linya gamit ang mga macros aron i-highlight ang kasamtangang row ug column:

 

Nindot nga solusyon. Dili nga walay mga glitches sa mga lugar, apan siguradong angayan nga sulayan. I-download ang archive, i-unpack kini sa disk ug i-install ang add-on:

  • sa Excel 2003 ug mas tigulang - pinaagi sa menu Serbisyo – Mga Add-on – Overview (Mga Himan - Mga Add-In - Pag-browse)
  • sa Excel 2007 ug sa ulahi, pinaagi sa File - Mga Opsyon - Mga Add-on - Lakaw - Pag-browse (File — Excel Options — Add-Ins — Adto sa — Browse)

  • Unsa ang mga macros, kung asa ibutang ang macro code sa Visual Basic

 

Leave sa usa ka Reply