Taller 10º - Funciones de Búsqueda

Grado: 10

Fecha: Junio 14 de 2012

Asignatura: Tecnología e Informática.

Formación en Valor: Alegría.

Núcleo Integrador: Taller Funciones de Búsqueda

Objetivo: Aplicar las funciones de Búsqueda en Excel.

Función BuscarV: Nos permite buscar un valor en un rango de celdas y devolver el valor de la columna paralela al valor encontrado.

Ejemplo:

Desarrolle la siguiente hoja

Después de escribir todo los datos en la hoja:

En la celda B8 debe escribir el código que desea buscar, si escribe un código mayor que el número de la lista siempre mostrara el último.

Taller:

Teniendo en cuenta el ejemplo anterior, desarrolle una hoja de cálculo que contenga los siguientes datos:

Código Artículo, Nombre Artículo, Valor Unidad, Existencia.

Debe crear una función que permita mostrar con solo digitar el código del artículo, el nombre del artículo, Valor unidad y la existencia.

Nota: El ejemplo y el taller son la primera nota del tercer periodo. cada uno tiene un valor del 50% de la nota.

Fecha: Junio 8 de 2012

Asignatura: Tecnología e Informática

Formación en Valor: Alegría.

Núcleo Integrador: Eventos LostFocus y GotFocus.

Objetivo: Programar salida y entrada del Cursor.

Desarrollo:

GotFocus: es un evento que ocurre al momento de caer el cursor sobre un objeto.

LostFocus: es un evento que ocurre al momento de salir el cursor.

En la pantalla de Visual Basic 6.0 agregar al formulario 2 cuadros de textos.

Debe agregar 2 cuadros de textos y un Boton de Comando CommandButton 

El formulario queda de la siguiente forma:

Borrar la propiedad Text, para que los cuadros de textos queden en blanco.

Recuerde seleccionar el cuadro de texto (Con un Clic sobre el cuadro) para que se muestren las propiedades y Borrar la propiedad Text.

Muestre la ventana Formulario (Form)

Aparece el siguiente código

Private Sub Text1_Change()

End Sub

Debe cambiar al Evento LostFocus

Escriba el siguiente código, que valida que tenga información el cuadro de texto, si no tiene información no deja salir el cursor del cuadro de texto.

Private Sub Text1_LostFocus()

  If Text1 = "" Then

    MsgBox "Escriba un dato"

    Text1.SetFocus

  End If

End Sub

Luego debe realizar lo mismo Doble Clic sobre el botón de comando COMMAND1 y seleccionar el evento GotFocus y escribir el siguiente código:

Private Sub Command1_GotFocus()

If Text2 = "" Then

    MsgBox "Escriba un dato"

    Text1.SetFocus

  End If

End Sub

Ejecute el programa y pruebe, la salida del cursor sin escribir datos.