Snjöll sjálfvirk útfylling niður og til hægri

Efnisyfirlit

Hingað til, stundum með bros á vör, man ég eftir einni af fyrstu fyrirtækjaþjálfuninni minni fyrir 10 árum.

Ímyndaðu þér: opna rýmisskrifstofu umboðsskrifstofu alþjóðlegs FMCG fyrirtækis, risastórt eins og fótboltavöllur. Flott hönnun, dýr skrifstofubúnaður, klæðaburður, útlendingar kurrandi í hornum – það er allt og sumt 🙂 Í einu fundarherberginu byrja ég á tveggja daga framhaldsnámi í þáverandi útgáfu af Excel 2003 fyrir 15 lykilstarfsmenn hagdeildar. , ásamt leiðtoga þeirra. Við kynnumst, ég spyr þá um viðskiptaverkefni, vandamál, ég bið þá um að sýna nokkrar dæmigerðar vinnuskrár. Þeir sýna kílómetralengd affermingar frá SAP, skýrslublöðin sem þeir gera um þetta o.s.frv. Jæja, það er kunnuglegt - ég reikna út efni og tímasetningu, aðlagast áhorfendum. Út úr augnkróknum tek ég eftir því hvernig einn þátttakendanna, sem sýnir brot úr skýrslu sinni, dregur hólfið með formúlunni þolinmóður niður við svarta krossinn í neðra hægra horninu í nokkur þúsund línur og sleppir síðan lok borðið á flugu, dregur það til baka o.s.frv. Ég get ekki staðist það, ég trufla hann með því að krulla músinni í kringum skjáinn og sýna tvísmella á svarta krossinn og útskýra um sjálfvirka útfyllingu niður að stoppistöðinni. 

Allt í einu átta ég mig á því að áhorfendur eru grunsamlega hljóðir og allir horfa undarlega á mig. Ég lít ómerkjanlega í kringum mig hvar sem ég get – allt er í lagi, handleggir og fætur eru á sínum stað, flugan mín er hneppt upp. Ég spóla andlega til baka síðustu orð mín í leit að einhverri hræðilegri klausu - það var ekkert glæpsamlegt, að því er virðist. Eftir það stendur yfirmaður hópsins hljóður upp, tekur í höndina á mér og segir með steinsvip: „Þakka þér fyrir, Nikolai. Þessari þjálfun er hægt að ljúka.

Jæja, í stuttu máli, þá kom í ljós að enginn þeirra hafði hugmynd um að tvísmella á svartan kross og sjálfvirka útfyllingu. Það gerðist einhvern veginn sögulega að það var enginn til að sýna þeim svo einfaldan en nauðsynlegan hlut. Öll deildin dró formúlur handvirkt fyrir þúsundir línur, aumingjar. Og hér er ég. Olíusena. Deildarstjórinn bað þá mjög um að gefa engum upp nafnið á fyrirtækinu sínu 🙂

Nokkrum sinnum síðar komu upp svipaðar aðstæður, en aðeins með einstaka hlustendur - flestir þekkja nú auðvitað þessa aðgerð. 

Snjöll sjálfvirk útfylling niður og til hægriSpurningin er önnur. Eftir fyrstu gleðina við að ná tökum á slíkum dásamlegum eiginleikum, skilja flestir notendur að sjálfvirk afritun formúla með því að tvísmella á svarta krossinn (sjálfvirkt útfyllingarmerki) hefur alla jákvæðu og neikvæðu hliðarnar:

  • Afritun gerist ekki alltaf til enda borðsins. Ef taflan er ekki einhlít, þ.e. það eru tómar hólf í aðliggjandi dálkum, þá er það ekki staðreynd að sjálfvirk útfylling virki fyrr en í lok töflunnar. Líklegast mun ferlið stoppa við næsta tóma klefa áður en það nær enda. Ef það eru frumur uppteknar af einhverju fyrir neðan dálkinn mun sjálfvirk útfylling stöðvast nákvæmlega á þeim.
  • Við afritun frumuhönnun spillir, vegna þess að Sjálfgefið er að ekki aðeins formúlan er afrituð heldur einnig sniðið. Til að leiðrétta, smelltu á hnappinn fyrir afritunarvalkosti og veldu Aðeins gildi (Fylltu út án sniðs).
  • Það er engin fljótleg leið til að teygja formúluna líka á þægilegan hátt ekki niður heldur til hægrinema að toga í höndunum. Að tvísmella á svarta krossinn er bara niður.

Við skulum reyna að laga þessa annmarka með einföldu macro.

Ýttu á flýtilykla til vinstri Alt + F11 eða hnappur Visual Basic flipi verktaki (hönnuður). Settu inn nýja tóma einingu í gegnum valmyndina Settu inn - Eining og afritaðu texta þessara fjölva þar:

Sub SmartFillDown() Dim rng As Range, n As Long Set rng = ActiveCell.Offset(0, -1).CurrentRegion Ef rng.Cells.Count > 1 Þá n = rng.Cells(1).Row + rng.Rows. Count - ActiveCell.Row ActiveCell.AutoFill Destination:=ActiveCell.Resize(n, 1), Type:=xlFillValues ​​End If End Sub Sub SmartFillRight() Dim rng As Range, n As Long Set rng = ActiveCell.Offset(-1, 0).CurrentRegion Ef rng.Cells.Count > 1 Þá er n = rng.Cells(1).Column + rng.Columns.Count - ActiveCell.Column ActiveCell.AutoFill Destination:=ActiveCell.Resize(1, n), Type: =xlFillValues ​​End If End Sub  

Svona fjölvi:

  • getur fyllt ekki aðeins niður (SmartFillDown), heldur einnig til hægri (SmartFillRight)
  • ekki spilla sniði hólfanna fyrir neðan eða til hægri - aðeins formúlan (gildið) er afrituð
  • tómar aðliggjandi frumur eru hunsaðar og afritun á sér stað nákvæmlega til enda töflunnar, en ekki að næsta bili í gögnunum eða fyrsta upptekna reitnum.

Fyrir meiri þægindi geturðu tengt flýtilykla til þessara fjölva með því að nota hnappinn Fjölvi - Valkostir (fjölva — Valkostir) þarna á flipanum. verktaki (hönnuður). Nú mun það vera nóg að slá inn viðeigandi formúlu eða gildi í fyrsta reit dálksins og ýta á tilgreinda lyklasamsetningu til að fjölvi fylli sjálfkrafa allan dálkinn (eða röðina):

Fegurð.

PS Hluti af vandamálinu við að afrita formúlur í lok töflunnar var leystur í Excel 2007 með tilkomu „snjalltafla“. Að vísu eru þeir ekki alltaf og ekki alls staðar viðeigandi. Og til hægri lærði Excel aldrei að afrita á eigin spýtur.

  • Hvað eru fjölvi, hvernig á að nota þau, hvar á að fá Visual Basic kóða og hvar á að líma hann.
  • Snjalltöflur í Excel 2007-2013
  • Afritaðu formúlur án tengifærslu

Skildu eftir skilaboð