Converter Seleção de Valores em Decimais

Gráficos de Área Empilhados
23 de janeiro de 2011
Gráfico de Linha com Destaque
Gráfico de Linha com Destaque
26 de janeiro de 2011

Objetivo: Converter valores em formato 10000 em valores decimais como por exemplo 100,00 dividindo a seleção por 100 de maneira automática.

Por algum acaso criei esta função no trabalho hoje para resolver um problema que vinha me perturbando. De vez em quando eu tinha dados de arquivos texto que tinham que ser convertidos em decimais quando por exemplo as duas últimas casas deveriam ser separadas por “,”.

Para isso criei esta função:

'Converte em valores decimais
'Selecione o intervalo de dados que você deseja converter e execute esta macro
'O valor de cada célula será dividido por 100
Sub lsConverteValor()
    On Error Resume Next

    Dim lRng As Range
    Dim lCel As Range

    Set lRng = Selection

    For Each lCel In lRng
        If lCel.Value <> "" And IsNumeric(lCel.Value) Then
            lCel.Value = lCel / 100
        End If
    Next lCel

    Selection.Style = "Comma"
End Sub

Para utilizar esta procedure você pode seguir o artigo http://guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-internet.

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.