Windows

Solo disponible en BuenasTareas
  • Páginas : 37 (9167 palabras )
  • Descarga(s) : 0
  • Publicado : 28 de abril de 2010
Leer documento completo
Vista previa del texto
Auto_ Open() y Auto_ Close() Existe una macro de autoarr a n q u e que se ejecuta cuando se abr e el libro. Se llama auto_open(). Y existe otra que se ejecuta justo antes de cerrar el libro que se llama auto_close(). Sub Auto_Open() Dim hora As Double Dim salud o As String hora = (Now - Int(Now)) * 24 Select Case hora Case 6 To 14 salud o = "Buenos días" Case 14 To 21 salud o = "Buenas tardes"Case Else salud o = "Buenas noches" End Select MsgBox saludo & " Amo" End Sub Equivalente a auto_ope n existe otra macro Workbook_Open , pero ésta ha de ser guarda d a no en un mód ulo nor m al, sino en ThisWorkboo k. Pruebe lo siguiente: El siguiente procedimien to per mite abrir autom ática m e n t e el libro Balance.xls al abrir el libro Infor me.xls. El procedi mie nto ha de estar enThisWorkbook del libro Infor me.xls. Sub Workbook_Open() 'Apert u r a de libro Balance Workbooks.Open Filename: ="C:/Cont a bilida d /Bala n ce.xls" 'Activación del libro Informe Windows("Infor me.xls").Activate End Sub

Saludo al arrancar Crear un libro Personal.xls como se ha indicado anterior m e n t e con la macro de autoar r a n q u e siguiente: 2 Sub Auto_open() MsgBox ("Que tengas un buen día") EndSub Esta macro creada en el libro Personal.xls hace que al iniciar Excel nos salga un mens aje saludá n d o n o s. Nombrar Hoja desde una celda Esta macro per mite asignar el nombre que ponga m o s en la celda A1 como nombre de la Hoja actual. 3 Sub NombreHoja() ActiveSheet.Name = Range("A1").Value End Sub Exportar un módulo
1. Pase al editor de visual basic y active el módulo a exportar. 2.Seleccione Archivo / Exportar archivo . Aparece un cuadro de diálogo. 3. En cuadro de edición Nombre de Archivo , teclee el nombre para el archivo donde se guardará el módulo, por ejem plo "General.Bas", observe que .BAS es la extensión de estos archivos. 4. Pulse sobre el botón Guardar .

4

Importar un módulo
1. Active el editor Visual Basic. 2. Seleccione Archivo / Importar Archivo . Apareceun cuadro de diálogo. 3. Seleccione en la lista Buscar en: la carpeta donde tiene ubicado el archivo a importar . 4. Una vez localizada la carpeta, seleccione el archivo a importar (General.Bas en el ejem plo) y pulse sobre Abrir.

5

La cláusula Private
Puede antepo ne r la cláusula private a todos los procedimient o s y funciones que sean llamados sólo desde el mismo módulo, es una forma deahorrar memoria y hacer que el progra ma corra un poco más rápido. Si necesita llamar un procedi mient o o función desde otro módulo, nunca debe precederlo por la cláusula private, recuerde que esta cláusula restringe el ámbito de utilización de un procedimient o a su propio módulo.

6

7

Inspección rápida de variables Cuando ejecuta un progra m a paso a paso, si sitúa el puntero de
ratónsobre una variable, se muest ra el valor de la mis m a.

Modificar el valor de una variable en tiempo de ejecución 8
A veces resulta interesant e cambiar el valor de alguna variable cuando se está ejecutand o el progra m a, para ver que ocurre si coge deter mina d o s valores, para terminar un bucle, etc. Para ello agregue a la ventana de inspección la variable que desee cambiar, cambie suvalor sobre la propia ventana de inspección y continúe la ejecución del program a.

9

10

11

Ventana Inmediato Puedes inspeccionar variables desde esta ventana antepo nie n d o la palabr a print antes de la variable, o el signo ?. Debug.Print Esta expresión permite efectuar la depur ación del progra m a de forma más cómoda. Se introd uce en un progra m a antecedien d o a una variable quese desea compr o b a r en la ventana Inmediato. De esta forma conseguire m os ver todos los valores que toma la variable cada vez que el progra m a pasa por este coman d o. Se ven en la Ventana Inmediato [Ctr+G]. . Ejemplo: Sub Dos_a_la_diez() Dim i As Integer Dim t As Integer t = 1 For i = 1 To 10 t = t *2 Debug.Print "Dos a la " & i & " = " & t Next MsgBox t End Sub Después de efectua da la...
tracking img