Início / coding / Perguntas / 79595871
Accepted
SCM
Asked: 2025-04-28 14:00:12 +0800 CST

Macro gravada para localizar e substituir separador de data

  • 772

Tenho uma coluna com datas no formato dd-mm-aaaa.

Estou tentando substituir "-" por "." para que todas as datas selecionadas pareçam 01.01.2025 em vez de 01-01-2025.

Funciona quando uso ctrl+H em uma planilha do Excel, mas o código VBA gravado não funciona.

Selection.Replace What:="-", Replacement:=".", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
excel

1 respostas

  1. Best Answer

    No Excel, as datas são armazenadas como números de série. Por exemplo, 1º de janeiro de 2025 é armazenado como 44601. O formato que você vê na tela (dd-mm-aaaa) é apenas um formato de exibição.

    Sua macro está tentando substituir "-" por "." no que ela vê como números, não como texto. Como não há caracteres "-" nos números de série, a substituição não acontece.

    Em vez de substituir caracteres, você pode alterar o formato da data diretamente usando a formatação de célula:

    Sub FormatDates()
    Dim rng As Range
    Set rng = Selection
    
    rng.NumberFormat = "dd.mm.yyyy"
End Sub
    • 1

relate perguntas