A Excel, és possible que estigueu treballant en dades tan sensibles que voldreu desar cada vegada que es canviï una cel·la o un rang de cel·les concrets. Aquesta macro us permet definir un rang de cel·les que, quan es canvia, obliga a desar el llibre de treball.
A l'exemple mostrat, voleu que el llibre de treball es desi quan es fa una edició a qualsevol de les cel·les de l'interval C5:C16.
Canviar una cel·la a C5:C16 obliga a desar el llibre de treball.
El secret d'aquest codi és el mètode Intersect. Com que no voleu desar el full de treball quan canvia cap cel·la antiga, utilitzeu el mètode Intersect per determinar si la cel·la objectiu (la cel·la que ha canviat) es talla amb l'interval especificat com a interval d'activació (C5:C16 en aquest cas). .
El mètode Intersect retorna una d'aquestes dues coses: un objecte Range que defineix la intersecció entre els dos rangs donats, o res. Per tant, en essència, heu de llançar la cel·la objectiu contra el mètode Intersect per comprovar si hi ha un valor de Nothing. En aquest moment, podeu decidir si voleu desar el llibre de treball.
Private Sub Worksheet_Change(ByVal Target As Range)
"Pas 1: l'interval canviat es creua?
Si Intersect(Target, Range("C5:C16")) no és res, aleshores
"Pas 2: si no hi ha intersecció, procediment de sortida
Sortir de Sub
"Pas 3: si hi ha una intersecció, deseu el llibre de treball
Altrament
ActiveWorkbook.Desa
"Pas 4: tanqueu la declaració If
Acaba si
End Sub
Al pas 1, simplement comproveu si la cel·la objectiu (la cel·la que ha canviat) es troba dins l'interval especificat pel mètode Intersect. Un valor de Nothing significa que la cel·la objectiu està fora de l'interval especificat.
El pas 2 obliga la macro a aturar-se i sortir del procediment si no hi ha cap intersecció entre la cel·la objectiu i l'interval especificat.
Si hi ha una intersecció, el pas 3 activa el mètode Desa del llibre de treball actiu, sobreescrivint la versió anterior.
Al pas 4, simplement tanqueu la declaració If. Cada vegada que inicieu una comprovació If-Then-Else, l'heu de tancar amb un End If corresponent.
Per implementar aquesta macro, heu de copiar-la i enganxar-la a la finestra del codi d'esdeveniment Worksheet_Change. Col·locar la macro aquí permet que s'executi cada vegada que feu qualsevol canvi al full:
Activeu Visual Basic Editor prement Alt+F11.
A la finestra del projecte, cerqueu el nom del vostre projecte/llibre de treball i feu clic al signe més que hi ha al costat per veure tots els fulls.
Feu clic al full des del qual voleu activar el codi.
A la llista desplegable Esdeveniment, seleccioneu l'esdeveniment Canvia.
Escriviu o enganxeu el codi al mòdul acabat de crear, canviant l'adreça del rang segons les vostres necessitats.
Introduïu el vostre codi a l'esdeveniment Canvi de full de treball.
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 […]
