Vienas iš labiausiai erzinančių dalykų programoje „Excel“ yra daugelio darbaknygių uždarymas vienu metu. Kiekvienoje atidarytoje darbaknygėje turite suaktyvinti darbą, jį uždaryti ir patvirtinti pakeitimų išsaugojimą. „Excel“ nėra lengvas būdas juos visus uždaryti iš karto. Ši maža makrokomanda pasirūpina tuo susierzinimu.
Kaip veikia makrokomandas
Šioje makrokomandoje Darbaknygių rinkinys perkelia visas atidarytas darbaknyges. Kai makrokomanda peržiūri kiekvieną darbaknygę, ji išsaugo ir uždaro:
Sub-makro1()
1 veiksmas: deklaruokite savo kintamuosius
Dim wb kaip darbaknygė
2 veiksmas: peržiūrėkite darbaknyges, išsaugokite ir uždarykite
Kiekvienam wb darbaknygėse
wb.Close SaveChanges:=Tiesa
Kitas wb
Pabaigos sub
1 veiksmas deklaruoja objekto kintamąjį, kuris reiškia darbaknygės objektą. Tai leidžia išvardinti visas atidarytas darbaknyges ir užfiksuoti jų pavadinimus.
2 veiksmas tiesiog peržiūri atidarytas darbaknyges, jas išsaugo ir uždaro. Jei nenorite jų išsaugoti, pakeiskite argumentą SaveChanges iš True į False.
Kaip naudoti makrokomandą
Geriausia vieta šiai makrokomandai saugoti yra asmeninėje makrokomandos darbaknygėje. Tokiu būdu makrokomanda visada bus pasiekiama. Asmeninė makrokomandų darbaknygė įkeliama kiekvieną kartą, kai paleidžiate „Excel“. VBE projekto lange jis pavadintas personal.xlsb.
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Dešiniuoju pelės mygtuku spustelėkite personal.xlb projekto lange.
Pasirinkite Įterpti → Modulis.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje.
Jei projekto lange nematote personal.xlb, jo dar nėra. Turėsite įrašyti makrokomandą naudodami asmeninę makrokomandos darbaknygę kaip paskirties vietą.
Norėdami įrašyti makrokomandą į savo asmeninę makrokomandos darbaknygę, atidarykite dialogo langą Įrašyti makrokomandą. Išskleidžiamajame sąraše Store Macro In pasirinkite Personal Macro Workbook. Tada tiesiog įrašykite kelis langelio paspaudimus ir sustabdykite įrašymą. Galite atmesti įrašytą makrokomandą ir pakeisti ją šia.