Ir ao conteúdo
  • Cadastre-se

Excel Função para adicionar barras na data não apaga a barra quando erra a digitação


Posts recomendados

Boa tarde, estou fazendo uma ferramenta de cadastro de agenda 

quando indico no text box que o formato inserido será em data, indicando o tamanho total, tudo funciona de acordo.

 

Porém quando simulo uma situação onde o usuário errou a digitação e precisa apagar e para trocar os valores o código não da certo

 

O erro é que como o código controla as entradas de caracteres para definir onde colocar o "/", se insiro 2 caracteres ele coloca automaticamente, mas se preciso alterar ele não retorna/não possibilita apagar o "/" também

 

Segue o código

Private Sub txtData_Change()
 'Formata : dd/mm/aaaa
    If Len(txtData) = 2 Or Len(txtData) = 5 Then
        txtData.Text = txtData.Text & "/"
        SendKeys "{End}", True
    End If
End Sub

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...