Fóruns
Microsoft Excel - 2...
Formulários
Limpar textbox
 
Notifications
Clear all

Limpar textbox

 
Formulários
7 Posts
2 Usuários
0 Reactions
3,353 Visualizações
RSS
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Olá pessoal, to aqui novamente. Bom, pesquisei muito na net antes de vir aqui. Utilizei várias dicas e nenhuma deu certo.

Bom, tenho um userform para inserir alguns dados e depois serem salvos em determinada planilha. Até aí tudo bem, acontece que, neste form eu inseri algumas textbox (normal, já que devo informar os dados). Pois bem, nestes textbox eu coloquei uma mensagem para orientar no que deve ser feito. O que quero é que após abrir o form e clicar sobre a textbox, o que eu escrevi seja limpo.

Então, é isso. Caso tenha ficado confuso, na imagem em anexo fica fácil identificar o que quero.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 14/09/2012 12:18 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Vc deve inclui um evento (enter talvez) e "limpar" o valor do seu txt. Porem creio ser melhor utilizar apropriedade : ControlTipText

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

 
Postado : 14/09/2012 1:37 pm
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

em pensei em utilizar o ControlTipText, acontece que muitas vezes passa despercebido. Então, como seria esse evento? Eu não tenho idéia.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 14/09/2012 2:54 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Não sei se entendi mas, veja se te ajuda.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ""
End Sub

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

 
Postado : 14/09/2012 3:50 pm
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

opa... verei agora. Logo volto para dizer se funfou.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 14/09/2012 4:02 pm
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

alevba??? funfou belezinha cara. Uma questão? Tem como limpar textbox ao selecioná-lo, ao invés de ter que dar duplo clique?
De qualquer forma vou dar o tópico como finalizado e agradecer pela resposta.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 14/09/2012 4:11 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Não se esqueça da mãozinha!!!

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
End Sub

Att

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

 
Postado : 14/09/2012 4:31 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico