1
clic el botón de la pestaña " desarrolladores" "Visual Basic " para entrar en el entorno de programación VBA , haga clic en opción " formulario de usuario " del menú " Insertar" para crear un nuevo formulario en el que colocar los controles . Si la pestaña de " desarrolladores" no figura entre las opciones de menú de Excel , es posible que deba activar la pantalla de opciones de Excel.
2 Haga clic en el control " botón" en la caja de herramientas , a continuación, arrastre en el formulario de usuario para crear un botón. Haga clic en el control " OptionButton " de la caja de herramientas , a continuación, arrastre en el formulario de usuario para crear un botón de opción . Haga clic en este botón y haga clic en "Propiedades" para mostrar una lista de atributos para el control.
3
Haga clic en la fila "Enabled " de la ventana " Propiedades" , a continuación, escriba "Falso " para indicar que el botón de opción no es capaz de procesar la entrada . Tenga en cuenta que el botón de comando , que creó en el paso 2 , se activa de forma predeterminada.
4 Haga clic en el control " Frame " en la caja de herramientas , a continuación, arrastre en el formulario de usuario. Haga clic en el botón de control que creó en el paso 1, a continuación, pulse la tecla " Control" y " X " a la vez de reducir este control en el portapapeles .
5
Haga clic en el control " Frame " y pulse "Control" y " V " al mismo tiempo para pegar el botón en el interior del marco. Repita el cortar y pegar con el botón de opción para pegarlo en el marco también. Mediante la colocación de los dos controles en el marco, que ha hecho un grupo que contiene ambos controles. Ahora vamos a escribir código que comprueba una propiedad de cada control.
6
doble clic en el UserForm para mostrar la ventana de programación , a continuación, pegue el siguiente programa en la ventana. Este programa se repite a través de cada control en el marco, la lectura de la propiedad " Enabled" se establece en el paso 3 , e imprimir el valor de esa propiedad.
Private Sub UserForm_Click ()
Dim ct Como control de
s As String Dim
For Each ct En Frame1.Controls
Si ct.Enabled = True Luego
s = ct.Name & " está habilitado. "
demás
s = ct.Name y " está desactivada . "
End If
MsgBox s
Siguiente
End Sub
7
clic comando "Ejecutar " del menú " Ejecutar" para mostrar el formulario de usuario, haga clic en cualquier parte del formulario que no tiene un control. El programa se ejecutará , mostrando el mensaje sobre la propiedad " Enabled" descrito en el paso 3 .