Colección de controles de Excel VBA: macros simples de Excel

Buenas noches, por aquí Miguel y al día de hoy os traigo un nuevo post.

Al crear formularios de usuario en Excel VBA, puedes usar el Colección de controles para hacer circular fácilmente los controles y establecer una propiedad de cada control en un valor específico.

El formulario de usuario que vamos a crear se ve así:

Colección de controles en Excel VBA

Para crear este formulario de usuario, siga estos pasos:

1. Abra el Editor de Visual Basic. Si el Explorador de proyectos no está visible, haga clic en Ver, Explorador de proyectos.

2. Haga clic en Insertar, formulario de usuario. Si la caja de herramientas no aparece automáticamente, haga clic en Ver, caja de herramientas. Su pantalla debe configurarse de la siguiente manera.

Visualización de la pantalla del formulario de usuario en Excel VBA

3. Agregue la etiqueta, los cuadros de texto (el primero en la parte superior, el segundo debajo del primero, etc.) y el botón de comando. Una vez completado, el resultado debe ser coherente con la imagen del formulario de usuario que se muestra arriba. Por ejemplo, cree un control de cuadro de texto haciendo clic en TextBox en el cuadro de herramientas. A continuación, puede arrastrar un cuadro de texto al formulario de usuario.

4. Para cambiar el título, la etiqueta y el botón de comando del formulario de usuario, haga clic en Ver, Ventana Propiedades y haga clic en cada control.

5. Para mostrar el formulario de usuario, coloque un botón de comando en su hoja de trabajo y agregue la siguiente línea de código:

Privado Sub CommandButton1_Click ()

UserForm1.Show vbModeless

Aleta Sub

Explicación: Al agregar vbModeless, puede usar el formulario de usuario y trabajar en su hoja de trabajo al mismo tiempo.

Ahora hemos creado la primera parte del formulario de usuario. Aunque parece que ya está ordenado, no pasará nada cuando hagamos clic en el botón de comando en el formulario de usuario.

6. Abra el Editor de Visual Basic.

7. En el Explorador de proyectos, haga doble clic en UserForm1.

8. Haga doble clic en el botón de comando.

9. Agregue las siguientes líneas de código:

Privado Sub CommandButton1_Click ()

Oscuro me Cómo Entero

Para i = 1 Para 10
Controles ("TextBox" & i) .Value = Celdas (i + 1, 1) .Value
Entonces me

Aleta Sub

Explicación: Con unas pocas líneas de código, podemos completar los cuadros de texto con los números de teléfono en la hoja. Usamos el operador & para concatenar (unir) los elementos. Estas líneas de código funcionan porque no cambiamos los nombres de los controles del cuadro de texto (TextBox1, TextBox2, TextBox3, etc.). Para cambiar el nombre de los controles, haga clic en Ver, Ventana Propiedades y haga clic en cada control.

Resultado al hacer clic en el botón de comando de la hoja:

Resultado de la colección de controles

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info