Alterar os formatos de data da célula para o formato de texto e reter mm / dd / aa

Question

Eu preciso alterar as datas da célula com um formato geral (mm / dd / aa) para um formato de texto para fazer o upload para o Peoplesoft. No entanto, devo manter o mm/dd/yy . Quando altero a célula do formato geral para o formato de texto, ela altera a data para uma data numérica, como 41982 etc. Eu não quero a data do número de série. Deve permanecer uma célula de formato de texto com mm/dd/yy ou mm/dd/yyyy etc.

    

Answer 1

Selecione as células que contêm as datas que você deseja converter em texto formatado e execute essa pequena macro:

Sub TextDate()
    Dim r As Range, st As String
    For Each r In Selection
        If r.Value <> "" Then
            r.NumberFormat = "mm/dd/yyyy"
            st = r.Text
            r.Clear
            r.NumberFormat = "@"
            r.Value = st
        End If
    Next r
End Sub

As macros são muito fáceis de instalar e usar:

1. ALT-F11 exibe a janela do VBE
2. ALT-I ALT-M abre um novo módulo
3. cole o material e feche a janela do VBE

Se você salvar a pasta de trabalho, a macro será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx

Para remover a macro:

1. abrir a janela do VBE como acima
2. limpe o código
3. feche a janela do VBE

Para usar a macro do Excel:

1. ALT-F8
2. Selecione a macro
3. Toque em EXECUTAR

Para saber mais sobre macros em geral, consulte:

link

e

link

As macros devem estar ativadas para que isso funcione!

    

Answer 2

When I change the cell from general format to text format ...

A escolha correta é o formato "Data" no diálogo.

As datas são armazenadas como números, uma contagem de dias a partir de uma data base - ou seja, cada "1" adicionado é adicionado 24 horas. A data base varia dependendo das configurações relacionadas no Excel.

Se você precisar que as células contenham o FORMATO TEXTO;

• certifique-se de ver as datas no formato de que precisa
• Selecione as células (segure CTRL para selecionar células não adjacentes)
• Selecione Copiar no menu ou na faixa de opções
• Selecione Colar especial no menu ou na Faixa de opções
• Selecione "Colar valores" na caixa de diálogo e clique em OK