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
