Viena no kaitinošākajām lietām programmā Excel ir daudzu darbgrāmatu aizvēršana vienlaikus. Katrai atvērtajai darbgrāmatai ir jāaktivizē darbs, tas jāaizver un jāapstiprina izmaiņu saglabāšana. Programmai Excel nav vienkāršs veids, kā tos visus aizvērt uzreiz. Šis mazais makro rūpējas par šo kairinājumu.
Kā darbojas makro
Šajā makro darbgrāmatu kolekcija veic visas atvērtās darbgrāmatas. Makro cilpas cauri katrai darbgrāmatai tās saglabā un aizver:
Apakšmakro1()
1. darbība: deklarējiet savus mainīgos
Dim wb Kā darbgrāmata
2. darbība. Pārlūkojiet darbgrāmatas, saglabājiet un aizveriet
Katram wb darbgrāmatās
wb.Close SaveChanges:=True
Nākamais wb
Beigt apakš
1. darbībā tiek deklarēts objekta mainīgais, kas apzīmē darbgrāmatas objektu. Tas ļauj uzskaitīt visas atvērtās darbgrāmatas, tverot to nosaukumus.
2. darbība vienkārši pāriet cauri atvērtajām darbgrāmatām, saglabājot un aizverot tās. Ja nevēlaties tos saglabāt, mainiet argumentu SaveChanges no True uz False.
Kā lietot makro
Labākā vieta šī makro glabāšanai ir personīgajā makro darbgrāmatā. Tādā veidā makro jums vienmēr ir pieejams. Personiskā makro darbgrāmata tiek ielādēta ikreiz, kad startējat programmu Excel. VBE projekta logā tas tiek nosaukts personal.xlsb.
Aktivizējiet Visual Basic redaktoru, nospiežot Alt+F11.
Ar peles labo pogu noklikšķiniet uz personal.xlb projekta logā.
Izvēlieties Ievietot → Modulis.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī.
Ja projekta logā neredzat personal.xlb, tas vēl neeksistē. Jums būs jāieraksta makro, kā galamērķi izmantojot personīgo makro darbgrāmatu.
Lai ierakstītu makro savā personīgajā makro darbgrāmatā, atveriet dialoglodziņu Ierakstīt makro. Nolaižamajā sarakstā Store Macro In atlasiet Personiskā makro darbgrāmata. Pēc tam vienkārši ierakstiet dažus šūnu klikšķus un pārtrauciet ierakstīšanu. Varat izmest ierakstīto makro un aizstāt to ar šo.