Home Excel - Dicas Microsoft Excel VBA Excel VBA - Maximo e Minimo Excel planilha vba valores max e min meses

Excel planilha vba valores max e min meses

E-mail Imprimir PDF

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.
'caso queira ver o vídeo no youtube:
'- - - - - - - - - - - - - - - - - - - - - - - - -
NB - em programação (aprendizado) é de extrema importancia o dominio da matéria sobre Loops, e também como deslocar(propriedade offset())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.


 

  Baixe o exemplo de planilha contendo os macros acima:
Excel planilha vba valores max e min meses (100.03 KB)

      

Última atualização em Dom, 08 de Janeiro de 2012 17:35  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje877
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30641
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44370
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467199
Aprenda MS Excel VBA

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