EXCEL
INTENSIVO
EXPOSITOR:
DANIEL LOZA SANTA CRUZ
CORREOS:
dlozas2016@[Link]
dlozas2011@[Link]
dlozas@[Link]
EXPERIENCIA EN DOCENCIA
FUNDAMENTOS DE PROGRAMCIÓN
LENGUAJE DE PROGRAMACIÓN
DISEÑO DE BASE DE DATOS
BASE DE DATOS CON SQL SERVER Y ORACLE
PROGRAMACIÓN WEB CON BASE DE DATOS
APLICACIONES MOVILES CON ANDROID
APLICACIONES JAVA Y JAVA WEB
TEMA
INGRESO DE DATOS SIN
DUPLICADOS
Abrir el archivo de Excel :
04INGRESOSINDUPLICADOS
Se tienen los siguientes datos
1.- Los Códigos deben ser únicos, al momento de ingresar los
datos, desde el formulario
2.- Si en el formulario, se ingresa otro registro con el código: ALU-
002, debe que enviar un mensaje de error, que el código ya existe.
1.- Clic en la ficha Programador
3.- Clic en el icono: Guardar
2.- Clic en el icono: Visual Basic
4.- En la hoja de calculo, clic en la ficha
Archivo / Guardar Como / Clic en Examinar
6.- Clic en la opción:
Libro de Excel habilitado para macros
5.- Clic en la flecha abajo
1.- Nombre del archivo
2.- Clic en el botón: Guardar
3.- En la carpeta de trabajo,
se muestra los dos archivos
4.- Clic derecho en el proyecto
04INGRESOSINDUPLICADOS
5.- Clic en la opción: Insertar
6.- Clic en la opción: Módulo
Módulo Agregado al
proyecto
1.- En el modulo, se crea una función FilaExistente, que va a tener dos parámetros
2.- El primer parámetro, es el código, que se va a verificar si existe o
no
3.- El segundo parámetro es el rango de tipo String 4.- La función retorna un valor,
de la fila del código existente,
en caso contrario retorna cero
5.- Se declara una variable xnumfila de tipo Long
6.- El valor inicial de la variable xnumfila=0,
significa que no encontró ningún código duplicado
7.- Se utiliza el rango de la hoja1, por
medio del valor del parámetro vrango
1.- Por medio del set, se declara una variable, en la cual,
permita buscar al código existente por medio del método Find
2.- El método Find, tiene dos parámetros, el primero
es el código a buscar (vcodigo), el segundo el valor
del código (Lookin=xlValues)
1.- Se utiliza la sentencia condicional If,
con la condición si la variable c, no esta
vacía, esto significa que dicha variable
tiene un dato (El código del alumno)
2.- Si la variable c tiene dato, entonces por
medio del Row, retorna el número de la
fila, donde se encuentra el código existente
y se almacena hacia la variable xnumfila
1.- Si el valor es cero, significa que no hay código repetitivo o existente
2.- Si el código existe, entonces con Row, se captura el
numero de la fila de dicho código y se almacena en xnumfila
3.- Se almacena el valor de la variable xnumfila hacia la
función: FilaExistente.
4.- Si el valor de la función FilaExistente retorna cero, es
porque no hay código repetitivo, en caso contrario si su valor
es diferente a cero, eso significa que contiene el valor de la
fila de dicho código existente.
1.- Se crea una función: RegistrarAlumno, la cual contiene los parámetros: vcodigo, vpaterno, vmaterno, vnombres, vedad, vsexo,
vdireccion, vdistrito
2.- Se declaran 3 variables ulltimafila, ultimoregistro, existe de tipo
Long
3.- Se declara la variable valorregistro de tipo String
4.- El valor inicial de la variable
valorregistro=“NO”
5.- El valor de la ultima fila, es el ultimo valor de la columna A
7.- Con .End(xlUP).Row,
se posiciona en la fila que
contenga un dato (Fila 2)
6.- Con Range, se une la columna A y con [Link], se cuenta la cantidad de filas
1.- Si el valor de la variable ultimafila<3,
entonces el valor de la variable ultimoregistro=3
2.- En Caso contrario pasa al siguiente registro
3.- Se utiliza a la variable existe, la cual contiene a la función FilaExistente, tiene dos parámetros: vcodigo
y el rango que comienza desde A3 hasta A4, A5, A6, todo depende del valor de la variable ultimafila
4.- Los valores pasan hacia los parámetros de la función FilaExistente