„MS Office“ programos sukurtos labai geraiprotingai ir aš to nesakau tik todėl, kad jie mano darbą palengvina be galo. Aš sakau, nes tai tiesa. Po kelių dienų paskelbėme įrašą apie „YouTube“ vaizdo įrašų įterpimą į „Office 2013“ ir pažymėjome, kad šios galimybės MS Excel nėra, nes jos ten nereikėjo. Tai yra intelekto tipas, apie kurį aš kalbu; žinojimas, kokių funkcijų reikia konkretaus tipo programose. Tai garantuoja, kad niekas nesvarbus paverčia jį galutiniu pasiūlymu. Beje, nustebau pastebėjęs, kad ten, kur „Excel“ leidžia įterpti daugiau eilučių į darbalapį, neleidžiama pasirinkti norimų pridėti eilučių skaičiaus. Norėdami tai padaryti, turite kitų darbo būdų, pavyzdžiui, iš esamų pasirinkite norimų pridėti eilučių skaičių ir tada naudojate įterpimo funkciją. Arba galite pakartoti įterpimo eilutės žingsnį tiek eilučių, kiek norite. Tai kartojasi, bet jei norite skirti penkias minutes, ši maža „Macro“ gali pasirūpinti darbu.
Kadangi tam reikia makrokomandos, jums reikėsišsaugokite failą kaip makrokomandą įgalintą „Excel“ failą. Norėdami tai padaryti, spustelėkite išskleidžiamąjį meniu „Įrašyti kaip tipą“ išsaugojimo kaip lange ir pasirinkite „Excel Marco įgalinta darbo knyga“ (* xlsm).
Kitas laikas rašyti makrokomandą. Eikite į skirtuką Rodymas ir spustelėkite Makrokomandos, kad sukurtumėte naują. Pavadinkite tai, kas jums patinka, ir spustelėkite „Sukurti“. Kitas langas atsidarys automatiškai.
Čia svarbūs yra „Sub“ ir „End Sub“linijos. Sub eilutėje bus nurodytas jūsų makrokomandos pavadinimas, o „End Sub“ žymi tos makrokomandos pabaigą. Kadangi ką tik sukūrėte, tarp tų eilučių neturėtų būti nieko, kaip aukščiau esančioje ekrano kopijoje. Tarp šių dviejų eilučių įklijuokite.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Šis kodas įterps penkias eilutes iš viršaus. Kode nurodoma kaip A1: A5. Norėdami jį redaguoti pagal savo poreikius, turite redaguoti šį diapazoną. Pirmoji reikšmė yra nuoroda į tai, kur bus įterpiamos eilutės. Jei pakeisite jį į A100, eilutės bus įterptos po pirmųjų devyniasdešimt devynių eilučių. Nustatę atskaitos tašką, turite įvesti eilučių skaičių.
Eilių skaičius yra apibrėžtas langelių diapazonu A1: A5. Šis diapazonas įterps 5 eilutes. Norėdami rasti tinkamą jūsų eilučių skaičių diapazoną, pavyzdžiui, norėtumėte įterpti 25 eilutes iš A99, prie atskaitos taško pridėsite 25, kad jis būtų A99 ir atimtų vieną langelį nuo jo. T.y. A100 + 99 - 1 = A198. Pridedate eilutes, o ne stulpelius, todėl keisis tik skaičius, o ne stulpelio raidė. Makrokomanda turi būti atnaujinta kiekvieną kartą, kai reikia įterpti eilutes, tačiau tai tik nedidelis redagavimas ir ji veikia tikrai gerai, todėl verta skirti laiko.
Makro per „Microsoft“ palaikymą
Komentarai