Páginas

miércoles, 27 de agosto de 2014

VBA Excel: Como realizar un proceso en todos los controles de una User Form

La propiedad Controls de la User Form es una coleccion de los controles, y se identifica cada tipo de control con la funcion TypeName():

Esta es mi forma:


Y En este ejemplo lo que hago es borrar el contenido de cada control:

'Loop through all control looking for the typename TextBoxes
For Each cname In expensesForm.Controls
    If TypeName(cname) = "TextBox" Then
        cname.Value = ""
    End If
Next cname

'now loop controls looking for checkBoxes with set value true

For Each cname In expensesForm.Controls
    If TypeName(cname) = "CheckBox" Then
        cname.Value = False
    End If
Next cname

End Sub


No hay comentarios:

Publicar un comentario