Prijavite se pomoću Microsoft naloga
Prijavite se ili kreirajte nalog.
Zdravo,
Select a different account.
Imate više naloga
Odaberite nalog pomoću kojih želite da se prijavite.

Za verziju ovog članka za Microsoft Excel 2000 pogledajte 247933.

Za verziju ovog članka pogledajte 247981.

Za Microsoft Excel 97 verziju ovog članka pogledajte 247980.

Za verziju ovog članka pogledajte 247982.

Rezime

Sledeća procedura microsoft Visual Basic for Applications Sub uklanja sve stilove u Microsoft Excel radnoj svesci, a zatim vraća podrazumevane stilove koje vidite u novoj radnoj svesci. Ovaj makro može biti koristan za uklanjanje dodatnih stilova dodatih u radnu svesku koja je zaražena makro virusom. Ovaj makro koristi metod "Workbooks.Add" koji zaobilazi predloške u direktorijumima za pokretanje. Zbog toga ispravno funkcioniše čak i ako su predlošci u direktorijumima za pokretanje imali dodatne stilove koji su im dodati.

Više informacija

Microsoft obezbeđuje primere programa samo za ilustraciju, bez garancije koja je izražena ili podrazumevana. To uključuje, ali nije ograničeno na podrazumevane garancije o mogućnostima trgovanja ili spremnosti za određenu svrhu. Ovaj članak pretpostavlja da ste upoznati sa programskim jezikom koji se demonstrira i sa alatkama koje se koriste za kreiranje i otklanjanje grešaka. Inženjeri Microsoft podrške mogu da pomognu u objašnjavaju funkcionalnosti određene procedure. Međutim, oni neće menjati ove primere da bi obezbedili dodatnu funkcionalnost ili konstruisali procedure da bi ispunili vaše specifične zahteve. Sledeći makro uklanja stilove iz trenutno aktivne radne sveske. Ako otkucate ovaj kôd u novu radnu svesku, uverite se da ste aktivirali radnu svesku iz koje želite da uspostavite početne vrednosti stilova pre nego što potegnete makro.

Sub RebuildDefaultStyles()'The purpose of this macro is to remove all styles in the active'workbook and rebuild the default styles.'It rebuilds the default styles by merging them from a new workbook.'Dimension variables.   Dim MyBook As Workbook   Dim tempBook As Workbook   Dim CurStyle As Style   'Set MyBook to the active workbook.   Set MyBook = ActiveWorkbook   On Error Resume Next   'Delete all the styles in the workbook.   For Each CurStyle In MyBook.Styles      'If CurStyle.Name <> "Normal" Then CurStyle.Delete      Select Case CurStyle.Name         Case "20% - Accent1", "20% - Accent2", _               "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _               "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _               "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _               "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _               "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _               "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _               "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _               "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _               "Note", "Output", "Percent", "Title", "Total", "Warning Text"            'Do nothing, these are the default styles         Case Else            CurStyle.Delete      End Select   Next CurStyle   'Open a new workbook.   Set tempBook = Workbooks.Add   'Disable alerts so you may merge changes to the Normal style   'from the new workbook.   Application.DisplayAlerts = False   'Merge styles from the new workbook into the existing workbook.   MyBook.Styles.Merge Workbook:=tempBook   'Enable alerts.   Application.DisplayAlerts = True   'Close the new workbook.   tempBook.CloseEnd Sub

Reference

Za više informacija o korišćenju probnog koda u ovom članku kliknite na broj članka ispod da biste videli članak u Microsoft bazi znanja:

290140 Pokretanje probnog koda iz članaka baze znanja

Potrebna vam je dodatna pomoć?

Unapredite veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Microsoft insajdere

Da li su vam ove informacije koristile?

Koliko ste zadovoljni kvalitetom jezika?
Šta je uticalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×