Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Listar os objetos d...
 
Notifications
Clear all

Listar os objetos do formulário para editar

 
2024 - VBA & Macros
Post Recente por Osvaldomp 8 anos atrás
3 Posts
3 Usuários
0 Reactions
1,132 Visualizações
RSS
 valdecirrk
(@valdecirrk)
Posts: 230
Reputable Member
Topic starter
 

boa tarde

tenho vários textbox e combobox, e quero fazer uma macro para limpar todos.
como são muitos teria como listar todos os objetos em um bloco de notas, editar e colar no modulo novamente?

tipo em vez de ter que ficar digitando: txtNome.value=empty, txtdata.value=empty........

queria listar tudo, txtnome, txtdata, txtcpf...... acharia mais rápido do que ter que escrever todos novamente.

 
Postado : 29/03/2017 11:19 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Ate onde sei esse trabalho é manual mesmo.

 
Postado : 29/03/2017 12:13 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente o código abaixo, considerei que os controles estão em um Form.

Private Sub CommandButton1_Click()
 Dim TC As Control
  For Each TC In Me.Controls
   If TypeName(TC) = "TextBox" Or TypeName(TC) = "ComboBox" Then
    TC.Text = ""
   End If
  Next TC
End Sub
 
Postado : 29/03/2017 12:18 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico