Notifications
Clear all

Converter em numeros

4 Posts
2 Usuários
0 Reactions
1,015 Visualizações
(@campocmi)
Posts: 8
Active Member
Topic starter
 

Boa noite a todos

Preciso de uma macro que converta em numero os números armazenados como texto da coluna A da planilha anexo. Quem conseguir por favor me explique o funcionamento da macro pois estou estudando VBA.

Obrigado

 
Postado : 09/02/2015 6:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Verifique nossa base.
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/02/2015 6:55 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite campocmi

Movi teu tópico para VBA & Macros, que é o assunto da dúvida, pois você havia postado no local exclusivo para Formulas & Funções.

Por enquanto vou deixar o tópico sendo mostrado nos 2 locais.

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/02/2015 6:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Seguem 2 códigos de exemplo.
O primeiro insere os números convertidos numa nova coluna:

Sub Converter()
    'Declara a variável i como número longo
    Dim i As Long
    
    'Laço "For" para percorrer toda coluna "A"
    'começando da linha 2 até a última linha
    'onde há dados
    For i = 2 To [A1].CurrentRegion.Rows.Count
        
        'Conversão do valor da célula (texto) em
        'um número longo
        Cells(i, 6).Value = CLng(Cells(i, 1).Value)
    Next
End Sub

O segundo substitui o texto, pelo número que foi convertido, na própria célula:

Sub Converter2()
    Dim i As Long
    
    For i = 2 To [A1].CurrentRegion.Rows.Count
        Cells(i, 1).Value = CLng(Cells(i, 1).Value)
    Next
End Sub

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/02/2015 7:13 am