Macros pdf
- 1. TEMA: CREACIÓN DE MACROS EN LOS PARÁMETROS DE RIEGO. Objetivo: automatizar nuestro hoja de Excel con el uso de macros en Excel 2016, con los parámetros de riego para que podemos ejecutar cuando sea necesario y cuantas veces lo deseemos. INTRODUCCIÓN: Las macros de Excel nos permiten automatizar tareas que realizamos cotidianamente de manera que podamos ser más eficientes en nuestro trabajo. Una macro no es más que una serie de comandos o instrucciones que permanecen almacenados dentro de Excel y que podemos ejecutar cuando sea necesario y cuantas veces lo deseemos. MARCO TEÓRICO Es un conjunto de comandos que se almacena en un ligar especial de Excel de manera que siempre están disponibles cuando los necesitas ejecutar. Una macro no es más que una serie de comandos o inscritrucciones que permanecen almacenados dentro de Excel y que podemos ejecutar cuando sea necesario y cuantas veces lo deseemos Ventajas: ➢ Realización de programas a medida. ➢ Rápido y fácil manejo de los programas desarrollados bajo entorno Excel. PROCEDIMIENTOS Abrir una hoja Excel nueva cualquiera , luego activar el programador del Excel.
- 2. Iniciar el visual activar modulos. Luego uno a uno iremos insertando comandos.
- 3. Comprobar si esta bien los comandos pulsando clic en el icono de color azul Presentación final de la macro Insertar datos haciendo clic en DATOS DE PARAMETRO DE RIEGO, JER, IR, TR, VIB sucesivamente.
- 4. Luego de poner los Datos.
- 5. Hacer clic en calcular . Por ultimo dar clic en limpiar y tendremos las celdas limpias CONCLUSIONES: Como parte del objetivo en este trabajo logramos automatizar nuestra hoja Excel con los parámetros de riego, tenemos 3 ventanas de control estas son: Ventana de PARAMETROS DE RIEGO, CALCULAR Y LIMPIAR.
- 6. ANEXO: Base de Datos 'parametros 'creada por Nahs R.L. Sub parametros() Fecha_proyecto: mensaje = "ingrese la fecha del proyecto" titulo = "fecha" defecto = Date fecha = InputBox(mensaje, titulo, defecto) Mod_riego: Range("D9").Select mensaje = "ingrese modulo de riego" titulo = "Parametros de riego" defecto = 0 valor_Mr = InputBox(mensaje, titulo, defecto) If valor_Mr = "0" Then GoTo Mod_riego ActiveCell.FormulaR1C1 = valor_Mr JER: Range("D10").Select mensaje = "Ingrese Jornada efectiva de riego(JER)" titulo = "Parametros de riego" defecto = 0 valor_JER = InputBox(mensaje, titulo, defecto) If valor_JER = "0" Then GoTo Mod_riego ActiveCell.FormulaR1C1 = valor_JER Intervalo_de_riego: Range("D11").Select mensaje = "ingrese Intervalo de riego (IT)" titulo = "Parametros de riego" defecto = 0 valor_IT = InputBox(mensaje, titulo, defecto) If valor_IT = "0" Then GoTo Mod_riego ActiveCell.FormulaR1C1 = valor_IT Tiempo_de_reigo: Range("D12").Select mensaje = "ingrese tiempo de riego (TR)" titulo = "Parametros de riego" defecto = 0 valor_TR = InputBox(mensaje, titulo, defecto) If valor_TR = "0" Then GoTo Mod_riego ActiveCell.FormulaR1C1 = valor_TR End Sub