Formulario y rangos de usuario de Excel VBA

Buenas tardes, soy Miguel y durante el dia de hoy os traigo un nuevo post.

Puedes usar uno Control RefEdit dentro Excel VBA para obtener una clasificación de un usuario. O Formulario de usuario crearemos colores con el valor mínimo de alcance almacenado en el control RefEdit.

Formulario de usuario y rangos en Excel VBA

Para crear este formulario de usuario, realice los siguientes 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 botones de control RefEdit y el 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 RefEdit haciendo clic en RefEdit en la caja de herramientas. A continuación, puede arrastrar un control RefEdit al formulario de usuario.

Nota: Si su caja de herramientas no tiene un control RefEdit, establezca una referencia como control RefEdit. Haga clic en Herramientas, Referencias y marque Ref Edit Control.

4. Puede cambiar los nombres y subtítulos de los controles. Los nombres se utilizan en el código Excel VBA. Los subtítulos son los que aparecen en pantalla. Es una buena práctica cambiar el nombre de los controles, pero no es necesario aquí porque solo tenemos algunos controles en este ejemplo. Para cambiar el título de los formularios de usuario, la etiqueta y los botones de comando, 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

Aleta Sub

Ahora creemos el Sub UserForm_Initialize. Cuando utilice el método Show para el formulario de usuario, se ejecutará automáticamente.

6. Abra el Editor de Visual Basic.

7. En el Explorador de proyectos, haga clic con el botón secundario en UserForm1 y, a continuación, haga clic en Ver código.

8. Elija Formulario de usuario en la lista desplegable de la izquierda. Elija Inicializar en la lista desplegable de la derecha.

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

Privado Sub UserForm_Initialize ()

Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address

Aleta Sub

Explicación: La primera línea de código cambia el color de fuente de todas las celdas de la hoja 1 a negro. La segunda línea de código obtiene la dirección de la selección actual y se muestra en el control RefEdit.

Ahora hemos creado la primera parte del formulario de usuario. Aunque parece ordenado, no pasará nada cuando hagamos clic en los botones de comando en el formulario de usuario.

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

11. Haga doble clic en el botón Ir.

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

Privado Sub CommandButton1_Click ()

Oscuro addr Cómo Cuerda, rng, que Cómo Alcance, mínimo
Cómo Doble

addr = RefEdit1.Value
Colocar rng = Rango (dirección)
mínimo = WorksheetFunction.Min (rng)

Para Cada ese En rng
cell.Value = mínimo Entonces cell.Font.Color = vbRed
Entonces ese

Aleta Sub

Explicación: Primero, obtenemos la dirección del control RefEdit y la almacenamos en la variable String addr. Luego establecemos rng en el rango especificado en el control RefEdit. A continuación, usamos la función de la hoja de trabajo Min para encontrar el valor mínimo en el rango. Finalmente, coloreamos el valor mínimo usando un bucle.

13. Haga doble clic en el botón Cancelar.

14. Agregue la siguiente línea de código:

Privado Sub CommandButton2_Click ()

Descargarme

Aleta Sub

Explicación: Esta línea de código cierra el formulario de usuario cuando hace clic en el botón Cancelar.

15. Pruebe el formulario de usuario.

Resultado:

Forma de usuario y resultado de los rangos

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