none
Como Formatar data dd/mm/aaaa aparecendo barras automaticamente em excel 2007 RRS feed

Respostas

Todas as Respostas

  • Nobre,

    Cara, para formatar segue o código:

    strDate = Format(Date, "dd/mm/yyyy")

    Se quiser por a hora basta fazer assim:

    strDate = Format(Date, "dd/mm/yyyy") & " - " & Format(Time, "hh:mm:ss")

    Agora o lance da barra, não deu para entender bem o que você quer, poderia explicar melhor ?

    Fico no aguardo,

    Boa sorte,

    AT_+



    terça-feira, 28 de janeiro de 2014 18:42
  • Caro Alexandre ...  Bom Dia  !!!

    não conheço nada de vba , porém tenho que formatar um intervalo de celulas onde ao digitar um número , por exemplo 10122014 , automaticamente apareça na celula que digitei , no formato automatico de 10/12/2014

    agradeço a atenção e fico no aguarde 

           Um Abraço      

                                                   Nobre

    quarta-feira, 29 de janeiro de 2014 13:54
  • Boa Tarde a Todos Do Forum !!!

    Estou com um pequeno "Gde " problema ...

    Não Conheço nada de vba e preciso formatar data em determinados intervalos em excel 2007 , no seguinte formato

    20012014 e que seja automaticamente transformado na mesma celula para 20/01/2014 .

    Grato , antecipadamente pela a atenção e pela ajuda !!!

                                                                                                        Nobre

    quarta-feira, 29 de janeiro de 2014 16:57
  • Nobre,

    Boa tarde,

    Respondi ontem a uma questão assim.

    O código é bem simples, segue : Nova_data=Format(data_lida,"mm/dd/yyyy")

    Se for útil, marque como resposta para que outras pessoas utilizem.

    Boa sorte,

    AT_+

    ps. verifique a culture da sua máquina, se nao funcionar assim: "mm/dd/yyyy", faça assim: "dd/mm/yyyy"

    Caso ainda você encontre dificuldade, utilize este código que ele dá certo:

    VALOR = DateValue("A DATA A SER FORMATADA")

    quarta-feira, 29 de janeiro de 2014 17:03
  • Nobre, para fazer o que deseja, você deverá usar macros.

    Siga os passos a seguir: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/#inserir_codigo_num_objeto


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 29 de janeiro de 2014 19:58
    Moderador
  • Private Sub txt_data_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    txt_data.MaxLength = 10 '10/10/2014
     Select Case KeyAscii
          Case 8       'Aceita o BACK SPACE
          Case 13: SendKeys "{TAB}"    'Emula o TAB
          Case 48 To 57
             If txt_data.SelStart = 2 Then txt_data.SelText = "/"
             If txt_data.SelStart = 5 Then txt_data.SelText = "/"
          Case Else: KeyAscii = 0     'Ignora os outros caracteres
       End Select
    
    
    End Sub
    Estou considerando o nome da texbox como txt_data...utilize esse código no evento KeyPress da textbox.
    sexta-feira, 31 de janeiro de 2014 13:56
  • Obrigada.... Ajudou muito..
    quarta-feira, 6 de janeiro de 2016 17:36
  • obrigado Everton Delmiro
    sábado, 18 de fevereiro de 2017 23:25