Home Excel - Downloads / Areas Restritas Excel VBA - Maximo e Minimo

Excel VBA - Maximo e Minimo

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba valores max e min meses Excel planilha vba valores max e min meses

    popular!
    Adicionado em: 08/01/2012
    Modificado em: 08/01/2012
    Tamanho: 100.03 KB
    Downloads: 606

    Escola Saberexcel VBA Treinamentos - para quem precisa aprender macros ms excel vba

    Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), retornam valores máximos e mínimos, referentes aos meses do ano,
    relacionados na coluna(B) de determinada folha de planilha. Observe que o macro, contém código para deslocar esses dados extraídos para
    determinada coluna(G) 'escolhida'. Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
    '- - - - - - - - - - - - - - - - - - - - - - - - -
    NB - em programação (aprendizado) é de extrema importancia o dominio da matéria sobre Loops, e também como deslocar(propriedade offset())
    dados pelos folhas de planilhas escolhendo linhas colunas e células para recepção de dados.
    Temos dois trabalhos importantes para essa fase de conhecimento em programação e desenvolvimento:
    1 - 120 Planilhas Microsoft Excel VBA sobre Loops (todos) como usar.
    2 - Planilhas de treinamento deslocando dados pelas folhas de planilhas linhas e colunas, usando a propriedade offset e as instruções Loops.
    'melhores informações Escola Saberexcel VBA Estudos, Treinamento com Macros, Fórmulas e Funções : 'Email-me"!

    ' - - - - - - - - - - - - - - - - - - - - - - --

    Const s = "Valores mínimos extaídos"
    Const b = "Valores máximos extraídos"
    '- - - - - - - - - - - - - - - - - - -
    Sub sbx_extrair_valores_maximos_meses()
    For i = 1 To 12
    vMaximo = 0
    For J = 4 To Range("B65000").End(xlUp).Row
    If Range("B" & J).Value = i And Range("C" & J).Value > vMaximo Then
    vMaximo = Range("C" & J).Value
    End If
    Next J
    Range("G" & (3 + i)).Value = vMaximo
    Next i
    [a].Value = b
    End Sub
    '- - - - - - - - - - - - - - - - - - -
    Sub sbx_extrair_valores_minimos_meses()
    For i = 1 To 12
    vMinimo = 1000
    For J = 4 To Range("B65000").End(xlUp).Row
    If Range("B" & J).Value = i And Range("C" & J).Value < vMinimo Then
    vMinimo = Range("C" & J).Value
    End If
    Next J
    Range("G" & (3 + i)).Value = vMinimo
    Next i
    [a].Value = s
    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.







    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