Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
dougserra

Formatar Célula - Máscara

Mensagem Recomendada

Estou tentando criar uma máscara no formato... 1234.1234/1234567-1

Eu tentei usar a máscara 0000"."0000"/"0000000"-"0, mas o problema é que ela ou não apresenta o formato que eu escolhi, ou troca o último  número por zero.

Máscara para Processo e SEI.xlsx

Compartilhar este post


Link para o post
Compartilhar em outros sites

ougserra, Bom Dia.

O problema é que no Excel podemos ter no máximo 15 dígitos para números, o restante é trocado por zeros

Se minha resposta foi útil, clique no coração é uma forma de agradecimento da ajuda

Decio

 


 

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
11 horas atrás, dougserra disse:

Estou tentando criar uma máscara no formato... 1234.1234/1234567-1

 

Se você quiser experimentar uma solução via macro instale o código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim ov As String, nv As String
  If Target.Count > 1 Then Exit Sub
  If Len(Target.Text) <> 16 Then Exit Sub
  ov = Target.Text
  nv = Left(ov, 4) & "." & Mid(ov, 5, 4) & "/" & Mid(ov, 9, 7) & "-" & Right(ov, 1)
  '0000"."0000"/"0000000"-"0
  Target.Value = nv
End Sub


obs.
1. o código irá atuar ao inserir conteúdo com 16 caracteres em qualquer célula da planilha. É possível alterar para limitar a atuação do código para um intervalo de células, por exemplo, coluna A
2. antes de testar é preciso formatar as células para Texto. Por exemplo formate a coluna A para Texto e faça os testes somente em células dessa coluna

exemplos de resultados:
inserindo 1234567899874568 ~~~> resultado ~~~> 1234.5678/9987456-8
inserindo 0001254780003695 ~~~> resultado ~~~> 0001.2547/8000369-5


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...