Como formatar uma data no formato dd-mmm-aa no Excel VBA?

Tenho datas no formato dd/mm/aaaa (onde d, m e a são números) e eu gostaria de convertê-las para o formato d-mmm-aa (d), (onde não deve haver números de dígito prefixados com 0, d (d) e aA são números, mas onde mmm é uma representação com 3 letras do mês como Dec para dezembro).

Alguém poderia me mostrar a sintaxe para fazer isso?

Qualquer ajuda seria muito apreciada!

Resposta

Para formatar uma data no formato dd-mmm-aa no Excel VBA, você pode seguir os seguintes passos:

Passo 1: Abra o Excel VBA:
- Abra o arquivo do Excel no qual você deseja formatar as datas.
- Pressione Alt + F11 para abrir o Editor do Visual Basic.

Passo 2: Adicione o código VBA:
- No Editor do Visual Basic, insira o seguinte código:
html
Sub FormatDates()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

' Defina a planilha onde estão as datas
Set ws = ThisWorkbook.Sheets("NomeDaSuaPlanilha")

' Encontre a última linha com dados na coluna de datas
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Loop through each cell with date and format it to dd-mmm-yy
For i = 1 To lastRow
ws.Cells(i, 1).Value = Format(ws.Cells(i, 1).Value, "dd-mmm-yy")
Next i
End Sub

Passo 3: Execute o código:
- Feche o Editor do Visual Basic e volte para o Excel.
- Pressione Alt + F8 para abrir a janela de Macro.
- Selecione o macro FormatDates e clique em Executar.

Após seguir esses passos, as datas na sua planilha do Excel serão formatadas para o formato dd-mmm-aa, onde dd é o dia do mês sem zero à esquerda, mmm é a representação de 3 letras do mês e aa são os dois últimos dígitos do ano.

Espero que isso ajude!