capacidades de Microsoft Excel se han mejorado en gran medida mediante el uso de Visual Basic Script , que le permite adaptar las herramientas por defecto de Excel a las necesidades específicas de su proyecto. Utilizando los formularios de usuario personalizados , con controles para recibir la entrada del usuario , le da un control total sobre los datos introducidos por el usuario de Excel. Entrando en el siguiente programa le mostrará cómo utilizar varios controls.Start Visual Basic el proyecto con la apertura de Excel y entrando en el IDE de Visual Basic ( entorno de desarrollo integrado). Introduzca el IDE con alt - F11. Coloque la Controls
ventana del diseñador de la IDE (Ver> Object) , arrastrar y soltar los controles del cuadro de herramientas a un formulario de usuario de la siguiente manera :
Coloque un control Frame en el formulario . En la ventana Propiedades, cambie su título a " Estado civil ". Con el control de imagen fija seleccionada, arrastre dos botones de opción dentro del control del marco. Arrastre dos etiquetas en el marco , cada uno a la izquierda de un botón de opción . Dale las etiquetas las leyendas " Casado ", y "Single ".
Arrastre un cuadro de lista por debajo de la de sus botones de opción marco y . Arrastre una etiqueta, que automáticamente debe ser nombrado Label3 , bajo el cuadro de lista. Escriba "respuesta a la pregunta de seguridad ", por su título . A la derecha de Label3 arrastrar un cuadro de texto. En el cuadro de texto arrastrar un botón y darle el título de " Enviar". Por último , arrastre una etiqueta , que debe ser nombrado Label4 , a la derecha del control de marco . Hacer su blanco pie de foto.
Las acciones que acaba de tomar creado una forma típica que recoge los datos de un nuevo cliente potencial. Ahora vamos a utilizar Visual Basic para transferir los datos del cliente a partir de los controles en una hoja de cálculo Excel.
Crear código para el formulario
doble clic en el formulario para entrar en el ventana de código y seleccione estos elementos a partir de los dos cuadros desplegables en la parte superior de la ventana de código : formulario de usuario, e inicializar . El IDE creará un espacio en blanco sub Initialize . Dentro de ese sub , introduzca el código , que llena el cuadro de lista al iniciar el programa :
ListBox1.List = Array ( "¿Qué eres tú película favorita ", " ¿ En qué ciudad naciste ", " ¿Qué es el sonido de una mano aplaudiendo ? " )
igual que hizo para subrutina Initialize del formulario de usuario , crear subrutinas en blanco para los eventos Click de los botones de opción " , utilizando cajas desplegables de la ventana de código. En los eventos Click de los dos OptionButton1 y 2 , escriba el siguiente código: " marital ". Ese es el nombre de una función que voy a escribir ahora :
En una sección en blanco de la ventana de código , crear la función civil :
Private Sub marital () ' Qué botón se selecciona si? OptionButton1.Value = True ThenLabel4.Caption = ElseLabel4.Caption "casado " = End " single" Si
End Sub
transferencia de los datos del formulario a la hoja de trabajo < br >
Crear la subrutina en blanco para el evento Click del botón de comando utilizando cajas desplegables de la ventana de código y escriba esto en dicha subrutina :
Range (" a1" ) = Label4.CaptionRange ( " b1 ") Este código = ListBox1.ValueRange ( " c1 ") = Textbox1.Value
transfiere los datos del formulario a la hoja de cálculo .
Escriba la última parte del código , una nueva subrutina que muestra el formulario :
Public Sub ShowForm () UserForm1.Show
End Sub
Volver a Excel (Alt -F11 ) y ejecutar la macro ( desarrollador> macros , ShowForm ) . Introduzca los datos en el formulario, pulse el botón , y ver la hoja de recibir los valores del formulario.
