Notifications
Clear all

Todas TextBoxs em Maiúsculas com Excessão

3 Posts
2 Usuários
0 Reactions
929 Visualizações
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Bom dia Pessoal!!

Tenho 24 TextBoxs

Como deixá-las todas em Maiúsculas de uma só vez, mas apenas as TextBoxs 5, 7 e 9 em Minúsculas??
A textBox 3, preciso que apenas as Iniciais fiquem em Maiúsculas.

Como fazer??
Grato a Todos.

 
Postado : 17/07/2015 7:33 am
(@issamu)
Posts: 0
New Member
 

Uma sugestão:

Crie um procedimento no módulo do userform e chame esse procedimento no evento change de cada textbox.

Private Sub TextBox1_Change()
Textbox_texto
End Sub

Private Sub TextBox2_Change()
Textbox_texto
End Sub
Private Sub TextBox3_Change()
Textbox_texto
End Sub
Private Sub TextBox4_Change()
Textbox_texto
End Sub
Private Sub TextBox5_Change()
Textbox_texto
End Sub

Private Sub Textbox_texto()

Select Case CInt(Replace(ActiveControl.Name, "TextBox", ""))

Case 1, 2, 4, 6, 8, 10 To 24
    ActiveControl.Text = UCase(ActiveControl.Text)
Case 5, 7, 9
    ActiveControl.Text = LCase(ActiveControl.Text)
Case 3
    ActiveControl.Text = WorksheetFunction.Proper(ActiveControl.Text)
Case Else
End Select
End Sub

No código acima só fiz até o TextBox5. No seu caso tem que criar os demais procedimentos no evento de cada evento change dos textboxs.

Se não quiser usar assim, talvez o artigo do link abaixo possa ser adaptado para sua necessidade.

http://stackoverflow.com/questions/5940596/excel-vba-userform-execute-sub-when-something-changes
 
Postado : 17/07/2015 8:54 am
(@jcgmc)
Posts: 0
New Member
Topic starter
 

Vlw Issamu!!
Era isso que eu queria evitar. Fazer a msm coisa pra todas as TextBoxs.
Mas obrigado assim msm...
Abraço.

 
Postado : 17/07/2015 1:57 pm