Excel Formatação Personalizada de células

Max Carvalho · 8 de fevereiro de 2019

Como realizar a formatação personalizada, onde as células irão receber de 1 a 12 dígitos e que siga a sequencia desta máscara "0.0.0.00.000.0000", porém conforme cada célula receba seu dado.

vou tentar detalhar mais, um coluna irá receber os dados numéricos, mas de acordo com a quantidade de dígitos siga a sequencia da mascara acima, porém se a quantidade de dígitos for menor que a mascara, não apareça os zeros.

Ex.:

1

1.0

1.0.1

1.0.1.0

segue planilha exemplo...

Agradeço desde já aqueles que possam me ajudar...

Teste_Mascara.xlsx

10 de fevereiro de 2019

Veja se esta solução via UDF atende.

1. instale o código abaixo em um módulo comum.

Function ponto(r As Range) As String
 With CreateObject("vbscript.regexp")
  .Pattern = "(.)"
  .Global = True
  ponto = .Replace(r, "$1.")
 End With
  ponto = Left(ponto, Len(ponto) - 1)
  ponto = Replace(ponto, "0.", 0)
  ponto = Replace(ponto, ".0000", "0.000")
  If Len(ponto) = 13 Then
   ponto = Left(ponto, Len(ponto) - 2) & Right(ponto, 1)
  End If
  If Len(ponto) = 18 Then
   ponto = Left(ponto, Len(ponto) - 7) & Right(ponto, 6)
  End If
End Function

2. em seguida cole a função abaixo em E2 e arraste para baixo.