Formularios en Visual Basic para Aplicaciones

...

Propiedades:

Enabled = Habilita o deshabilita un determinado control, ejemplo txtNum1.Enabled=True, queda habilitado el control txtNum1.

Empty: deja en “ “ el contenido del cuadro de texto.

Max = máximo valor que puede tomar una botón de número o barra de desplazamiento.

Min = mínimo valor que puede tomar una botón de número o barra de desplazamiento.

Operaciones con filas y columnas

- Insertar Fila: Selection.EntireRow.Insert

- Eliminar Fila: Selection.EntireRow.Delete

- Insertar Columna: Selection.EntireColumn.Insert

- Eliminar Columna: Selection.EntireColumn.Delete

- Selecciona el rango especificado: Range(“celda”).Select

- Activa una celda determinada, RiCj; ejemplo R1C1, Row 1, column 1: ActiveCell.FormulaRiCj = control_del_que_captura_el_valor

Paso 6: probar que funcione. Para ello procedemos a presionar el botón Ejecutar Sub/UserForm

[pic 12] en la barra de herramienta o presionamos F5. Al hacer esto deberá realizar la siguiente secuencia:

[pic 13]

Paso 7: Ahora debemos crear un botón desde la hoja para llamar al formulario. Dibujamos el botón. Al hacer esto aparecerá la siguiente ventana:

[pic 14]

[pic 15]

Presionamos Nuevo al hacer esto debemos pegar el siguiente código:

Sub CALCULAR()

Load UserForm1

UserForm1.Show

End Sub

Guardamos los cambios y salimos del VB. Damos clic derecho sobre el botón y presionamos Asignar Macro como lo muestra la siguiente figura:

[pic 16]

Seleccionamos la Macro Calcular que hemos creado anteriormente

[pic 17]

Para cambiar el nombre damos clic derecho-> Modificar Texto como se muestra en la siguiente figura:

[pic 18]

Y quedara como se muestra a continuación:

[pic 19]

Ejercicio 2

- Utilice los datos que se encuentran en el documento de Word “Datos Ejercicio2”.

- Diseñe el formulario, para que quede como el que se le muestra a continuación:

[pic 20]

- Recuerda asignarle un nombre al control y al texto que se muestra (en el caso que corresponda).

Control

Evento

Pasos en el Código

Btnbuscar

Btnbuscar_click()

- Define una variable llamada Res.

- Esta variable almacenará el valor buscado mediante la función VLookup

- Utilizando estructura if – else – end if

- Si resultado (Res) es falso (no se encontró el valor), en la caja de texto del nombre aparecerá “NO SE ENCONTRÓ EL CARNET” y la caja de texto del promedio estará vacía.

- Si existe coincidencia; en la caja de texto del nombre se almacenará el valor correspondiente a la columna 2, usando la función VLookup. Se concatenará con + “ “ + el resultado de la búsqueda del apellido, también utilizando VLookup.

- Y en la caja de texto del promedio se almacenará el valor correspondiente a la columna 4, usando la función VLookup.

btncerrar

Btncerrar_click()

Cierra la ventana

4.- Definición de Variables

Siendo Res la variable

Dim Res As Variant

5.- Ahora procederemos a realizar el botón para llamarlo desde la Hoja. Realizamos los mismos pasos que el item anterior y le pegamos este código:

Sub abrir()

Load UserForm1

UserForm1.Show

End Sub

[pic 21]

[pic 22]