Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abreviar conjunto d...
 
Notifications
Clear all

Abreviar conjunto de regras

 
2024 - VBA & Macros
Post Recente por kurkas 11 anos atrás
3 Posts
2 Usuários
0 Reactions
818 Visualizações
RSS
kurkas
 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
 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
kurkas
 kurkas
(@kurkas)
Posts: 85
Trusted Member
Topic starter
 

Olá,
Resolvi não aplicar.
Em todo o caso vou experimentar e guardar!
Obrigado

 
Postado : 20/01/2014 2:17 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico