Excel VBA - Numeros

  • - Acesso Livre

    • Documentos

    Ordenar por : Nome | Data | Acessos | [ Descendente ]

    Excel planilha vba extrair caracteres textos numeros Excel planilha vba extrair caracteres textos numeros

    popular!
    Adicionado em: 30/10/2011
    Modificado em: 30/10/2011
    Tamanho: Vazio
    Downloads: 3043

    Desenvolvedor Alunos SaberExcel - Escola Saberexcel VBA Estudos® -

    Função Extrair Caracteres Textos e Numéricos

    Função extrair caracteres, extrairá números ou textos
    dependendo do argumento informado, se verdadeiro ou falso

    Condição Argumentos
    verdadeiro = Numeros
    Falso = Textos e outros carcteres.

    Como Usar a Função
    Extrair texto:
    '=EXTRAIRCARACTERES(C4;FALSO)
    '- - - - - - - - - - - - - - - - - - - - - - - - -
    'Extrair Numeros(Textos)
    '=EXTRAIRCARACTERES(F6;VERDADEIRO)
    '- - - - - - - - - - - - - - - - - - - - - - - - -

    Exemplo da função (código VBA)

    Este exemplo retorna Números ou textos de uma cadeia de caracteres dependendo do Argumento (Verdadeiro ou Falso).

    Visual Basic for Applications

    Function EXTRAIRCARACTERES(vPesquisa As Range, Tipo As Boolean)
    'Declarar variáveis
    Dim sbx As Integer
    Dim txtNUMERO As String
    Dim vOutros As String

    'para que atualize sempre que houver alteração na célula de referencia
    Application.Volatile

    'faremos um loop para verficar os caracteres da célula informadas
    For sbx = 1 To Len(vPesquisa.Value)

    'se existir caracteres numéricos será chamada a variável txtNUMERO
    'caso contrário, variável vOutros

    If IsNumeric(Mid(vPesquisa.Value, sbx, 1)) Then _
    txtNUMERO = txtNUMERO & Mid(vPesquisa.Value, sbx, 1) _
    Else: vOutros = vOutros & Mid(vPesquisa.Value, sbx, 1)
    Next sbx

    'Informe verdadeiro para que retorne os valores numericos correspondente a var(txtNUMERO)
    'se falso, outros caracteres

    If Tipo = True Then EXTRAIRCARACTERES = txtNUMERO Else EXTRAIRCARACTERES = vOutros
    End Function



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

    © 2002 - 2012 MicrosoftExcel(Saberexcel) - o site das Macros - Todos os direitos reservados.

    Excel planilha vba converter texto numeros Excel planilha vba converter texto numeros

    popular!
    Adicionado em: 28/08/2011
    Modificado em: 28/08/2011
    Tamanho: Vazio
    Downloads: 4857

    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



     

    Página 3 de 3

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes

    Pesquisa Google SaberExcel

    Google

    Contatos Equipe Saberexcel

    Navegar pelo Site

    Outros Assuntos

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    Tags Populares

    RSFirewallProtected

    27.04.2024

    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA