Detalhes de Excel planilha vba converter texto numeros

PropriedadeValor
Nome:Excel planilha vba converter texto numeros
Descricao:

Saberexcel - o Site das Macros MS Excel VBA

EXCEL VBA CONVERTENDO NÚMETO(TEXTO) EM NÚMERO.

Esse macro do Aplicativo Microsoft Excel VBA, converte número(texto) em números.Observem que o macro substitui o Ponto(.) dos números (textos) com vírgula, convertendo os números(texto) em números. Veja bem, o macro esta apenas substituindo o ponto por vírgula, por isso não vá confundir com os números em formato de textos com essa operação de substituição. Espero que o exemplo possa lhe ser útil . Fique com Deus, Expedito Marcondes

Sub Converter_texto_em_numeros()
'Converter texto em numeros
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim vCelulas As Range
Dim ValorOrigem As String
Dim NovoValor As String
On Error Resume Next

Set sbx = Plan1.Range("C1:C25")
For Each vCelulas In sbx.Cells.SpecialCells(xlConstants, xlTextValues)
ValorOrigem = vCelulas.Value
NovoValor = ""


For i = 1 To Len(ValorOrigem)
If Mid(ValorOrigem, i, 1) = "." Then
NovoValor = NovoValor & ","
ElseIf Mid(ValorOrigem, i, 1) = "," Then
NovoValor = NovoValor & "."
Else
NovoValor = NovoValor & Mid(ValorOrigem, i, 1)
End If
Next i

On Error Resume Next
vCelulas.Value = CDbl(Trim(NovoValor))
On Error GoTo 0
On Error Resume Next

Next vCelulas

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
[E3].Value = "Números('textos') já convertidos!"

End Sub

Sub copiar_teste()
[a].Copy [b]
[E3].Value = "CONVERTA OS NÚMEROS('TEXTOS') EM NÚMEROS"
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



 

Nome do arquivo:Excel planilha vba converter texto numeros.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:Escola Saberexcel VBA Estudos®
Criado em: 28/08/2011 10:59
Visitas:Todos
Responsavel:Autor
Acessos:4857 Acessos
Atualizado em: 28/08/2011 11:00
Site: