Kopsavilkums
Programmā Microsoft Excel varat izveidot Microsoft Visual Basic for Applications (VBA) makro, kas nerādīs uzvedni Saglabāt izmaiņas, kad aizverat darbgrāmatu. To var paveikt, norādot darbgrāmatas rekvizīta Saglabāts stāvokli vai apspiest visus darbgrāmatas brīdinājumus.
Papildinformācija
PIEZĪME. Microsoft nodrošina programmēšanas piemērus tikai ilustrācijai, bet nekādas garantijas nav izteiktas vai netiešas. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek demonstrēta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdošanas procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētas procedūras funkcionalitāti. Tomēr tie nemodificēs šos piemērus, lai nodrošinātu papildu funkcionalitāti vai uzbūves procedūras, kas atbilst jūsu konkrētajām vajadzībām. Lai sagatavotos kāda no tālāk minētajiem piemēriem, vispirms veiciet šīs darbības:
-
Startējiet programmu Excel un atveriet jaunu darbgrāmatu.
-
Nospiediet taustiņu kombināciju ALT+F11, lai startētu Visual Basic redaktoru.
-
Izvēlnē Ievietošana noklikšķiniet uz Modulis.
-
Moduļa lapā ierakstiet makro koda paraugu.
-
Lai atgrieztos programmā Excel, nospiediet taustiņu kombināciju ALT+F11.
-
Programmā Microsoft Office Excel 2003 un vecākās Excel versijās izvēlnē Rīki izvēlieties Makro un pēc tam noklikšķiniet uz Makro.Programmā Microsoft Office Excel 2007 cilnes Izstrādātājsgrupā Kods noklikšķiniet uz Makro. Ja cilne Izstrādātājs nav pieejama, apsveriet iespēju to izdarīt: a. Noklikšķiniet uz Microsoft Office pogas un pēc tam uz Excel opcijas.b. Kategorijas Populārākās sadaļā Populārākās opcijas darbam ar Excel noklikšķiniet, lai atlasītu rādīt Izvēles rūtiņa Lentē izstrādātāja cilne un pēc tam noklikšķiniet uz Labi.
-
Atlasiet makro un pēc tam noklikšķiniet uz Izpildīt.
Rekvizīts Saved atgriež vērtību False, ja darbgrāmatā ir veiktas izmaiņas kopš pēdējās saglabāšanas reizes.Rezervēto apakšrutīnas nosaukumu var izmantotAuto_Close lai norādītu makro, kas jāpalaiž katru reizi, kad darbgrāmata ir aizvērta. To darot, varat kontrolēt, kā dokuments tiek apstrādāts, kad lietotājs aizver dokumentus programmā Excel.
1. piemērs. Darbgrāmatas aizvēršana, nesaglabājot izmaiņas
Lai liktu darbgrāmatai aizvērties, nesaglabājot izmaiņas, šīs darbgrāmatas Visual Basic modulī ierakstiet šādu kodu:
Sub Auto_Close()
ThisWorkbook.Saved = True
End Sub
Ja rekvizīts Saglabāts ir iestatīts uz Patiess, programma Excel atbild tā, it kā darbgrāmata jau būtu saglabāta un kopš pēdējās saglabāšanas reizes nav veiktas izmaiņas.Šim nolūkam var izmantot programmas rekvizītu DisplayAlerts. Piemēram, šis makro izslēdz DisplayAlerts, aizver aktīvo darbgrāmatu, nesaglabājot izmaiņas, un pēc tam atkal ieslēdz DisplayAlerts.
Sub CloseBook()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Varat arī izmantot metodes Close argumentu SaveChanges.Šis makro aizver darbgrāmatu, nesaglabājot izmaiņas:
Sub CloseBook2()
ActiveWorkbook.Close savechanges:=False
End Sub
2. piemērs. Darbgrāmatas aizvēršana un izmaiņu saglabāšana
Lai liktu darbgrāmatai saglabāt izmaiņas, šīs darbgrāmatas Visual Basic modulī ierakstiet šādu kodu:
Sub Auto_Close()
Ja šī_grāmata.Saglabāta = Aplams, tad
ThisWorkbook.Save End If
End Sub
Šis apakšprocedūras pārbauda, vai faila saglabātais rekvizīts ir iestatīts kā Aplams. Šādā gadījumā darbgrāmata ir mainīta pēc pēdējās saglabāšanas reizes, un šīs izmaiņas tiek saglabātas.
