Excel VBA - Numeros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    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



     

    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 numeros verifica valor numerico Excel planilha vba numeros verifica valor numerico

    popular!
    Adicionado em: 18/05/2011
    Modificado em: 18/05/2011
    Tamanho: Vazio
    Downloads: 972

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.

    Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), verifica se há um valor númerico na célula(B4), havendo um valor númerico, insere a palavra(PAGO), desloca duas células à direita(Propriedade Offset) e insere a palavra(Título Liquidado).
    Observe que usei a condição IF, para facilitar o teste do usuário, quando voce clicar novamente com uma string(NÃO NUMÉRICO), a condição insere uma mensagem pedindo para que voce insira um valor númerico para realização do teste. Nesta movimentação oculta e ou mostra um shapes(autoforma) ligado a um macro. Espero que exemplo seja útil. Fique com Deus, Expedito Marcondes.

    Observe a importância do aprendizado sobre as WorsheetFunctions, as funções de planilhas, não deixe de ver a matéria sobre,
    300 Exemplo de Planilhas com as WorksheetFunctions (VBA) - Saberexcel
    Excel planilha wkf worksheetfunction funções de planilhas retornam valores vba

    Sub verifica_valor_numerico()
    Dim iValor As Boolean

    vCelula = [B4]
    iValor = Application.WorksheetFunction.IsNumber(vCelula)

    If iValor = True Then
    [B4] = "PAGO"
    [B4].Offset(0, 2).Value = "Titulo Liquidado"
    'deslocando duas células a direita
    Else
    [B4].Offset(0, 2).Value = "Insira um valor(B4) para o teste"
    'deslocando duas células a direita
    ActiveSheet.Shapes("sby").Visible = True
    End If
    End Sub

    Macro auxiliar para o teste do usuário, em todos os exemplos existentes, tentei facilitar no máximo o teste, com macros auxliares.
    Sub insere_valor_numerico()
    [B4].Value = "1456"
    [B4].Offset(0, 2).Value = ""
    MsgBox ("Valor númerico inserido, faça o teste"), vbInformation, "Saberexcel - site das macros"
    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





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel planlha vba numeros e textos funcao extrair Excel planlha vba numeros e textos funcao extrair

    popular!
    Adicionado em: 27/04/2013
    Modificado em: 27/04/2013
    Tamanho: Vazio
    Downloads: 641

    Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

    Esses macros e funcoes personalizadas do Aplicativo MS Excel VBA(Visual Basic Application) retornam um número que esteja
    concatenado com um Texto, multiplicando por uma determinado número em colunas especificas (Quantidade, preço etc..)
    veja que o macro abaixo busca valores em (Strings) concatenadas e as multiplica por valores (quantidade) x preço)
    baixe o exemplo de planiha para ver melhor (no final da página).
    (Duvida do Riomar)

    Sub chamando_funcao_via_vba()
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row 'i variavel para encontrar a linha
    Cells(i, "F").Value = CDbl(Extrair_Numero(Cells(i, "c")) * Cells(i, "d")) 'cdbl (double se houver decimais)
    Next i
    End Sub

    Function Extrair_Numero(
    vCell As Range)
    Dim vContador As Long, l As Long
    Dim vTexto As String
    Dim vNum As String
    vTexto = vCell
    For vContador = Len(vTexto) To 1 Step -1
    If IsNumeric(Mid(vTexto, vContador, 1)) Then
    l = l + 1
    vNum = Mid(vTexto, vContador, 1) & vNum
    End If
    If l = 1 Then vNum = CInt(Mid(vNum, 1, 1))
    Next vContador
    Extrair_Numero = CLng(vNum)
    End Function

    Sub Limpar_teste()
    Range("F2:F" & Range("A65000").End(xlUp).Row).ClearContents
    End Sub


    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.




    Excel vba gerar  numero cores aleatorio dictionary Excel vba gerar numero cores aleatorio dictionary

    popular!
    Adicionado em: 10/11/2012
    Modificado em: 10/11/2012
    Tamanho: Vazio
    Downloads: 1074

    Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

    Esse macro do aplicativo Microsoft Excel VBA, usando o objeto Dictionary, gera números aleatórios,
    com o objetivo didatico há um incremento no macro para inserir cores aleatórias no interior das células na folha de planilhas
    como também gerar cores da fonte da célula aleatórios.
    Espero que gostem do exemplo de planilha que poderá baixá-la no final da página.
    Fique com Deus, Expedito Marcondes

    '//===='Escola Saberexcel VBA Estudos®
    ''//===='Treinamentos com Macros, Fórmulas e Funções
    ''''//===='Site:
    http://www.microsoftexcel.com.br
    '''''//===='Email: [email protected]
    ''''''//===================================='

    Sub numeros_aleatorios_grupos()
    Dim Dicionario As Object
    Range("A:A").Clear
    d = 1

    For i = 1 To 5
    Set Dicionario = CreateObject("Scripting.Dictionary") leia sobre Objeto Dictionary
    While Dicionario.Count < 5
    Randomize
    sbx = Int((1000 * Rnd)) + 1
    Dicionario(sbx) = sbx
    Wend
    Cells(d, 1).Resize(Dicionario.Count) = Application.Transpose(Dicionario.keys)
    Cells(d, 1).Resize(Dicionario.Count).Interior.ColorIndex = Int((56 * Rnd)) + 1
    Cells(d, 1).Resize(Dicionario.Count).Font.ColorIndex = Int((56 * Rnd)) + 1
    Cells(d, 1).Resize(Dicionario.Count).Font.Size = 8 'Int((16 * Rnd)) + 1
    d = d + 6
    Next i

    [d12].Value = "Celula Interior Colorindex Bloco 1 = [ " & Cells(1, 1).Interior.ColorIndex & " ]"
    [d13].Value = "Celula Font Colorindex Bloco 1 = [ " & Cells(1, 1).Font.ColorIndex & " ]"
    [d14].Value = "'- - - - - -'"
    [d15].Value = "Celula Interior Colorindex Bloco 2 = [ " & Cells(7, 1).Interior.ColorIndex & " ]"
    [d16].Value = "Celula Font Colorindex Bloco 2 = [ " & Cells(7, 1).Font.ColorIndex & " ]"
    [d17].Value = "'- - - - - -'"
    [d18].Value = "Celula Interior Colorindex Bloco 3 = [ " & Cells(13, 1).Interior.ColorIndex & " ]"
    [d19].Value = "Celula Font Colorindex Bloco 3 = [ " & Cells(13, 1).Font.ColorIndex & " ]"
    [d20].Value = "'- - - - - -'"
    [d21].Value = "Celula Interior Colorindex Bloco 4 = [ " & Cells(19, 1).Interior.ColorIndex & " ]"
    [d22].Value = "Celula Font Colorindex Bloco 4 = [ " & Cells(19, 1).Font.ColorIndex & " ]"
    [d23].Value = "'- - - - - -'"
    [d24].Value = "Celula Interior Colorindex Bloco 5 = [ " & Cells(25, 1).Interior.ColorIndex & " ]"
    [d25].Value = "Celula Font Colorindex Bloco 5 = [ " & Cells(25, 1).Font.ColorIndex & " ]"

    [f12].Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex
    [f13].Interior.ColorIndex = Cells(1, 1).Font.ColorIndex
    [f14].Value = "'- - - - - -'"
    [f15].Interior.ColorIndex = Cells(7, 1).Interior.ColorIndex
    [f16].Interior.ColorIndex = Cells(7, 1).Font.ColorIndex
    [f17].Value = "'- - - - - -'"
    [f18].Interior.ColorIndex = Cells(13, 1).Interior.ColorIndex
    [f19].Interior.ColorIndex = Cells(13, 1).Font.ColorIndex
    [f20].Value = "'- - - - - -'"
    [f21].Interior.ColorIndex = Cells(19, 1).Interior.ColorIndex
    [f22].Interior.ColorIndex = Cells(19, 1).Font.ColorIndex
    [f23].Value = "'- - - - - -'"
    [f24].Interior.ColorIndex = Cells(25, 1).Interior.ColorIndex
    [f25].Interior.ColorIndex = Cells(25, 1).Font.ColorIndex
    End Sub



    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.





    : <<< Registre-se em nosso Site >>> acesse area para registrados.

    Página 1 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

    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

    RSFirewallProtected


    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