Notifications
Clear all

[Resolvido] Autocompletar a data em Textbox


NERI S
(@neri-s)
Estimable Member Registered
Entrou: 5 anos atrás
Posts: 209
Topic starter  

Alguém tem um comando que autocompletar a data em Textbox. Exemplo: Digito "04/05" e ele automaticamente coloca "04/05/2021"

 


ResponderCitar (Quote)
Anderson
(@anderson)
Estimable Member Registered
Entrou: 1 ano atrás
Posts: 178
 

https://youtu.be/DbtB8bWJkM8

 

Private Sub TextBox1_Change()
If Len(Me.TextBox1.Text) = 5 Then

Me.TextBox1.Text = Me.TextBox1.Text & "/" & Year(Date)


End If


End Sub
Este post foi modificado 2 semanas atrás por Anderson

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.


NERI S curtiu
ResponderCitar (Quote)
GilbertoL
(@gilbertol)
Active Member Registered
Entrou: 7 anos atrás
Posts: 14
 

Data e hora atualizado a cada dígito inserido!

 


Private Sub txtData_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.txtData.MaxLength = 10 ' Quantidade máxima de caracteres no textbox Data
Select Case KeyAscii
Case 8, 48 To 57
If Len(txtData) = 2 Then txtData = txtData + "/"
If Len(txtData) = 5 Then txtData = txtData + "/2021"
If Len(txtData) = 10 Then txtHora.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub

Private Sub txtData_Change()
If Len(txtData) = 5 Then txtData = txtData + "/2021"
If Len(txtData) = 10 Then txtHora.SetFocus
End Sub

Private Sub txtHora_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.txtHora.MaxLength = 8 ' Quantidade máxima de caracteres no textbox Data
Select Case KeyAscii '08h20min
Case 8, 48 To 57
If Len(txtHora) = 2 Then txtHora = txtHora + "h"
If Len(txtHora) = 5 Then txtHora = txtHora
If Len(txtHora) = 8 Then cmdPositiva.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub txtHora_Change()
If Len(txtHora) = 2 Then txtHora = txtHora + "h"
If Len(txtHora) = 5 Then txtHora = txtHora
If Len(txtHora) = 5 Then cmdPositiva.SetFocus
End Sub
Este post foi modificado 7 dias atrás por GilbertoL

ResponderCitar (Quote)