Kartais gali norėti arba reikia sukurti „Excel“ darbaknygę automatiniu būdu. Pavyzdžiui, gali tekti nukopijuoti duomenis iš lentelės ir įklijuoti juos į naujai sukurtą darbaknygę. Ši makrokomanda nukopijuoja langelių diapazoną iš aktyvaus lapo ir įklijuoja duomenis į naują darbaknygę.
Kaip pamatysite perskaitę kodo eilutes, ši makrokomanda yra gana intuityvi:
Sub-makro1()
„1 veiksmas Nukopijuokite duomenis
Lakštai ("1 pavyzdys"). Diapazonas ("B4:C15").Kopijuoti
2 veiksmas Sukurkite naują darbaknygę
Darbo knygos.Pridėti
3 veiksmas Įklijuokite duomenis
ActiveSheet.Paste Destination:=Range("A1")
4 veiksmas Išjunkite programų įspėjimus
Application.DisplayAlerts = Netiesa
5 veiksmas Išsaugokite naujai sukurtą darbaknygę
ActiveWorkbook.SaveAs _
Failo pavadinimas:="C:TempMyNewBook.xlsx"
6 veiksmas Vėl įjunkite programų įspėjimus
Application.DisplayAlerts = Tiesa
Pabaigos sub
1 veiksme tiesiog nukopijuokite duomenis nuo langelių B4 iki C15. Atminkite, kad lapą ir diapazoną nurodote pagal pavadinimą. Šis metodas yra geriausia praktika dirbant su keliomis atidarytomis darbaknygėmis.
2 veiksme darbaknygei sukurti naudojate objekto Darbaknygės metodą Pridėti. Tuščia darbaknygė prilygsta rankiniam pasirinkimui Failas → Naujas → Tuščias dokumentas Excel juostelėje.
3 veiksme naudojate metodą Įklijuoti, kad nukopijuotus duomenis nusiųsti į naujos darbaknygės langelį A1.
Atkreipkite dėmesį į tai, kad kodas nurodo ActiveSheet objektą. Kai pridedate darbaknygę, naujoji darbaknygė iš karto įgauna dėmesį ir tampa aktyvia darbaknyge. („Excel“ daro tą patį, kai darbaknygę pridedate rankiniu būdu.)
4 kodo veiksme nustatėte „DisplayAlerts“ metodą kaip „False“, veiksmingai išjungdami „Excel“ įspėjimus. Tai darote, nes kitame kodo veiksme išsaugosite naujai sukurtą darbaknygę. Šią makrokomandą galite paleisti kelis kartus. Tokiu atveju „Excel“ bando išsaugoti failą kelis kartus.
Kas nutinka, kai kelis kartus bandote įrašyti darbaknygę? Teisingai – „Excel“ įspėja, kad jau yra failas tokiu pavadinimu, ir tada paklaus, ar norite perrašyti anksčiau esamą failą. Kadangi jūsų tikslas yra automatizuoti darbaknygės kūrimą, norite panaikinti šį įspėjimą.
5 veiksme išsaugokite failą naudodami „SaveAs“ metodą. Atminkite, kad įvedėte visą išsaugojimo vietos kelią, įskaitant galutinį failo pavadinimą.
Kadangi 4 veiksme išjungėte programų pakeitimus, turite juos vėl įjungti (žr. 6 veiksmą). Jei to nepadarysite, „Excel“ ir toliau slėps visus įspėjimus dabartinės sesijos metu.
Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Dešiniuoju pelės mygtuku spustelėkite projekto / darbaknygės pavadinimą projekto lange.
Pasirinkite Įterpti → Modulis.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje.
Tikriausiai turėsite pakeisti lapo pavadinimą, diapazono adresą ir išsaugojimo vietą.
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
