Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Trafix

[Resolvido] Converter número em texto ?

Recommended Posts

Oh eu de nv pessoal,

Tenho uma tabela com uma coluna que contém vários números, mais esses números estão em formato texto.

Já fiz de tudo e não consigo resolver , alguém pode me ajudar ?

Obrigado @

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite!!!!

Imagine que você tem, uma única célula nesta situação.

na parte superior do lado esquerdo, tem um ponto verde.

ao encostar o mouse nele, verá algumas opções, selecione a opção, cnverter em formato de números.

Veja mais em:

http://office.microsoft.com/pt-br/excel-help/ocultar-valores-e-indicadores-de-erro-nas-celulas-HP010070515.aspx

Att

Compartilhar este post


Link para o post
Compartilhar em outros sites

Zinho , boa noite !

Já tinha utilizado essa opção mais o problema é que tenho mais de 40 mil linha para converter em número, no qual demora muito esse processo .

Para converter uma coluna de 20 mil números levou mais de 4Horas.

Imagine ?

Se tiver uma outra alternativa mais eficaz me ajude ?

Abrs,

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite!!

Tente assim.

Sub ZinhoVBA()

'Selecione seu intervalo
For Each cell In Selection
cell.Value = Val(cell.Value)
Next
Selection.NumberFormat = "General"
End Sub

Boa noite!!

Outra forma

Sub ZinhoVBA_II()
Application.ScreenUpdating = 0
Range("A:A").Select 'Altere conforme a coluna desejada
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With
Application.ScreenUpdating = 1
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Zinho, boa tarde !

O código está demorando muito para converter tambem, coloquei para rodar e já tem mais de 2H convertendo .

Existe uma outra forma mais rápida ?

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite Trafix

Experimente colocar no inicio e no final do código essas linhas para passar o calculo para manual e depois retornar para automático.

Pois quando passa de Texto para número as fórmulas são recalculadas deixando lento.

Logo após o nome da macro:

Application.Calculation = xlCalculationManual

Antes do End Sub

Application.Calculation = xlCalculationAutomatic

Dê retorno.

Um abraço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite!!

Tente...


Sub ZinhoVBA_II()
Application.ScreenUpdating = 0
Application.Calculation = xlCalculationManual
Range("A:A").Select 'Altere conforme a coluna desejada
With Selection
Selection.NumberFormat = "General"
.Value = .Value
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = 1

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite Patropi !

Cara é por isso que sou seu fã, kkk

Deu certinho aqui, quando coloquei o código que você mandou no inicio e no final não levou nem 1min para converter mais de 50mil linhas.

Zinho, você também é o cara sem sua iniciativa não teria conseguido, muito obrigado meu mestre!

Um grande abraço a todos !

Resolvido .......

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×