Možda ćete ponekad htjeti ili trebate izraditi Excel radnu knjigu na automatiziran način. Na primjer, možda ćete morati kopirati podatke iz tablice i zalijepiti ih u novostvorenu radnu knjigu. Sljedeća makronaredba kopira raspon ćelija s aktivnog lista i lijepi podatke u novu radnu knjigu.
Kako makro funkcionira
Kao što ćete vidjeti kada pročitate retke koda, ovaj makro je relativno intuitivan:
Podmakro1()
'Korak 1 Kopirajte podatke
Listovi("Primjer 1").Raspon("B4:C15").Kopija
'Korak 2 Napravite novu radnu knjigu
Radne bilježnice.Dodaj
'Korak 3 Zalijepite podatke
ActiveSheet.Zalijepi Odredište:=Raspon("A1")
'Korak 4 Isključite upozorenja aplikacija
Application.DisplayAlerts = False
'Korak 5 Spremite novostvorenu radnu knjigu
ActiveWorkbook.SaveAs _
Naziv datoteke:="C:TempMyNewBook.xlsx"
'Korak 6 Ponovno uključite upozorenja aplikacije
Application.DisplayAlerts = Točno
Kraj Sub
U 1. koraku jednostavno kopirate podatke koji se kreću od ćelija B4 do C15. Imajte na umu da navodite i list i raspon po imenu. Ovaj pristup je najbolja praksa kada radite s više otvorenih radnih knjiga.
U 2. koraku koristite metodu Dodaj objekta Radna knjiga za stvaranje radne knjige. Prazna radna knjiga je ekvivalentna ručnom odabiru Datoteka→Novo→Prazan dokument na vrpci Excela.
U 3. koraku koristite metodu Zalijepi za slanje kopiranih podataka u ćeliju A1 nove radne knjige.
Obratite pažnju na činjenicu da se kod odnosi na ActiveSheet objekt. Kada dodate radnu knjigu, nova radna knjiga odmah dobiva fokus i postaje aktivna radna knjiga. (Excel čini isto kada ručno dodate radnu knjigu.)
U 4. koraku koda metodu DisplayAlerts postavljate na False, učinkovito isključujući Excelova upozorenja. To činite jer u sljedećem koraku koda spremate novostvorenu radnu knjigu. Ovu makronaredbu možete pokrenuti više puta, a u tom slučaju Excel više puta pokušava spremiti datoteku.
Što se događa kada više puta pokušate spremiti radnu knjigu? Tako je — Excel vas upozorava da već postoji datoteka s tim nazivom, a zatim vas pita želite li prebrisati prethodno postojeću datoteku. Budući da je vaš cilj automatizirati stvaranje radne knjige, želite potisnuti to upozorenje.
U 5. koraku datoteku spremate pomoću metode SaveAs. Imajte na umu da unosite puni put mjesta spremanja, uključujući konačni naziv datoteke.
Budući da ste isključili izmjene aplikacija u koraku 4, morate ih ponovno uključiti (pogledajte 6. korak). Ako to ne učinite, Excel nastavlja potiskivati sva upozorenja tijekom trenutne sesije.
Kako koristiti makro
Da biste implementirali ovu makronaredbu, možete je kopirati i zalijepiti u standardni modul:
Aktivirajte Visual Basic Editor pritiskom na Alt+F11.
Desnom tipkom miša kliknite naziv projekta/radne knjige u prozoru projekta.
Odaberite Umetanje→Modul.
Upišite ili zalijepite kod u novostvoreni modul.
Vjerojatno ćete morati promijeniti naziv lista, adresu raspona i mjesto spremanja.