Si esteu intentant entendre bé l'Excel VBA , probablement us podríeu beneficiar d'alguns exemples per desenvolupar aquesta habilitat visual bàsica. Aquí trobareu alguns exemples d'Excel VBA perquè pugueu dominar aquest negoci de gestió d'esdeveniments.
Un dels esdeveniments d'Excel VBA més utilitzats és l' esdeveniment Workbook Open. Suposem que tens un quadern de treball que fas servir cada dia. El procediment Workbook_Open d'aquest exemple s'executa cada vegada que s'obre el llibre de treball. El procediment comprova el dia de la setmana; si és divendres, el codi us mostrarà un missatge de recordatori.
Per crear el procediment d'Excel VBA que s'executa sempre que es produeix l'esdeveniment d'obertura del llibre de treball, seguiu aquests passos:
Obriu el llibre de treball d'Excel.
Qualsevol llibre de treball d'Excel servirà.
Premeu Alt+F11 per activar el VBE.
Localitzeu el llibre de treball a la finestra del projecte.
Feu doble clic al nom del projecte per mostrar-ne els elements, si cal.
Feu doble clic a l'element ThisWorkbook.
El VBE mostra una finestra de codi buida per a l'objecte ThisWorkbook.
A la finestra Codi, seleccioneu Llibre de treball a la llista desplegable Objecte (esquerra).
El VBE introdueix les declaracions inicial i final d'un procediment Workbook_Open.
Introduïu les declaracions següents, de manera que el procediment complet de l'esdeveniment tingui aquest aspecte:
Llibre de treball secundari privat_Obre()
Atenuar el missatge com a cadena
Si el dia feiner(Ara) = 6 Aleshores
Msg = "Avui és divendres. No us oblideu de "
Msg = Msg & "envia l'informe TPS!"
MsgBox Msg
Acaba si
End Sub
La finestra del codi hauria de tenir aquest aspecte.
Aquest procediment de gestor d'esdeveniments s'executa quan s'obre el llibre de treball.
Workbook_Open s'executa automàticament sempre que s'obre el llibre de treball. Utilitza la funció WeekDay de VBA per determinar el dia de la setmana. Si és divendres (dia 6), un missatge recorda a l'usuari que enviï un informe. Si no és divendres, no passa res.
Si avui no és divendres, potser us costarà provar aquest procediment. Només podeu canviar el 6 perquè correspongui al número real del dia d'avui.
I, per descomptat, podeu modificar aquest procediment de la manera que vulgueu. Per exemple, la versió següent mostra un missatge cada vegada que s'obre el llibre de treball. Això es torna molest després d'un temps.
Un procediment Workbook_Open pot fer gairebé qualsevol cosa. Aquests gestors d'esdeveniments s'utilitzen sovint per al següent:
Aquí teniu un exemple final d'Excel VBA d'un procediment Workbook_Open que utilitza les funcions GetSetting i SaveSetting per fer un seguiment de quantes vegades s'ha obert el llibre de treball. La funció SaveSetting escriu un valor al registre de Windows i la funció GetSetting recupera aquest valor (vegeu el sistema d'ajuda per a més informació). L'exemple següent d'Excel VBA recupera el recompte del registre, l'incrementa i després el desa de nou al registre. També indica a l'usuari el valor de Cnt que correspon al nombre de vegades que s'ha obert el llibre de treball.
Llibre de treball secundari privat_Obre()
Dim Cnt As Long
Cnt = GetSetting ("La meva aplicació", "Configuració", "Obre", 0)
Cnt = Cnt + 1
SaveSetting "La meva aplicació", "Configuració", "Obre", Cnt
MsgBox "Aquest llibre de treball s'ha obert " & Cnt & " vegades."
End Sub
Utilitzar un gestor d'esdeveniments Workbook_Open per fer un seguiment de quantes vegades s'ha obert un llibre de treball.
Aquí teniu un exemple del procediment del gestor d'esdeveniments d'Excel VBA Workbook_BeforeClose, que s'executa automàticament immediatament abans que es tanqui el llibre de treball. Aquest procediment es troba a la finestra Codi d'un objecte ThisWorkbook:
Private Sub Workbook_BeforeClose (Cancel·la com a booleà)
Atenuar el missatge com a cadena
Dim Ans As Long
Dim FName com a cadena
Msg = "Vols fer una còpia de seguretat d'aquest fitxer?"
Resposta = MsgBox(Msg, vbYesNo)
Si Res = vbSí Aleshores
FName = "F:\BACKUP\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs FName
Acaba si
End Sub
Aquesta rutina utilitza un quadre de missatge per preguntar a l'usuari si vol fer una còpia de seguretat del llibre de treball. Si la resposta és afirmativa, el codi utilitza el mètode SaveCopyAs per desar una còpia de seguretat del fitxer a la unitat F. Si adapteu aquest procediment per al vostre propi ús, haureu de canviar la unitat i el camí.
Els programadors d'Excel sovint utilitzen un procediment Workbook_BeforeClose per netejar-se. Per exemple, si utilitzeu un procediment Workbook_Open per canviar alguns paràmetres quan obriu un llibre de treball (amagant la barra d'estat, per exemple), només és apropiat que torneu la configuració al seu estat original quan tanqueu el llibre de treball. Podeu realitzar aquesta neteja electrònica amb un procediment Workbook_BeforeClose.
Quan utilitzeu l'esdeveniment Workbook_BeforeClose, tingueu en compte això: si tanqueu l'Excel i s'ha canviat algun fitxer obert des de l'últim desat, Excel mostra el quadre de missatge habitual "Voleu desar els vostres canvis". Si feu clic al botó Cancel·la, es cancel·la tot el procés de tancament. Però l'esdeveniment Workbook_BeforeClose s'haurà executat de totes maneres.
L'esdeveniment BeforeSave, com el seu nom indica, s'activa abans que es desi un llibre de treball. Aquest esdeveniment es produeix quan trieu Fitxer → Desa o Fitxer → Desa com.
El procediment següent, que es col·loca a la finestra Codi d'un objecte ThisWorkbook, mostra l'esdeveniment BeforeSave. La rutina actualitza el valor d'una cel·la (cel·la A1 al Full1) cada vegada que es desa el llibre de treball. En altres paraules, la cel·la A1 serveix com a comptador per fer un seguiment del nombre de vegades que s'ha desat el fitxer.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
Com a booleà, cancel·la com a booleà)
Atenuació del comptador com a rang
Establir comptador = Fulls ("Full1"). Interval ("A1")
Counter.Value = Counter.Value + 1
End Sub
Tingueu en compte que el procediment Workbook_BeforeSave té dos arguments: SaveAsUI i Cancel. Per demostrar com funcionen aquests arguments, examineu la macro següent, que s'executa abans de desar el llibre de treball. Aquest procediment intenta evitar que l'usuari desi el llibre de treball amb un nom diferent. Si l'usuari tria Fitxer → Desa com, l'argument SaveAsUI és True.
Quan el codi s'executa, comprova el valor SaveAsUI. Si aquesta variable és True, el procediment mostra un missatge i estableix Cancel·la en True, que cancel·la l'operació Desa.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
Com a booleà, cancel·la com a booleà)
Si SaveAsUI Aleshores
MsgBox "No podeu desar una còpia d'aquest llibre de treball!"
Cancel·la = Veritable
Acaba si
End Sub
Tingueu en compte que aquest procediment no impedirà realment que ningú desi una còpia amb un nom diferent. Si algú realment vol fer-ho, només pot obrir el llibre de treball amb les macros desactivades. Quan les macros estan inhabilitades, els procediments del gestor d'esdeveniments també estan desactivats, la qual cosa té sentit perquè són, després de tot, macros.
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 […]
