Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Fomatar TextBox Eventos KeyPress e Change
Re: Fomatar TextBox Eventos KeyPress e Change
poderia me ajudar nesse formulario tex 4 e 5 gostaria de deixar em data mas so fica em muemro
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem
codigo = TextBox1.Text
Sheets("Plan1").Select
Set intervalo = Range("A2:E200")
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox1.SetFocus
Exit Sub
trataErro:
texto = "Produto não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub txtData4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
txtData4.MaxLength = 8
'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub txtData4_Change()
'Formata : dd/mm/aa
If Len(txtData) = 2 Or Len(txtData) = 5 Then
txtData4.Text = txtData.Text & "/"
SendKeys "{End}", True
End If
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem
codigo = TextBox1.Text
Sheets("Plan1").Select
Set intervalo = Range("A2:E200")
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox1.SetFocus
Exit Sub
trataErro:
texto = "Produto não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub txtData4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
txtData4.MaxLength = 8
'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub txtData4_Change()
'Formata : dd/mm/aa
If Len(txtData) = 2 Or Len(txtData) = 5 Then
txtData4.Text = txtData.Text & "/"
SendKeys "{End}", True
End If
End Sub
Re: Fomatar TextBox Eventos KeyPress e Change
Me registrei no seu site só pra agradecer.
O tópico me ajudou muito. Muito obrigado!
O tópico me ajudou muito. Muito obrigado!
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Ter Out 18, 2016 7:49 pm
Re: Fomatar TextBox Eventos KeyPress e Change
Boa noite, ressussitando o tópico..
Muito bom os exemplos, estou utilizando um. Porém ele está desligando o numLock após digitar o 3º número...
Alguém poderia me ajudar?!
Segue o código:
[code]
Private Sub item4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
item4.MaxLength = 10 ' limita caracteres
Select Case KeyAscii
Case 8, 48 To 57 ' só libera backspace e números
If Len(item4) = 2 Or Len(item4) = 5 Then
item4.Text = item4.Text & "/"
SendKeys "{END}", True
End If
Case Else
KeyAscii = 0
End Select
End Sub
[/code]
Desde já agradeço
Muito bom os exemplos, estou utilizando um. Porém ele está desligando o numLock após digitar o 3º número...
Alguém poderia me ajudar?!
Segue o código:
[code]
Private Sub item4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
item4.MaxLength = 10 ' limita caracteres
Select Case KeyAscii
Case 8, 48 To 57 ' só libera backspace e números
If Len(item4) = 2 Or Len(item4) = 5 Then
item4.Text = item4.Text & "/"
SendKeys "{END}", True
End If
Case Else
KeyAscii = 0
End Select
End Sub
[/code]
Desde já agradeço
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Qua Jan 28, 2015 5:30 pm
Re: Fomatar TextBox Eventos KeyPress e Change
Bom dia a todos!
Primeiramente, gostaria de agradecer pela dica para formatação em data. Ajudou-me bastante em um CRM que estou produzindo. Entretanto, estou tendo problemas com datas que começam com 0 (de 1 a 9). Essas datas aparecem como mês e não como dia. Como faço pra corrigir isso?
Primeiramente, gostaria de agradecer pela dica para formatação em data. Ajudou-me bastante em um CRM que estou produzindo. Entretanto, estou tendo problemas com datas que começam com 0 (de 1 a 9). Essas datas aparecem como mês e não como dia. Como faço pra corrigir isso?
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Fomatar TextBox Eventos KeyPress e Change
Problema e na formatação do campo, ou quando o salva na planilha.
Melhor abrir um novo tópico expondo com detalhes sua duvida/necessidade, e anexando um modelo de seu arquivo/planilha
Melhor abrir um novo tópico expondo com detalhes sua duvida/necessidade, e anexando um modelo de seu arquivo/planilha