| 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
|