Saltar al contenido

Procedimiento repetitivo

publicado

Hola a todos;

Tengo una duda que no se como resolver y me gustaría salir de dudas.

En un formulario he puesto a modo de prueba 18 labels y un botón que al ejecutarlo le quita el color de fondo a cada label.

Lo que no sé es si es posible mediante un ciclo que controle el nombre de cada label y así evitar repetir tantas veces el mismo procedimiento.

El procedimiento es el siguiente y lo pongo así porque no deja insertar código:

Option Explicit
Private Sub CommandButton1_Click()
'   ¿Hay alguna manera para mediante una variable o función para no repetir
'   "Me.Label_ 1 ---> 18" veces?

    Me.Label1.BackStyle = fmBackStyleTransparent
    Me.Label2.BackStyle = fmBackStyleTransparent
    Me.Label3.BackStyle = fmBackStyleTransparent
    Me.Label4.BackStyle = fmBackStyleTransparent
    Me.Label5.BackStyle = fmBackStyleTransparent
    Me.Label6.BackStyle = fmBackStyleTransparent
    Me.Label7.BackStyle = fmBackStyleTransparent
    Me.Label8.BackStyle = fmBackStyleTransparent
    Me.Label9.BackStyle = fmBackStyleTransparent
    Me.Label10.BackStyle = fmBackStyleTransparent
    Me.Label11.BackStyle = fmBackStyleTransparent
    Me.Label12.BackStyle = fmBackStyleTransparent
    Me.Label13.BackStyle = fmBackStyleTransparent
    Me.Label14.BackStyle = fmBackStyleTransparent
    Me.Label15.BackStyle = fmBackStyleTransparent
    Me.Label16.BackStyle = fmBackStyleTransparent
    Me.Label17.BackStyle = fmBackStyleTransparent
    Me.Label18.BackStyle = fmBackStyleTransparent

End Sub

Gracias y saludos.

 

Macro.xlsm

Featured Replies

publicado

Hola

Reemplaza tu código por este otro

Dim C As Control
For Each C In Me.Controls
    If TypeName(C) = "Label" Then C.BackStyle = fmBackStyleTransparent
Next

 

publicado
  • Autor

Gracias @DiegoPC

Estuve trabajando con el For Each pero no lo lograba. Imaginaba que ese era el camino pero me daba error en la composición del código. Muchas gracias. 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.