|
 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esses procedimentos (macros) do aplicativo Microsoft Excel VBA(Visual Basic Application), limpa todos objetos Textboxes de um determinado objeto Userform, observe que poderá também usar o código, fazer um macro para também limpar os objetos textboxes quando chamados.
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
Private Sub CommandButton1_Click()
Dim T As Control
TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next Z
End Sub
Private Sub CommandButton2_Click()
limpar_todos_textoboxes
MsgBox ("textbox foram limpados com macros"), vbInformation, "Saberexcel"
TextBox1.SetFocus
End Sub
Private Sub Label1_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
veja o macro que voce poderá fazer para chamar a partir de um módulo comum
para diversos userforms.
Sub limpar_todos_textoboxes()
Dim T As Control
UserForm1.TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next T
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|