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
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.