Nhọrọ nhazi

Ị nwere nnukwu ihe nleba anya, mana tebụl ndị ị na-arụ ọrụ na-ebuwanye ibu. Na, na-ele anya na ihuenyo na-achọ ozi ndị dị mkpa, ọ na-enwe ohere mgbe niile "ịtụgharị" anya gị n'ahịrị na-esote ma lee anya na-ezighị ezi. Ọbụna m maara ndị, maka oge ndị dị otú ahụ, na-edebe onye na-achị osisi mgbe niile ka ha tinye ya na akara na nyochaa. Teknụzụ nke ọdịnihu! 

Ma ọ bụrụ na a na-akọwapụta ahịrị na kọlụm dị ugbu a mgbe cell nọ n'ọrụ gafere n'ofe mpempe akwụkwọ ahụ? Ụdị nhọrọ nhazi dị ka nke a:

Mma karịa onye ọchịchị, nri?

Enwere ụzọ dị iche iche nke mgbagwoju anya dị iche iche iji mejuputa nke a. Usoro ọ bụla nwere uru na ọghọm ya. Ka anyị leba anya na ha n'ụzọ zuru ezu.

Usoro 1. O doro anya. Macro nke na-akọwapụta ahịrị na kọlụm dị ugbu a

Ụzọ kacha pụta ìhè iji dozie nsogbu anyị "n'egedege ihu" - anyị chọrọ macro nke ga-agbaso mgbanwe na nhọrọ na mpempe akwụkwọ wee họrọ ahịrị na kọlụm niile maka cell ugbu a. Ọ bụkwa ihe na-achọsi ike inwe ike ịme ma gbanyụọ ọrụ a ma ọ bụrụ na ọ dị mkpa, nke mere na nhọrọ ụdị obe dị otú ahụ adịghị egbochi anyị ịbanye, dịka ọmụmaatụ, usoro, kama ọ na-arụ ọrụ naanị mgbe anyị na-ele anya na ndepụta na-achọ ihe dị mkpa. ozi. Nke a na-ewetara anyị macros atọ (họrọ, mee, ma gbanyụọ) nke a ga-agbakwunye na modul mpempe akwụkwọ.

Mepee mpempe akwụkwọ nwere tebụl nke ịchọrọ ịnweta nhọrọ nhazi dị otú ahụ. Pịa aka nri na taabụ mpempe akwụkwọ wee họrọ iwu ahụ site na menu onodu Ederede isi mmalite (Isi mmalite koodu).Window Visual Basic Editor kwesịrị imepe. Detuo ederede a nke macros atọ ndị a n'ime ya:

Dim Coord_Selection Dị ka 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 = Nkwụsị njedebe ụgha' Usoro nke na-eme nhọrọ nkeonwe Sub Worksheet_SelectionChange (ByVal) Range) Dim WorkRange As Range If Target.Cells.Count > 1 Wepụ Sub 'ọ bụrụ na ahọpụtara ihe karịrị 1 cell, pụọ Ọ bụrụ Coord_Selection = Ụgha wee Wepụ Sub 'ọ bụrụ na agbanyụrụ nhọrọ, wepụ ngwa.ScreenUpdating = Ụgha Nịm WorkRange = Oke ("A6:N300") 'adreesị nke oke ọrụ n'ime nke nhọrọ a na-ahụ anya

Gbanwee adreesị nke oke ọrụ na nke gị - ọ bụ n'ime oke a ka nhọrọ anyị ga-arụ ọrụ. Mgbe ahụ mechie Visual Basic Editor wee laghachi na Excel.

Pịa ụzọ mkpirisi ahụigodo ALT+F8imepe windo nwere ndepụta nke macros dị. Macro Nhọrọ_Gbanyere, dị ka ị nwere ike iche, gụnyere nhazi nhọrọ na mpempe akwụkwọ ugbu a, yana nnukwu Nhọrọ_ Gbanyụọ – gbanyụọ ya. N'otu aka ahụ, site na ịpị bọtịnụ kwa (Nhọrọ) Ị nwere ike kenye ụzọ mkpirisi ahụigodo na macros ndị a maka mmalite dị mfe.

Uru nke usoro a:

  • ịdị mfe nke mmejuputa iwu
  • nhọrọ - ọrụ ahụ adịghị njọ ma ọ dịghị agbanwe ọdịnaya ma ọ bụ nhazi nke mkpụrụ ndụ mpempe akwụkwọ n'ụzọ ọ bụla, ihe niile dị ka ọ dị.

Ọdịmma nke usoro a:

  • nhọrọ dị otú ahụ anaghị arụ ọrụ nke ọma ma ọ bụrụ na e nwere sel ndị jikọtara ọnụ na mpempe akwụkwọ - a na-ahọrọ ahịrị niile na ogidi ndị agụnyere na otu n'otu oge.
  • Ọ bụrụ na ị pịa igodo Hichapụ na mberede, ọ bụghị naanị cell na-arụ ọrụ ka a ga-ehichapụ, mana mpaghara niile ahọpụtara, ya bụ ihichapụ data na ahịrị na kọlụm niile.

Usoro 2. Original. CELL + Ọrụ nhazi ọnọdụ

Usoro a, ọ bụ ezie na ọ nwere ihe ndọghachi azụ ole na ole, ọ dị m ka ọ mara mma nke ukwuu. Iji mejuputa ihe na-eji naanị ngwaọrụ Excel arụnyere, obere ịbanye na mmemme na VBA bụ aerobatics 😉

Usoro a dabere na iji ọrụ CELL, nke nwere ike inye ọtụtụ ozi dị iche iche na cell enyere - ịdị elu, obosara, nọmba kọlụm, usoro ọnụọgụ, wdg. Ọrụ a nwere arụmụka abụọ:

  • koodu maka oke, dị ka "kọlụm" ma ọ bụ "ahịrị"
  • adreesị cell nke anyị chọrọ ikpebi uru nke paramita a

Ihe aghụghọ bụ na arụmụka nke abụọ bụ nhọrọ. Ọ bụrụ na akọwapụtaghị ya, mgbe ahụ, a na-ewere cell na-arụ ọrụ ugbu a.

Akụkụ nke abụọ nke usoro a bụ nhazi ọnọdụ. Njirimara Excel a bara ezigbo uru na-enye gị ohere ịhazi mkpụrụ ndụ na-akpaghị aka ma ọ bụrụ na ha zutere ọnọdụ akọwapụtara. Ọ bụrụ na anyị ejikọta echiche abụọ a n'ime otu, anyị ga-enweta algọridim na-esonụ maka mmejuputa nhọrọ nhazi anyị site na nhazi ọnọdụ:

  1. Anyị na-ahọrọ tebụl anyị, ya bụ, sel ndị ahụ nke a ga-egosipụta nhọrọ nhazi n'ọdịnihu.
  2. Na Excel 2003 na karịa, mepee menu Usoro - Usoro nhazi - Usoro (Ụdị - Nhazi ọnọdụ - usoro). Na Excel 2007 na nke ọhụrụ - pịa taabụ Mbido (Ulo)button Nhazi Ọnọdụ – Mepụta Iwu (Nhazi Ọnọdụ - Mepụta Iwu) ma họrọ ụdị iwu Jiri usoro iji chọpụta sel ndị ị ga-ahazi (Jiri usoro)
  3. Tinye usoro maka nhọrọ nhazi anyị:

    = OR(CELL("ahịrị")=ROW(A2),CELL("kọlụm") = kọlụm(A2))

    = OR(CELL(«ahiri»)=ROW(A1),CELL(«kọlụm»)=COLUMN(A1))

    Usoro a na-enyocha iji hụ ma nọmba kọlụm nke cell ọ bụla na tebụl ọ bụ otu nọmba kọlụm nke cell ugbu a. N'otu aka ahụ na ogidi. Ya mere, ọ bụ naanị mkpụrụ ndụ ndị nwere ma ọ bụ nọmba kọlụm ma ọ bụ nọmba ahịrị nke dabara na cell ugbu a ka a ga-ejupụta na nke a bụ nhọrọ nhazi nke ụdị obe nke anyị chọrọ ime.

  4. Pịa bọtịnụ ahụ Framework (Format) ma tọọ agba njupụta.

Ihe niile dị njikere, mana enwere otu nuance. Nke bụ eziokwu bụ na Excel anaghị atụle mgbanwe na nhọrọ dị ka mgbanwe na data dị na mpempe akwụkwọ. Na, n'ihi nke a, ọ naghị akpalite recalculation nke usoro na recoloring nke conditional formatting naanị mgbe ọnọdụ nke cell nọ n'ọrụ gbanwere. Ya mere, ka anyị tinye a mfe macro na mpempe akwụkwọ modul ga-eme nke a. Pịa aka nri na taabụ mpempe akwụkwọ wee họrọ iwu ahụ site na menu onodu Ederede isi mmalite (Isi mmalite koodu).Window Visual Basic Editor kwesịrị imepe. Detuo ederede macro a dị mfe n'ime ya:

Mpempe akwụkwọ mpempe akwụkwọ nkeonwe_Nhọrọ mgbanwe(ByVal Target As Range)Cell ActiveCell.Gbakọta nkeji ngwụcha

Ugbu a, mgbe nhọrọ ahụ gbanwere, a ga-amalite usoro ịmegharị usoro ahụ na ọrụ ahụ OGBE na nhazi ọnọdụ ma jupụta ahịrị na kọlụm dị ugbu a.

Uru nke usoro a:

  • Nhazi ọnọdụ anaghị emebi nhazi tebụl omenala
  • Nhọrọ nhọrọ a na-arụ ọrụ nke ọma na sel jikọtara ọnụ.
  • Enweghị ihe ize ndụ nke ihichapụ ahịrị na kọlụm nke data na ịpị mberede Hichapụ.
  • A na-eji obere macro eme ihe

Ọdịmma nke usoro a:

  • Ekwesịrị iji aka tinye usoro maka nhazi ọnọdụ.
  • Enweghị ụzọ ngwa ngwa iji mee ka / gbanyụọ usoro nhazi dị otú ahụ - a na-eme ya mgbe niile ruo mgbe ehichapụrụ iwu.

Usoro 3. Kachasị mma. Nhazi ọnọdụ + Macros

Golden pụtara. Anyị na-eji usoro maka nsuso nhọrọ na mpempe akwụkwọ site na iji macros site na usoro-1 wee tinye nkọwapụta nchekwa na ya site na iji nhazi ọnọdụ sitere na usoro-2.

Mepee mpempe akwụkwọ nwere tebụl nke ịchọrọ ịnweta nhọrọ nhazi dị otú ahụ. Pịa aka nri na taabụ mpempe akwụkwọ wee họrọ iwu ahụ site na menu onodu Ederede isi mmalite (Isi mmalite koodu).Window Visual Basic Editor kwesịrị imepe. Detuo ederede a nke macros atọ ndị a n'ime ya:

Dim Coord_Selection Dị ka Boolean Sub Selection_On () Coord_Selection = Ezi Ọgwụgwụ Sub Nhọrọ_Off() Coord_Selection = Ụgha Ọgwụgwụ Sub Private Sub Worksheet_SelectionChange(ByVal Target Dị ka Range) Dim WorkRange Dị Ka Range, CrossRange Dị Ka Range Set WorkRange (7): N 'адрес рабочего диапазона с таблицей If Target.Count > 300 Wepụ Sub Ọ bụrụ Coord_Selection = Ụgha Mgbe ahụ WorkRange.FormatConditions.Delete Exit Sub End Ọ bụrụ na Ngwa.ScreenUpdating = Ụgha Ọ bụrụ na Ọ bụghị Intersect(RangeRange) Sere Ọ dịghị Ọrụ WorkRange, Union (Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Tinye Ụdị:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 1 Ebumnuche. .Hichapụ Ọgwụgwụ Ọ bụrụ Ọgwụgwụ Sub

Echefula ịgbanwe adreesi nso ọrụ na adreesị tebụl gị. Mechie Visual Basic Editor wee laghachi na Excel. Iji jiri macros agbakwunyere, pịa ụzọ mkpirisi ahụigodo ALT+F8  ma gaa n'ihu n'otu ụzọ ahụ dị ka usoro 1. 

Usoro 4. Mara mma. SoroCellPointer mgbakwunye

MVP Excel Jan Karel Pieterse si Netherlands na-enye ihe mgbakwunye n'efu na webụsaịtị ya SoroCellPointer(36Kb), nke na-edozi otu nsogbu ahụ site na iji macro iji gosi ahịrị na kọlụm dị ugbu a:

 

Ngwọta dị mma. Ọ bụghị na-enweghị glitches na ebe, ma maa kwesịrị a na-agbalị. Budata ebe nchekwa ahụ, bupụ ya na diski wee wụnye ihe mgbakwunye:

  • na Excel 2003 na karịa - site na menu Ọrụ – Tinye-ons – Nlebanya (Ngwaọrụ - Tinye-Ins - Chọgharịa)
  • na Excel 2007 na mgbe e mesịrị, site na Faịlụ – Nhọrọ – Tinye-ons – Gaa – Chọgharịa (Faịlụ - Nhọrọ Excel - Tinye-Ins - Gaa na - Chọgharịa)

  • Kedu ihe bụ macros, ebe itinye koodu nnukwu na Visual Basic

 

Nkume a-aza