Abreviar conjunto de regras

2024 - VBA & Macros

Post Recente por kurkas 11 anos atrás

3 Posts

2 Usuários

0 Reactions

826 Visualizações

RSS

kurkas

(@kurkas)

Posts: 85

Trusted Member

Topic starter

Olá,
Tenho um userform com uma página para cada mês do ano, ou seja 12 páginas.
Por cada página tenho 2 text box, ora, tenho 24 textbox's ao todo.
Preciso formatá-los assim:
Me.TextBox1.Text = Format(Me.TextBox1.Text, "#,##")

Tenho de fazer esta regra para todos ou há maneira de fazer uma regra para todos?
Obrigado

Postado : 12/01/2014 11:03 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Tente....algo

Dim Ctrl As Control 
 
For Each ctrl In UserForm1.Controls 
    If TypeName(ctrl) = "TextBox" Then 
        ctrl =  FormatCurrency(tbTextbox, 2) 
    End If 
Next ctrl

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/01/2014 5:04 pm