Xweseriya Smart xwar û rast

Contents

Heya nuha, carinan bi bişirîn yek ji yekem perwerdehiya pargîdaniya qada xwe ya 10 sal berê tê bîra min.

Imagine: the open space office of the representative office of an international FMCG company, huge as a football field. Chic design, expensive office equipment, dress code, expats cooing in the corners – that’s all 🙂 In one of the meeting rooms, I start a two-day advanced training on the then current version of Excel 2003 for 15 key employees of the economic department, along with their leader. We get acquainted, I ask them about business tasks, problems, I ask them to show several typical work files. They show the kilometer length of unloading from SAP, the sheets of reports that they make on this, etc. Well, it’s a familiar thing – I mentally figure out topics and timing, adjust to the audience. Out of the corner of my eye, I notice how one of the participants, demonstrating a piece of his report, patiently pulls the cell with the formula down by the black cross in the lower right corner for several thousand lines, then skips the end of the table on the fly, pulls it back, etc. Unable to stand it, I interrupt him curling the mouse around the screen and show a double-click on the black cross, explaining about auto-completion down to the stop. 

Ji nişka ve ez pê dihesim ku temaşevan bi guman bêdeng e û her kes bi xerîbî li min dinêre. Ez li ku derê ji destê min bê ez li dora xwe dinêrim - her tişt baş e, dest û lingên min li cihê xwe ne, firika min bişkokê ye. Ez bi derûnî gotinên xwe yên paşîn di lêgerîna hin xalek tirsnak de vedigerînim - wusa dixuye ku tiştek sûc tune bû. Piştî vê yekê, serokê komê bêdeng radibe, destê min dihejîne û bi rûyekî kevir dibêje: “Spas, Nîkolay. Ev perwerde dikare biqede.

Welê, bi kurtî, derket holê ku tu kes ji wan di derbarê du-klîkkirina li ser xaçek reş û temamkirina otomatê de nizane. Bi awayekî dîrokî qewimî ku kesek tunebû ku tiştekî wisa hêsan lê pêwîst nîşanî wan bide. Tevahiya beşê formulên bi destan ji bo hezaran rêzan kişand, hevalên belengaz. Û ez li vir im. Dîmena rûnê. Paşê serokê beşê pir daxwaz kir ku navê pargîdaniya xwe ji kesî re eşkere nekin 🙂

Gelek caran paşê rewşên bi vî rengî hebûn, lê tenê bi guhdarên kesane re - bê guman, piraniya wan niha vê fonksiyonê dizanin. 

Xweseriya Smart xwar û rastPirs cuda ye. Piştî şahiya yekem a serweriya taybetmendiyek wusa ecêb, pir bikarhêneran fêm dikin ku kopîkirina otomatîkî ya formulan bi ducarî klîkkirina li ser xaça reş (nîşankera otomatîkî) hemî aliyên erênî û yên neyînî hene:

  • Kopîkirin her gav heta dawiya tabloyê pêk nayê. Ger tablo ne yekdest be, ango di stûnên cînar de şaneyên vala hebin, ne rastiyek e ku ototemamkirin heya dawiya tabloyê bixebite. Bi îhtîmalek mezin, pêvajo dê berî ku bigihîje dawiyê li hucreya vala ya herî nêzîk raweste. Ger hucreyên ku ji hêla tiştek li binê stûnê ve hatine dagir kirin hebin, wê hingê temamkirina otomatîkî dê tam li ser wan raweste.
  • Dema kopîkirinê sêwirana hucreyê xera dibe, ji ber ku Bi xwerû, ne tenê formula tê kopî kirin, lê di heman demê de format jî tê kopî kirin. Ji bo rastkirinê, bişkojka vebijarkên kopîkirinê bikirtînin û hilbijêrin Tenê nirxan (Bê format dagirin).
  • Rêyek bilez tune ku meriv formula jî bi hêsanî dirêj bike ne li jêr lê li rastêji bilî kişandina bi destan. Ducar bikirtînin li ser xaça reş tenê xwarê ye.

Ka em hewl bidin ku van kêmasiyan bi makroyek hêsan rast bikin.

Kurtebirra klavyeyê ya çepê çap bike Alt + F11 an bişkojka Visual Basic tab pêşvebirinê (pêşdebir). Modula nû ya vala bi navgîniyê têxin Têxe - Modul û nivîsa van makroyan li wir kopî bikin:

Bin SmartFillDown() Dim rng Wek Rêzeyê, n Wek Dirêj Rêzkirin rng = ActiveCell.Offset(0, -1).CurrentRegion Heke rng.Cells.Count > 1 Hingê n = rng.Cells(1).Rêz + rng.Rêz. Count - ActiveCell.Row ActiveCell.AutoFill Destination:=ActiveCell.Resize(n, 1), Tîp:=xlFillValues ​​Biqede Ger End Sub Sub Sub SmartFillRight() Dim rng Wek Range, n Bi qasî Rêzeya Dirêj rng = ActiveCell.Offset(-1, 0).CurrentRegion Heke rng.Cells.Count > 1 Hingê n = rng.Cells(1).Stûn + rng.Columns.Count - ActiveCell.Column ActiveCell.AutoFill Destination:=ActiveCell.Resize(1, n), Tîp: =xlFillValues ​​Biqede Ger Dawî Bin  

Makroyên weha:

  • dikare ne tenê xwarê (SmartFillDown), lê li rastê jî (SmartFillRight) tije bike
  • formata şaneyên li jêr an li milê rastê xirab nekin - tenê formula (nirx) tê kopî kirin
  • şaneyên cîran ên vala têne paşguh kirin û kopîkirin tam heya dawiya tabloyê pêk tê, û ne li valahiya herî nêz a daneyê an jî şaneya yekem a dagirkirî ye.

Ji bo rehetiya mezintir, hûn dikarin bi bişkokê kurtebirên klavyeyê ji van makroyan re destnîşan bikin Macros - Vebijêrk (Makro - Vebijêrk) li wir li ser tabê. pêşvebirinê (pêşdebir). Naha ew ê bes be ku hûn formula an nirxa xwestinê di hucreya yekem a stûnê de têkevinê û ji bo makroyê bişkojka bişkojka diyarkirî bişkînin da ku bixweber tevahiya stûnê (an rêzê) tije bike:

Çelengî.

PS Beşek ji pirsgirêka kopîkirina formulan heya dawiya tabloyê di Excel 2007 de bi hatina "tabloyên jîr" re hate çareser kirin. Rast e, ew ne her gav û ne li her deverê guncan in. Û li milê rastê, Excel qet fêr nebû ku bi serê xwe kopî bike.

  • Makro çi ne, meriv wan çawa bikar tîne, koda Visual Basic li ku derê bistîne û li ku derê bikişîne.
  • Tabloyên Smart di Excel 2007-2013 de
  • Formulan bêyî guheztina girêdanê kopî bikin

Leave a Reply