Fóruns
Microsoft Excel - 2...
2024 - Excel - O bá...
[FÓRMULA COM ZEROS]...
 
Notifications
Clear all

[FÓRMULA COM ZEROS] Formatação de números

 
2024 - Excel - O básico
8 Posts
1 Usuários
0 Reactions
1,395 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos, Boa Tarde!

Por gentileza, poderiam me ajudar a descobrir uma fórmula que me ajude a formatar um número?
Explico:

Preciso deixar um número com o formato assim: 0087665-4 ( Sempre com 2 zeros antes do primeiro numeral )

Mas as vezes, o sistema entrega o número assim: 87665-4, ou assim, 0000087665-4

Na planilha em anexo, dá pra entender melhor.

Obrigado desde já! :D

 
Postado : 13/07/2013 9:51 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Seria isso...

=CONCATENAR("00";D9)

Att

 
Postado : 13/07/2013 10:08 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pode ser assim também (atende as duas situações do exemplo):
="00"&VALOR(ESQUERDA(D10;LOCALIZAR("-";D10)-1))&DIREITA(D10;2)

 
Postado : 14/07/2013 7:25 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos, Boa Tarde!

Para acrescentar dois zeros antes do 8, as duas fórmulas funcionaram.
Mas para deixar apenas com 2 zeros antes do 8, eu não consegui aplicar.

Podem me informar o que eu estou fazendo errado?

 
Postado : 14/07/2013 9:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Depende de como está configurado seu "numero".
Veja no exemplo

 
Postado : 14/07/2013 9:48 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim firstNonZero As Long, myStr As String
    
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Application.EnableEvents = False
        myStr = Target & "123456789"
        myStr = """" & myStr & """"
        firstNonZero = Evaluate("=MIN(SEARCH({1;2;3;4;5;6;7;8;9}," & myStr & "))")
        Target = "00" & Mid(Target, firstNonZero)
        Application.EnableEvents = True
    End If
        
End Sub

Veja outra forma no arquivo em:
http://rapidshare.com/files/3700234078/AleVBA_8816.xlsm

Att

 
Postado : 14/07/2013 3:20 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu Reinaldo e Alexandre, deu certinho aqui.
Muito Obrigado!

 
Postado : 15/07/2013 5:45 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Obrigado pelo retorno e por marcar como resolvido!! ;)

Att

 
Postado : 15/07/2013 5:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico