Koordînasyona Hilbijartinê

Monitorek we ya mezin heye, lê tabloyên ku hûn pê re dixebitin hê mezintir in. Û, di lêgerîna agahdariya pêwîst de li ser ekranê mêze dike, her gav şansek heye ku hûn çavên xwe berbi rêza din ve bihêlin û li rêça xelet binihêrin. Tewra ez mirovan nas dikim ku, ji bo bûyerên weha, her gav rêgezek darîn nêzî wan dikin da ku wê bi rêza li ser ekranê ve girêbidin. Teknolojiyên pêşerojê! 

Û eger rêz û stûna heyî dema ku şaneya çalak li ser pelê diherike ronî kirin? Cûreyek bijartina hevrêzek weha:

Ji hukumdarekî çêtir, rast?

Ji bo pêkanîna vê çend awayên tevliheviya cûda hene. Her rêbazek erênî û neyînî hene. Ka em bi berfirehî li wan binêrin.

Rêbaz 1. Eşkere. Macroya ku rêz û stûna heyî ronî dike

Awayê herî eşkere ji bo çareserkirina pirsgirêka me "li ser eniyê" - hewcedariya me bi makroyek heye ku dê guhartina bijartina li ser pelê bişopîne û tevahiya rêz û stûna ji bo hucreya heyî hilbijêrin. Di heman demê de tê xwestin ku heke hewce be meriv bikaribe vê fonksiyonê çalak û neçalak bike, da ku hilbijarkek xaçewek weha rê li me neke ku em, mînakî, formulan têkevin, lê tenê gava ku em li navnîşê di lêgerîna hewcedariyên hewce de li navnîşê dinêrin kar dike. agahî. Ev me digihîne sê makroyan (hilbijêre, çalak bike û neçalak bike) ku dê hewce bike ku li modula pelê were zêdekirin.

Bi tabloyek ku hûn dixwazin hilbijarkek hevrêzek wusa bistînin, pelek vekin. Li ser tabloya pelê rast-klîk bikin û fermanê ji menuya çarçoveyê hilbijêrin Nivîsa çavkaniyê (Koda Çavkanî).Divê pencereya Edîtorê Visual Basic vebe. Vê nivîsa van sê makroyan tê de kopî bikin:

Dim Coord_Selection As Boolean 'Guherbara gerdûnî ya ji bo hilbijartinê li ser/çalakkirinê Sub Selection_On() 'Makro di hilbijartinê de Coord_Selection = Dawiya Rastî Sub Selection_Off() 'Hilbijartina makro neçalak Coord_Selection = Dawiya Derewîn 'Pêvajoya sereke ya ku hilbijartinê pêk tîne. Range) Dim WorkRange Wek Range Ger Target.Cells.Count > 1 Dûv re Derkeve Sub 'eger ji 1 hucreyê zêdetir were hilbijartin, derkevin Ger Coord_Selection = False Dûv re Ji Bingehê derbikeve 'eger hilbijartin neçalak be, derkeve Application.ScreenUpdating = Derewîn Set WorkRange = Range ("A6:N300") 'navnîşana qada xebatê ya ku hilbijartin tê de xuya ye

Navnîşana qada xebatê bi ya xwe biguhezînin - di nav vê rêzê de ye ku hilbijartina me dê bixebite. Dûv re Edîtorê Visual Basic bigire û vegere Excel.

Bişkojka klavyeyê bikirtînin ALT + F8ji bo vekirina pencereyek bi navnîşek makroyên berdest. Macro Selection_On, wekî ku hûn texmîn dikin, hilbijartina hevrêzê li ser pelê heyî, û makroyê vedihewîne Selection_Off - vedike. Di heman pencereyê de, bi tikandina bişkojê Parametreyên (Vebijêrk) Ji bo destpêkirina hêsan hûn dikarin kurtebirên klavyeyê ji van makroyan re destnîşan bikin.

Avantajên vê rêbazê:

  • hêsaniya nisbî ya pêkanîna
  • hilbijartî - operasyon bê zirar e û bi ti awayî naverok an formata hucreyên pelê naguhezîne, her tişt wekî xwe dimîne

Kêmasiyên vê rêbazê:

  • Hilbijartina weha rast naxebite heke li ser pelê şaneyên yekbûyî hebin - hemî rêz û stûnên ku di yekîtiyê de cih digirin bi carekê têne hilbijartin.
  • heke hûn bi xeletî bişkojka Delete pêl bikin, wê hingê ne tenê şaneya çalak, lê tevahiya devera hilbijartî dê were paqij kirin, ango daneyên ji hemî rêz û stûnê jêbirin.

Rêbaz 2. Orjînal. CELL + Fonksiyona Formakirina Şert

Ev rêbaz, her çend çend kêmasiyên wê hene jî, ji min re pir xweşik xuya dike. Ji bo pêkanîna tiştek tenê bi karanîna amûrên Excel-ê yên çêkirî, hindiktirîn ketina bernamesaziyê di VBA de aerobatîk e 😉

Rêbaz li ser karanîna fonksiyona CELL-ê ye, ku dikare li ser şaneyek diyarî gelek agahdariya cûda bide - bilindahî, firehî, jimareya rêz-stûn, formata hejmarê, hwd. Ev fonksiyon du arguman hene:

  • peyva kodê ji bo parametreyê, wekî "stûn" an "rêz"
  • navnîşana şaneya ku em dixwazin nirxa vê pîvanê diyar bikin

Hişk ev e ku argumana duyemîn vebijarkî ye. Ger ew ne diyar be, wê hingê şaneya çalak a heyî tê girtin.

Beşa duyemîn a vê rêbazê formatkirina şert e. Vê taybetmendiya Excel-ê ya zehf bikêr dihêle hûn hucreyan bixweber format bikin ger şertên diyarkirî bicîh bînin. Ger em van her du ramanan bi hev re bikin yek, em algorîtmaya jêrîn ji bo bicihanîna hilbijartina hevrêziya xwe bi riya formatkirina şertî digirin:

  1. Em tabloya xwe hildibijêrin, ango wan şaneyên ku divê di pêşerojê de hilbijartina koordînat tê de bê nîşandan.
  2. Di Excel 2003 û kevntir de, menuê vekin Format - Formakirina şertî - Formula (Format - Formakirina şertî - Formula). Di Excel 2007 û nûtir de - li ser tabê bikirtînin Xane (Xane)pişkov Formatkirina şertî - Rêgez biafirîne (Formatkirina şertî - Rêgez biafirîne) û celebê qaîdeyê hilbijêrin Formulek bikar bînin ku hûn diyar bikin ka kîjan hucreyan format bikin (Formula bikar bînin)
  3. Formula ji bo hilbijartina hevrêziya me binivîse:

    =OR(HENÊ("rêz")=REZ(A2),CELL("stûn")=COLUMN(A2))

    =OR(HENÊ(«rêz»)=REZ(A1),CELL(«stûn»)=COLUMN(A1))

    Vê formulê kontrol dike ku bibîne ka hejmara stûna her şaneyek di tabloyê de wekî hejmara stûna şaneya heyî ye. Bi heman rengî bi stûnan. Ji ber vê yekê, tenê ew şaneyên ku jimareyek stûnek an jimareyek rêzek wan heye ku bi şaneya heyî re li hev dike, dê werin dagirtin.

  4. Bişkojkê bikirtînin Framework (Çap) û rengê tije saz bikin.

Her tişt hema hema amade ye, lê yek nuwaze heye. Rastî ev e ku Excel guhertinek di hilbijartinê de wekî guhartina daneyên li ser pelê nahesibîne. Û, di encamê de, ew tenê gava ku pozîsyona şaneya çalak diguhezîne ji nû ve hesabkirina formulan û ji nû ve rengkirina forma şertê nade destpêkirin. Ji ber vê yekê, em ê makroyek hêsan li modula pelê zêde bikin ku dê wiya bike. Li ser tabloya pelê rast-klîk bikin û fermanê ji menuya çarçoveyê hilbijêrin Nivîsa çavkaniyê (Koda Çavkanî).Divê pencereya Edîtorê Visual Basic vebe. Vê nivîsa vê makroya hêsan tê de kopî bikin:

Bingeha Taybet Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Hesabkirina End Sub

Naha, dema ku hilbijartin biguheze, dê pêvajoya ji nû ve hesabkirina formula bi fonksiyonê ve were destpêkirin KOŞIK di formatkirina şertî de û rêz û stûna heyî diherike.

Avantajên vê rêbazê:

  • Formkirina bi şert formatkirina tabloya xwerû naşkîne
  • Vê vebijarka hilbijartinê bi şaneyên yekbûyî re rast dixebite.
  • Xetereya jêbirina tevahiya rêz û stûnek daneyê li ser klîkek xelet tune Vemirandina.
  • Makro bi kêmanî têne bikar anîn

Kêmasiyên vê rêbazê:

  • Formula ji bo formatkirina şertî divê bi destan were nivîsandin.
  • Rêyek zû tune ku meriv formatkirinek wusa çalak bike / neçalak bike - heya ku qaîdeyek jêbirin ew her gav çalak e.

Rêbaz 3. Optimal. Formatkirina bi şert + makro

Wateya zêrîn. Em mekanîzmaya şopandina bijartina li ser pelê bi karanîna makroyên ji rêbaz-1 bikar tînin û bi karanîna formatkirina şertî ya ji rêbaz-2 ve ronîkirina ewle lê zêde dikin.

Bi tabloyek ku hûn dixwazin hilbijarkek hevrêzek wusa bistînin, pelek vekin. Li ser tabloya pelê rast-klîk bikin û fermanê ji menuya çarçoveyê hilbijêrin Nivîsa çavkaniyê (Koda Çavkanî).Divê pencereya Edîtorê Visual Basic vebe. Vê nivîsa van sê makroyan tê de kopî bikin:

Dim Coord_Selection Wek Boolean Sub Selection_On() Coord_Selection = Rast Dawiya Bin Hilbijartina_Off() Coord_Selection = Dawiya Derewe Sub Private Sub Worksheet_SelectionChange(ByVal Target Wek Range) Dim Work Range Wek Range, CrossRange Wek Range Worksheet_SelectionChange 'adresa raбочего диапазона с таблицей Ger Target.Hejmar > 7 Dûv re Derkeve Bin Heke Coord_Selection = Derewe Paşê WorkRange.FormatConditions.Jêbibe Derkeve Bine Endê Heke Application.ScreenUpdating = Derewe Ger Ne Têkeve(Armanc, XebatRange) Tiştek Xaçer e WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Add Type:=xlExpression, Formula300:="=1" CrossRange.FormatConditions(1).ColorIndrgetForum. .Delete End If End Sub

Ji bîr nekin ku navnîşana qada xebatê bi navnîşana tabloya xwe biguherînin. Edîtorê Visual Basic bigire û vegerin Excel. Ji bo ku makroyên zêdekirî bikar bînin, kurteya klavyeyê bikirtînin ALT + F8  û bi heman awayî wekî rêbaza 1 bimeşin. 

Rêbaz 4. Bedew. Pêveka FollowCellPointer

Excel MVP Jan Karel Pieterse ji Hollandayê pêvekek belaş li ser malpera xwe dide FollowCellPointer(36Kb), ku heman pirsgirêkê bi xêzkirina xêzên tîrên grafîkî bi karanîna makroyan çareser dike da ku rêz û stûna heyî ronî bike:

 

Çareseriya xweş. Li cîhan ne bêyî xeletiyan, lê bê guman hêjayî ceribandinê ye. Arşîvê dakêşin, wê ji dîskê vekin û pêvekê saz bikin:

  • di Excel 2003 û kevntir de - bi navgîniyê Xizmet - Pêvek - Pêşveçûn (Amûr - Pêvek - Lêgerîn)
  • li Excel 2007 û paşê, bi rêya Pelê - Vebijêrk - Pêvek - Biçe - Bigerin (Pel - Vebijarkên Excel - Pêvek - Biçe - Bigere)

  • Makro çi ne, li ku derê koda makro têxe Visual Basic

 

Leave a Reply