none
Formatar Hora e CPF em formulários do Word RRS feed

  • Pergunta

  • Prezados amigos, utilizo o Office 2016, passei 2 dias tentando, pesquisando e não consegui resolver o problema, desenvolvi um formulário em que existem os campos horas e CPF, tentei formatar para que a pessoa ao inserir apenas números, já transforme no aspecto requerido,  achei a opção de horas no Controle de Conteúdo, na opção do calendário, mas não deu resultado, talvez seja algo simples, mas já tentei várias coisas e nada, se alguém puder ajudar, ficarei grato!! 
    terça-feira, 27 de junho de 2017 21:01

Respostas

  • Private Sub TextBox215_Change()
    Dim parte1 As String
    Dim parte2 As String
    If IsNumeric(TextBox215.Text) Then
    
    If Len(TextBox215.Text) = 4 Then
    
    parte1 = Left(TextBox215.Text, 2)
    
    parte2 = Right(TextBox215.Text, 2)
    
    TextBox215.Text = parte1 & ":" & parte2
    End If
    
    End If
    
    End Sub
    Já testei e funciona. É só copiar e colar.

    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 domingo, 2 de julho de 2017 00:18
    • Marcado como Resposta Silvio2003 domingo, 2 de julho de 2017 14:01
    domingo, 2 de julho de 2017 00:17
  • Private Sub TextBox216_Change()
    
    '205.054.717-06
    
    If IsNumeric(TextBox216.Text) Then
    
    If Len(TextBox216.Text) = 11 Then
    
    parte1 = Left(TextBox216.Text, 3)
    
    parte2 = Left(TextBox216.Text, 6)
    parte2b = Right(parte2, 3)
    parte3 = Left(TextBox216.Text, 9)
    parte3b = Right(parte3, 3)
    
    parte4 = Right(TextBox216.Text, 2)
    
    TextBox216.Text = parte1 & "." & parte2b & "." & parte3b & "-" & parte4
    End If
    
    End If
    
    End Sub
    Já foi testado e funciona. Se não funcionar aí, é porque houve erro de digitação. Se não der certo, informe o nome da caixa de texto  referente ao CPF para eu alterar o código.

    Anderson Diniz




    domingo, 2 de julho de 2017 00:27

Todas as Respostas

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 29 de junho de 2017 17:25
    • Não Sugerido como Resposta AndersonFDiniz2 domingo, 2 de julho de 2017 00:33
    quinta-feira, 29 de junho de 2017 17:24
  • Olá Anderson,

    Vi o vídeo e tentei usar para horas, conforme abaixo, mas não deu certo ao preencher os 4 números de horas os 2 pontos vão para a esquerda, os 2 primeiros dígitos somem e os 2 últimos passam para a direita dos 2 pontos:
                                

    Private Sub TextBox215_Change()

    If IsNumeric(TextBox215.Text) Then

    If Len(TextBox215.Text) = 4 Then

    partel = Left(TextBox215.Text, 2)

    parte2 = Right(TextBox215.Text, 2)

    TextBox215.Text = parte1 & ":" & parte2
    End If

    End If

    End Sub

    Em relação a CPF não faço a mínima ideia de como fazer pode me ajudar também?

    Desde já grato.

    sábado, 1 de julho de 2017 23:55
  • Private Sub TextBox215_Change()
    Dim parte1 As String
    Dim parte2 As String
    If IsNumeric(TextBox215.Text) Then
    
    If Len(TextBox215.Text) = 4 Then
    
    parte1 = Left(TextBox215.Text, 2)
    
    parte2 = Right(TextBox215.Text, 2)
    
    TextBox215.Text = parte1 & ":" & parte2
    End If
    
    End If
    
    End Sub
    Já testei e funciona. É só copiar e colar.

    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 domingo, 2 de julho de 2017 00:18
    • Marcado como Resposta Silvio2003 domingo, 2 de julho de 2017 14:01
    domingo, 2 de julho de 2017 00:17
  • Private Sub TextBox216_Change()
    
    '205.054.717-06
    
    If IsNumeric(TextBox216.Text) Then
    
    If Len(TextBox216.Text) = 11 Then
    
    parte1 = Left(TextBox216.Text, 3)
    
    parte2 = Left(TextBox216.Text, 6)
    parte2b = Right(parte2, 3)
    parte3 = Left(TextBox216.Text, 9)
    parte3b = Right(parte3, 3)
    
    parte4 = Right(TextBox216.Text, 2)
    
    TextBox216.Text = parte1 & "." & parte2b & "." & parte3b & "-" & parte4
    End If
    
    End If
    
    End Sub
    Já foi testado e funciona. Se não funcionar aí, é porque houve erro de digitação. Se não der certo, informe o nome da caixa de texto  referente ao CPF para eu alterar o código.

    Anderson Diniz




    domingo, 2 de julho de 2017 00:27
  • Prezado Anderson,

                             Só tenho a lhe agradecer por dividir seu conhecimento com os demais, hoje em dia em nosso país isso é difícil, as fórmulas funcionaram perfeitamente, fico imensamente grato pela sua ajuda!!!

                              Obrigado!!!

    Sílvio

    domingo, 2 de julho de 2017 14:04