És possible que vulgueu amagar els fulls de treball inactius amb aquesta macro. Excel no us permet amagar tots els fulls d'un llibre de treball; almenys un s'ha de mostrar. Tanmateix, podeu amagar-ho tot menys el full actiu.
La macro aquí recorre els fulls de treball i fa coincidir cada nom de full de treball amb el nom del full actiu. Cada vegada que la macro fa un bucle, amaga qualsevol full de treball no coincident.
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: amaga el full
ws.Visible = xlSheetHidden
Acaba si
"Pas 5: aneu al següent full de treball
Següent ws
End Sub
El pas 1 declara un objecte anomenat ws. Aquest pas crea un contenidor de memòria per a cada full de treball que la macro passa en bucle.
El pas 2 comença el bucle, dient a Excel que avaluï tots els fulls de treball d'aquest llibre. Tingueu en compte la 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 amagar fulls en 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.
Si els noms dels fulls són diferents, la macro amaga el full al pas 4.
Al pas 5, aneu enrere per obtenir el següent full. Després d'avaluar tots els fulls, la macro acaba.
Tingueu en compte que feu servir xlsheetHidden a la vostra macro. Aquesta propietat aplica l'estat d'ocultació predeterminat que normalment obtindríeu quan feu clic amb el botó dret a un full i seleccioneu Amaga. En aquest estat d'ocultació predeterminat, un usuari pot fer clic amb el botó dret a qualsevol pestanya i triar Mostra, que mostra tots els fulls ocults. Però un altre estat d'ocultació és més clandestí que el predeterminat. Si utilitzeu xlSheetVeryHidden per amagar els vostres fulls, els usuaris no els podran veure en absolut, fins i tot si fan clic amb el botó dret en una pestanya i trien Mostra. L'única manera de mostrar un full amagat d'aquesta manera és utilitzar VBA.
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.
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 […]
