De vegades, és possible que vulgueu suprimir tot excepte el full de treball actiu d'un llibre d'Excel. En aquestes situacions, podeu utilitzar la macro següent.
La macro aquí recorre els fulls de treball, fent coincidir cada nom de full de treball amb el nom del full actiu. Cada vegada que la macro fa un bucle, s'elimina qualsevol full de treball no coincident. Tingueu en compte l'ús de la propietat DisplayAlerts al pas 4. Això desactiva efectivament els avisos d'Excel perquè no hàgiu de confirmar cada supressió.
Sub macro1()
"Pas 1: declara les teves variables
Dim ws com a full de treball
"Pas 2: comenceu a repassar tots els fulls de treball
Per a cada ws En aquest llibre de treball.Fulls de treball
"Pas 3: comproveu el nom de cada full de treball
Si ws.Name <> ThisWorkbook.ActiveSheet.Name Aleshores
"Pas 4: desactiveu els avisos i suprimiu-los
Application.DisplayAlerts = Fals
ws.Suprimeix
Application.DisplayAlerts = Veritable
Acaba si
"Pas 5: aneu al següent full de treball
Següent ws
End Sub
La macro declara primer un objecte anomenat ws. Aquest pas crea un contenidor de memòria per a cada full de treball que passa.
Al pas 2, la macro comença a fer un bucle, dient a Excel que avaluarà tots els fulls de treball d'aquest llibre. Hi ha una diferència entre ThisWorkbook i ActiveWorkbook. L'objecte ThisWorkBook fa referència al llibre de treball que conté el codi. L'objecte ActiveWorkBook fa referència al llibre de treball actiu actualment. Sovint retornen el mateix objecte, però si el llibre de treball que executa el codi no és el llibre de treball actiu, tornen objectes diferents. En aquest cas, no voleu arriscar-vos a suprimir fulls d'altres llibres de treball, de manera que feu servir ThisWorkBook.
Al pas 3, la macro simplement compara el nom del full actiu amb el full que s'està reproduint en bucle.
Al pas 4, si els noms dels fulls són diferents, la macro suprimeix el full. Com s'ha esmentat, feu servir DisplayAlerts per suprimir qualsevol comprovació de confirmació d'Excel. Si voleu ser avisat abans d'eliminar els fulls, podeu ometre l'aplicació. DisplayAlerts = Fals. Si ometeu la declaració DisplayAlerts, us garantirà que rebeu el missatge que us mostrarà, cosa que us permetrà retirar-vos de la decisió d'eliminar fulls de treball.
Al pas 5, la macro torna a fer un bucle per obtenir el següent full. Després d'avaluar tots els fulls, la macro acaba.
Omet la instrucció DisplayAlerts per veure missatges d'advertència.
Per implementar aquesta macro, podeu copiar-la i enganxar-la en un mòdul estàndard:
Activeu Visual Basic Editor prement Alt+F11.
Feu clic amb el botó dret al nom del projecte/llibre de treball a la finestra del projecte.
Seleccioneu Insereix → Mòdul.
Escriviu o enganxeu el codi al mòdul acabat de crear.
Quan utilitzeu ThisWorkbook en lloc d'ActiveWorkbook en una macro, no podeu executar la macro des del llibre de treball de macro personal. Per què? Com que ThisWorkbook es referiria al llibre de treball de macro personal, no al llibre de treball al qual s'hauria d'aplicar la macro.
Com bloquejar Microsoft Word d'obrir fitxers en mode de només lectura a Windows Microsoft Word obre fitxers en mode de només lectura, cosa que fa que sigui impossible editar-los? No us preocupeu, els mètodes es mostren a continuació
Com corregir errors en imprimir documents incorrectes de Microsoft Word Els errors en imprimir documents de Word amb tipus de lletra canviats, paràgrafs desordenats, falta de text o contingut perdut són força habituals. No obstant això, no
Si heu utilitzat el llapis o el marcador per dibuixar a les vostres diapositives de PowerPoint durant una presentació, podeu desar els dibuixos per a la següent presentació o esborrar-los de manera que la propera vegada que el mostreu, començareu amb diapositives de PowerPoint netes. Seguiu aquestes instruccions per esborrar dibuixos a llapis i ressaltadors: Esborrant línies una a […]
La biblioteca d'estils conté fitxers CSS, fitxers de llenguatge de full d'estil extensible (XSL) i imatges utilitzades per pàgines mestres predefinides, dissenys de pàgina i controls a SharePoint 2010. Per localitzar fitxers CSS a la biblioteca d'estils d'un lloc de publicació: Trieu Accions del lloc→Visualitza Tot el contingut del lloc. Apareix el contingut del lloc. La biblioteca d'estil es troba a […]
No desbordeu el vostre públic amb números gigantesques. A Microsoft Excel, podeu millorar la llegibilitat dels vostres taulers i informes formatant els vostres números perquè apareguin en milers o milions.
Apreneu a utilitzar les eines de xarxes socials de SharePoints que permeten a persones i grups comunicar-se, col·laborar, compartir i connectar-se.
Les dates julianes s'utilitzen sovint en entorns de fabricació com a marca de temps i referència ràpida per a un número de lot. Aquest tipus de codificació de dates permet als minoristes, consumidors i agents de serveis identificar quan es va fabricar un producte i, per tant, l'antiguitat del producte. Les dates julianes també s'utilitzen en programació, militars i astronomia. Diferents […]
Podeu crear una aplicació web a Access 2016. Què és, de totes maneres, una aplicació web? Bé, web vol dir que està en línia i l'aplicació és només una abreviatura de "aplicació". Una aplicació web personalitzada és una aplicació de base de dades en línia a la qual s'accedeix des del núvol mitjançant un navegador. Creeu i manteniu l'aplicació web a la versió d'escriptori […]
La majoria de les pàgines del SharePoint 2010 mostren una llista d'enllaços de navegació a la barra d'inici ràpid al costat esquerre de la pàgina. La barra d'inici ràpid mostra enllaços al contingut del lloc destacat, com ara llistes, biblioteques, llocs i pàgines de publicació. La barra d'inici ràpid inclou dos enllaços molt importants: Enllaç de tot el contingut del lloc: el […]
Per a problemes senzills, Solver a Excel sol trobar ràpidament els valors òptims de la variable Solver per a la funció objectiu. Però, en alguns casos, Solver té problemes per trobar els valors de la variable Solver que optimitzen la funció objectiu. En aquests casos, Solver normalment mostra un missatge o un missatge d'error que descriu o discuteix el problema que […]
