Smart Autofill erof a riets

Inhalter

Bis elo, heiansdo mat engem Laachen, erënnere mech un eng vu menge éischten Feldfirmen Trainings virun 10 Joer.

Stellt Iech vir: den Open Space Büro vum Vertriederbüro vun enger internationaler FMCG Firma, grouss wéi e Fussballsterrain. Chic Design, deier Büroausrüstung, Kleedungscode, Expats, déi an den Ecker kierzen - dat ass alles 🙂 An engem vun de Reuniounssäll starten ech eng zwee Deeg Fortschrëtt Formatioun op déi dann aktuell Versioun vum Excel 2003 fir 15 Schlëssel Mataarbechter vum Wirtschaftsdepartement , zesumme mat hirem Leader. Mir kennenzeléieren, ech froen hinnen iwwer Geschäftsaufgaben, Probleemer, ech froen hinnen e puer typesch Aarbechtsdateien ze weisen. Si weisen d'Kilometer Längt vun der Ausluede vu SAP, d'Blieder vun de Berichter, déi se iwwer dëst maachen, asw.. Gutt, et ass eng familiär Saach - ech geeschteg Themen an Timing erausfannen, upassen un d'Publikum. Aus dem Augeeck mierken ech wéi ee vun de Participanten, e Stéck vu sengem Bericht demonstréiert, gedëlleg d'Zelle mat der Formel duerch dat schwaarzt Kräiz an der ënneschter rechter Ecke fir e puer dausend Zeilen erof zitt, an dann d'Enn vum den Dësch op der fléien, zitt et zréck, etc.. Kann et net stoen, Ech ënnerbrach him curling der Maus ronderëm den Ecran a weisen eng duebel Klick op déi schwaarz Kräiz, erklären iwwer Auto-Fäerdegstellung bis op d'Stopp. 

Op eemol mierken ech datt d'Publikum verdächteg roueg ass a jidderee kuckt mech komesch. Ech kucken onmerkbar ronderëm mech wou ech kann - alles ass OK, meng Äerm a Been sinn op der Plaz, meng Méck ass geknäppt. Ech réckelen meng lescht Wierder geeschteg zréck op der Sich no enger schrecklecher Klausel - et war näischt kriminell, et schéngt. Duerno steet de Chef vum Grupp roueg op, rëselt meng Hand a seet mat engem Steen Gesiicht: "Merci, Nikolai. Dës Formatioun kann ofgeschloss ginn.

Gutt, kuerz, et huet sech erausgestallt datt kee vun hinnen en Hiweis hat iwwer duebelklicken op e schwaarzt Kräiz an Autocomplete. Et ass iergendwéi historesch geschitt datt et kee war fir hinnen esou eng einfach awer néideg Saach ze weisen. Déi ganz Departement gezunn Formulen manuell fir Dausende vu Linnen, aarmséileg Matbierger. An hei sinn ech. Ueleg Zeen. De Chef vum Departement huet dunn ganz vill gefrot fir keen den Numm vun hirer Firma ze verroden 🙂

E puer Mol méi spéit goufen et ähnlech Situatiounen, awer nëmme mat eenzelen Nolauschterer - déi meescht wëssen elo natierlech dës Funktioun. 

Smart Autofill erof a rietsD'Fro ass anescht. No der éischter Freed fir sou eng wonnerbar Feature ze beherrschen, verstinn déi meescht Benotzer datt d'automatesch Kopie vun de Formelen duerch Duebelklick op dat schwaarzt Kräiz (Autocomplete Marker) all positiv Aspekter an negativ huet:

  • D'Kopie geschitt net ëmmer um Enn vum Dësch. Wann d'Tabell net monolithesch ass, dh et sinn eidel Zellen an de benachbarte Spalten, dann ass et net e Fakt datt Autocomplete bis zum Enn vun der Tabell funktionnéiert. Wahrscheinlech stoppt de Prozess an der nooste eidel Zell ier et um Enn kënnt. Wann et Zellen sinn, déi vun eppes ënner der Kolonn besat sinn, da stoppt d'Autocomplete genee op hinnen.
  • Beim Kopie Zell Design verduerwen, well Par défaut gëtt net nëmmen d'Formel kopéiert, mä och d'Format. Fir ze korrigéieren, klickt op de Knäppchen Kopie Optiounen a wielt Nëmmen Wäerter (Fëllt ouni Format).
  • Et gëtt kee séiere Wee fir d'Formel och bequem ze strecken net erof mee no rietsausser mat der Hand ze zéien. Duebelklick op dat schwaarzt Kräiz ass just erof.

Loosst eis probéieren dës Mängel mat engem einfachen Makro ze fixéieren.

Press Tastatur Ofkiirzung lénks Alt + F11 oder Knäppchen visuell Grondleegend Reiter Entwéckler (Entwéckler). Gitt nei eidel Modul iwwer Menü Insert - Modul a kopéiert den Text vun dëse Makroen do:

Sub SmartFillDown() Dim rng As Range, n As Long Set rng = ActiveCell.Offset(0, -1).CurrentRegion Wann rng.Cells.Count > 1 Dann 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 Wann rng.Cells.Count > 1 Dann n = rng.Cells(1).Column + rng.Columns.Count - ActiveCell.Column ActiveCell.AutoFill Destination:=ActiveCell.Resize(1, n), Type: =xlFillValues ​​Enn Wann Enn Sub  

Esou Makroen:

  • kann net nëmmen erof fëllen (SmartFillDown), awer och no riets (SmartFillRight)
  • d'Formel vun den Zellen ënnen oder riets net verwinnt - nëmmen d'Formel (Wäert) gëtt kopéiert
  • eidel Nopeschzellen ginn ignoréiert an d'Kopie geschitt genee bis zum Enn vun der Tabell, an net op déi nootste Spalt an den Daten oder déi éischt besat Zell.

Fir méi Komfort, kënnt Dir Tastatur Ofkiirzungen un dës Makroen zouginn andeems Dir de Knäppchen benotzt Macro - Optiounen (Macros - Optiounen) direkt op der Tab. Entwéckler (Entwéckler). Elo ass et genuch fir déi gewënscht Formel oder Wäert an der éischter Zell vun der Kolonn anzeginn an dréckt op déi spezifizéiert Tastekombinatioun fir de Makro automatesch déi ganz Kolonn (oder Zeil) ze fëllen:

Schéinheet.

PS En Deel vum Problem mat der Kopie vun Formelen op d'Enn vun der Tabell gouf am Excel 2007 geléist mat dem Advent vun "Smart Dëscher". True, si sinn net ëmmer an net iwwerall passend. A riets huet Excel ni geléiert eleng ze kopéieren.

  • Wat sinn Makroen, wéi se se benotzen, wou Dir Visual Basic Code kritt a wou se se pechen.
  • Smart Dëscher an Excel 2007-2013
  • Kopie Formulen ouni Link Verréckelung

Hannerlooss eng Äntwert