Þú gætir stundum viljað eða þurft að búa til Excel vinnubók á sjálfvirkan hátt. Til dæmis gætir þú þurft að afrita gögn úr töflu og líma þau inn í nýstofnaða vinnubók. Eftirfarandi fjölvi afritar fjölda hólfa úr virka blaðinu og límir gögnin inn í nýja vinnubók.
Hvernig macro virkar
Eins og þú munt sjá þegar þú lest í gegnum línurnar í kóðanum er þetta fjölvi tiltölulega leiðandi:
Sub Macro1()
'Skref 1 Afritaðu gögnin
Sheets("Dæmi 1").Range("B4:C15").Afrita
'Skref 2 Búðu til nýja vinnubók
Vinnubækur.Bæta við
'Skref 3 Límdu gögnin
ActiveSheet.Paste Destination:=Range("A1")
'Skref 4 Slökktu á tilkynningum um forrit
Application.DisplayAlerts = False
'Skref 5 Vistaðu nýstofnaða vinnubókina
ActiveWorkbook.SaveAs _
Skráarnafn:="C:TempMyNewBook.xlsx"
„Skref 6 Kveiktu aftur á tilkynningum um forrit
Application.DisplayAlerts = True
End Sub
Í skrefi 1 afritarðu einfaldlega gögnin sem eru á bilinu frá frumum B4 til C15. Athugaðu að þú tilgreinir bæði blaðið og svið með nafni. Þessi nálgun er besta starfsvenjan þegar unnið er með margar opnar vinnubækur.
Í skrefi 2 notarðu Bæta við aðferð vinnubókarhlutarins til að búa til vinnubók. Eyða vinnubókin jafngildir því að velja handvirkt Skrá→Nýtt→Autt skjal í Excel borði.
Í skrefi 3 notarðu Paste aðferðina til að senda afrituðu gögnin í reit A1 í nýju vinnubókinni.
Gefðu gaum að því að kóðinn vísar til ActiveSheet hlutarins. Þegar þú bætir við vinnubók fær nýja vinnubókin strax áherslu og verður virka vinnubókin. (Excel gerir það sama þegar þú bætir við vinnubók handvirkt.)
Í skrefi 4 í kóðanum stillirðu DisplayAlerts aðferðina á False, og slökktir í raun á viðvörunum Excel. Þú gerir þetta vegna þess að í næsta skrefi kóðans vistarðu nýstofnaða vinnubókina. Þú getur keyrt þetta fjölvi mörgum sinnum, en þá reynir Excel að vista skrána mörgum sinnum.
Hvað gerist þegar þú reynir að vista vinnubók mörgum sinnum? Það er rétt - Excel varar þig við því að það sé nú þegar til skrá með því nafni og spyr síðan hvort þú viljir skrifa yfir fyrri skrá. Vegna þess að markmið þitt er að gera sjálfvirka gerð vinnubókarinnar, viltu bæla þá viðvörun.
Í skrefi 5 vistarðu skrána með því að nota SaveAs aðferðina. Athugaðu að þú slærð inn alla slóð vistunarstaðarins, þar á meðal endanlegt skráarnafn.
Þar sem þú slökktir á forritabreytingum í skrefi 4 þarftu að kveikja á þeim aftur (sjá skref 6). Ef þú gerir það ekki heldur Excel áfram að bæla niður allar viðvaranir á yfirstandandi lotu.
Hvernig á að nota macro
Til að útfæra þetta fjölvi geturðu afritað og límt það inn í venjulega einingu:
Virkjaðu Visual Basic Editor með því að ýta á Alt+F11.
Hægrismelltu á heiti verkefnis/vinnubókar í verkefnaglugganum.
Veldu Insert→ Module.
Sláðu inn eða límdu kóðann í nýstofnaða einingu.
Þú þarft líklega að breyta nafni blaðsins, heimilisfangi svæðisins og vistunarstaðsetningunni.