Ndonjëherë mund të dëshironi ose të keni nevojë të krijoni një libër pune në Excel në një mënyrë të automatizuar. Për shembull, mund t'ju duhet të kopjoni të dhënat nga një tabelë dhe t'i ngjisni ato në një libër pune të krijuar rishtazi. Makroja e mëposhtme kopjon një sërë qelizash nga fleta aktive dhe i ngjit të dhënat në një libër të ri pune.
Si funksionon makroja
Siç do ta shihni kur lexoni rreshtat e kodit, kjo makro është relativisht intuitive:
Nën makro1()
'Hapi 1 Kopjoni të dhënat
Sheets("Shembulli 1").Range("B4:C15").Kopje
'Hapi 2 Krijo një libër të ri pune
Fletoret e punës.Shto
'Hapi 3 Ngjitni të dhënat
ActiveSheet.Paste Destinacioni:=Range("A1")
'Hapi 4 Çaktivizoni sinjalizimet e aplikacioneve
Aplikimi.DisplayAlerts = False
'Hapi 5 Ruani librin e punës të krijuar rishtazi
ActiveWorkbook.SaveAs _
Emri i skedarit:="C:TempMyNewBook.xlsx"
'Hapi 6 Aktivizo sërish alarmet e aplikacionit
Aplikimi.DisplayAlerts = E vërtetë
Fundi Nën
Në hapin 1, ju thjesht kopjoni të dhënat që variojnë nga qelizat B4 në C15. Vini re se ju specifikoni si fletën ashtu edhe gamën me emër. Kjo qasje është një praktikë më e mirë kur punoni me shumë libra të hapur të punës.
Në hapin 2, ju përdorni metodën Shto të objektit Workbook për të krijuar një libër pune. Libri i punës bosh është i barabartë me zgjedhjen manuale të Skedarit→New→Blank Document në shiritin e Excel.
Në hapin 3, ju përdorni metodën Paste për të dërguar të dhënat e kopjuara në qelizën A1 të librit të ri të punës.
Kushtojini vëmendje faktit që kodi i referohet objektit ActiveSheet. Kur shtoni një libër pune, libri i ri i punës merr menjëherë fokus, duke u bërë libri aktiv i punës. (Excel bën të njëjtën gjë kur shtoni manualisht një libër pune.)
Në hapin 4 të kodit, ju vendosni metodën DisplayAlerts në False, duke çaktivizuar në mënyrë efektive paralajmërimet e Excel. Ju e bëni këtë sepse në hapin tjetër të kodit, ruani librin e punës të krijuar rishtazi. Ju mund ta ekzekutoni këtë makro disa herë, në këtë rast Excel përpiqet ta ruajë skedarin disa herë.
Çfarë ndodh kur përpiqeni të ruani një libër pune disa herë? Kjo është e drejtë - Excel ju paralajmëron se ekziston tashmë një skedar me atë emër dhe më pas ju pyet nëse dëshironi të mbishkruani skedarin ekzistues më parë. Për shkak se qëllimi juaj është të automatizoni krijimin e librit të punës, ju dëshironi ta shtypni atë paralajmërim.
Në hapin 5, ju ruani skedarin duke përdorur metodën SaveAs. Vini re se futni shtegun e plotë të vendndodhjes së ruajtjes, duke përfshirë emrin përfundimtar të skedarit.
Për shkak se keni çaktivizuar ndryshimet e aplikacioneve në hapin 4, duhet t'i aktivizoni përsëri (shih hapin 6). Nëse nuk e bëni këtë, Excel vazhdon të shtypë të gjitha paralajmërimet gjatë sesionit aktual.
Si të përdorni makro
Për të zbatuar këtë makro, mund ta kopjoni dhe ngjisni në një modul standard:
Aktivizoni Visual Basic Editor duke shtypur Alt+F11.
Klikoni me të djathtën mbi emrin e projektit/librit të punës në dritaren e projektit.
Zgjidhni Fut → Modul.
Shkruani ose ngjisni kodin në modulin e krijuar rishtazi.
Ndoshta do t'ju duhet të ndryshoni emrin e fletës, adresën e gamës dhe vendndodhjen e ruajtjes.