Разумнае аўтазапаўненне ўніз і ўправа

змест

Дагэтуль часам з усмешкай успамінаю адзін са сваіх першых выязных карпаратыўных трэнінгаў 10 гадоў таму.

Уявіце сабе: адкрыты офіс прадстаўніцтва міжнароднай кампаніі FMCG, велізарны, як футбольнае поле. Шыкоўны дызайн, дарагая офісная тэхніка, дрэс-код, буркаванне эмігрантаў па кутах – вось і ўсё 🙂 У адной з перамоўных пакояў я пачынаю двухдзённае павышэнне кваліфікацыі па актуальнай на той час версіі Excel 2003 для 15 ключавых супрацоўнікаў эканамічнага аддзела. , разам са сваім лідэрам. Мы знаёмімся, распытваю аб службовых задачах, праблемах, прашу паказаць некалькі тыпавых працоўных файлаў. Паказваюць кіламетравую працягласць разгрузкі з САП, справаздачы, якія яны пра гэта складаюць і г.д. Ну, звыклая справа – я ў думках высвятляю тэмы і тэрміны, падладжваюся пад аўдыторыю. Краем вока заўважаю, як адзін з удзельнікаў, дэманструючы фрагмент свайго дакладу, цярпліва адцягвае клетку з формулай за чорны крыжык у правым ніжнім куце на некалькі тысяч радкоў, потым прапускае канец стол на хаду, цягне яго назад і г. д. Не вытрымаўшы, я перапыняю яго, круцячы мышкай па экране, і паказваю двайны клік па чорным крыжыку, тлумачачы пра аўтазапаўненне да ўпора. 

Раптам я разумею, што ў зале падазрона ціха і ўсе глядзяць на мяне дзіўна. Я незаўважна азіраюся, дзе толькі магу – усё ў парадку, рукі і ногі на месцы, мушка зашпілена. У думках перамотваю свае апошнія словы ў пошуках нейкага страшнага пункта – нічога крымінальнага, здаецца, не было. Пасля гэтага стараста групы моўчкі ўстае, паціскае мне руку і з каменным тварам кажа: «Дзякуй, Мікалай. Гэта навучанне можа быць завершана.

Ну, карацей, аказалася, што ніхто з іх не здагадваўся пра двайны клік па чорным крыжыку і аўтазапаўненне. Так склалася гістарычна, што не было каму паказаць ім такую ​​простую, але патрэбную рэч. Увесь аддзел уручную выцягваў формулы на тысячы радкоў, небаракі. І вось я тут. Нафтавая сцэна. Кіраўнік аддзела тады вельмі прасіў нікому не раскрываць назву іх кампаніі 🙂

Пазьней некалькі разоў былі падобныя сытуацыі, але толькі з асобнымі слухачамі – большасьць цяпер, вядома, гэтую функцыю ведае. 

Разумнае аўтазапаўненне ўніз і ўправаПытанне ў іншым. Атрымаўшы першую радасць ад асваення такой цудоўнай магчымасці, большасць карыстальнікаў прыходзіць да разумення таго, што аўтаматычнае капіраванне формул падвойным пстрычкай па чорным крыжыку (маркеру аўтазапаўнення) мае як станоўчыя бакі, так і адмоўныя:

  • Капіраванне не заўсёды адбываецца ў канец табліцы. Калі табліца не маналітная, то ёсць пустыя вочкі ў суседніх слупках, то не факт, што аўтазапаўненне будзе працаваць да канца табліцы. Хутчэй за ўсё, працэс спыніцца на бліжэйшай пустой клетцы, не дайшоўшы да канца. Калі ёсць вочкі, занятыя чымсьці ніжэй слупка, то аўтазапаўненне спыніцца менавіта на іх.
  • Пры капіяванні дызайн клетак псуе, т. К. Па змаўчанні капіюецца не толькі формула, але і фармат. Каб выправіць, націсніце кнопку параметраў капіявання і выберыце Толькі каштоўнасці (Запоўніць без фармату).
  • Няма хуткага спосабу таксама зручна расцягнуць формулу не ўніз, а направахіба што цягнуць уручную. Двайны клік па чорным крыжыку проста ўніз.

Паспрабуем выправіць гэтыя недахопы простым макрасам.

Націсніце спалучэнне клавіш злева Alt + F11 альбо кнопка Візуальны Бейсик таб распрацоўшчык (Распрацоўшчык). Устаўце новы пусты модуль праз меню Устаўка – модуль і скапіруйце туды тэкст гэтых макрасаў:

Sub SmartFillDown() Dim rng As Range, n As Long Set rng = ActiveCell.Offset(0, -1).CurrentRegion If rng.Cells.Count > 1 Then n = rng.Cells(1).Row + rng.Rows. Колькасць - 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 Калі rng.Cells.Count > 1 Тады n = rng.Cells(1).Column + rng.Columns.Count - ActiveCell.Column ActiveCell.AutoFill Destination:=ActiveCell.Resize(1, n), Type: =xlFillValues ​​End If End Sub  

Такія макрасы:

  • можа запаўняць не толькі ўніз (SmartFillDown), але і направа (SmartFillRight)
  • не псуйце фармат вочак знізу або справа - капіюецца толькі формула (значэнне).
  • пустыя суседнія ячэйкі ігнаруюцца, і капіраванне адбываецца дакладна ў канец табліцы, а не да бліжэйшага прабелу ў дадзеных або першай занятай ячэйкі.

Для большай зручнасці вы можаце прызначыць гэтыя макрасы спалучэннямі клавіш з дапамогай кнопкі Макрасы – Параметры (Макрасы — Параметры) тут жа, на ўкладцы. распрацоўшчык (Распрацоўшчык). Цяпер дастаткова будзе ўвесці патрэбную формулу або значэнне ў першую вочка слупка і націснуць паказаную камбінацыю клавіш, каб макрас аўтаматычна запоўніў увесь слупок (або радок):

Beauty.

PS Часткова праблема з капіраваннем формул у канец табліцы была вырашана ў Excel 2007 са з'яўленнем «разумных табліц». Праўда, яны не заўсёды і не ўсюды дарэчныя. А справа, Excel ніколі не навучыўся капіяваць самастойна.

  • Што такое макрасы, як імі карыстацца, дзе ўзяць код Visual Basic і куды яго ўставіць.
  • Разумныя табліцы ў excel 2007-2013
  • Капіяваць формулы без зрушэння спасылкі

Пакінуць каментар