Este proyecto resume los números en un rango por encima de la celda activa , entrando en la suma en la celda activa. Para iniciar este proyecto , cree los datos para ello - los números que se suman. En una hoja de cálculo de Excel , escriba los cinco números en una columna. Seleccione la primera celda vacía debajo de la columna de números .
Ahora , cree el programa de Visual Basic que sumar esos números.
Introduzca el código en el entorno de desarrollo
Ingrese el entorno de desarrollo integrado de Visual Basic ( IDE ) presionando Alt- F11. En la ventana de código , entrar en esta función :
Sub Macro1 ()
Dim s Como StringDim o Como RangeDim p como gama
Set o = ActiveCell.Offset ( -1 ) Set p = o.End ( xlUp ) Set q = Range ( o, p )
s = " = Media (" & q.Address & ") "
ActiveCell.Formula = s
End Sub
código del programa es equivalente a introducir manualmente el siguiente texto de la celda seleccionada anteriormente: "= suma ( Ejecute la macro al volver a la hoja de cálculo Excel , la selección de Desarrollador > macros , seleccione Macro1 y presionar el botón Ejecutar. La macro resume la columna de números , que entra en el resultado en la celda actualmente activado . ( Si no ve la ficha Programador , exponerlo al seleccionar el botón de Office en la esquina superior izquierda de Excel , seleccione Opciones de Excel , y " Mostrar ficha Programador en la cinta . " ) el segundo proyecto se basa en la primera , permitiendo al usuario de su programa una selección de funciones Vuelva a introducir el IDE de Visual Basic y seleccione. Insertar> UserForm . Arrastre los siguientes controles al formulario desde el Cuadro de herramientas : un cuadro de lista y un botón. Presione F7 para volver a la vista de código , y elija UserForm en el cuadro desplegable de la izquierda en la parte superior de la ventana de código, e inicializar desde el cuadro desplegable de la derecha . El IDE crea la función Sub UserForm_Initialize (). En esa función , introduzca el código , que agrega al cuadro de lista los nombres de las funciones que el usuario seleccione entre: ListBox1.AddItem " suma " ListBox1.AddItem "promedio" Utilice el cajas izquierda y derecha desplegable de la ventana de código , una vez más , la elección de CommandButton1 desde la izquierda desplegable , y haga clic en el cuadro desplegable de la derecha . El IDE crea la función vacía CommandButton1_Click (). Escriba el siguiente código en esa función , que se llama el original macro1 que escribió con la función que el usuario elige de la lista desplegable : Macro1 ( ListBox1.Value ) Modificar Macro1 a aceptar una argumento: Haga clic derecho en el texto " Macro1 " y seleccione Definición de navegar a la definición Macro1 . Cambie la línea "Sub Macro1 () " por " Sub Macro1 ( función As String ) " Ahora que ha agregado el argumento , modificar Macro1 usarlo: cambiar el estado s = " = Media ( " y q.Address y ") " para que lea como sigue: s =" = "& fun &" ("& q.Address &") " Introduce esta nueva funcionalidad por debajo macro1 : Sub macro2 () UserForm1.ShowEnd Sub Volver a Excel (alt -F11 ) y colocar el cursor debajo de la columna de números . Mostrar el formulario de usuario mediante la selección de Desarrollador > Macros y seleccionando Macro2 y Run . Cuando aparezca el formulario, elegir entre la suma o la función normal y pulse el botón. El programa entrará en la fórmula en la hoja de trabajo . La fórmula resume los datos de la columna sobre la celda activa .
proyecto Dos: Utilice un formulario
Escribe el función que carga el formulario