Home Excel - Dicas Microsoft Excel VBA Excel VBA - SubTotal Excel planilha vba subtotal inserindo formula

Excel planilha vba subtotal inserindo formula

E-mail Imprimir PDF

SaberExcel - o site de quem precisa aprender Microsoft Excel VBA.

E
ssa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma soma com a função SubTotal() em determinada célula na folha de planilha, observe que aqui gravei uma macro para você ver como deverá depurar esse código, é muito importante dominar o conhecimento sobre o GM(Gravador de Macros) para quem está iniciando o estudos com VBA(Visual Basic Application), pois ele será o seu assistente professor sempre,
Esse assunto é o assunto do nosso Caderno_1 - Curso Completo Microsoft Excel VBA,  acho de extrema importancia para iniciar o conhecimento dominar bem esse assunto.


Sub inserindo_formula_subtotal()
  Range("H8").Formula = "=SUBTOTAL(9,E1:E12)"
  
  [I7].Value = "Insere fórmula correta"
  saber1.Shapes("saber1").Visible = True  'essas duas linhas de códigos são para auxliar no teste, mostrar e ocultar shapes informativos
  saber1.Shapes("saber2").Visible = False
  [H5].Select
  Range("H5").Select
End Sub

Neste macro estou mostrando se voce inserir o R1C1 - na linha de código, gera um erro na inserção da fórmula na célula. 
Sub inserindo_formula_subtotal_I()
  Range("H8").FormulaR1C1 = "=SUBTOTAL(9,E1:E12)"
  [I7].Value = "Fórmula errada R1C1"
  saber1.Shapes("saber1").Visible = False
  saber1.Shapes("saber2").Visible = True
  [H5].Select
End Sub

'macro subtotal gravada - isto é usando o GM(Gravador de Macros)
'obserque que funciona mas se fizer pequenas modificações, poderá mudar
'a performance e a simetria para melhor entendimento.

Sub Gravando_macro_subtotal()
    Range("H8").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-7]C[-3]:R[4]C[-3])"
    Range("I8").Select
    'substitua tudo acima por (Depurando macros), se voce mudar a fórmula para modo absoluto,
    'obrigatoriamente teria que retirar o R1C1, para não ocorrer em erro na fórmula
    'Range("H8").Formula = "=SUBTOTAL(9,E1:E12)"
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



  Baixe o exemplo de planilha contendo os macros acima
Excel planilha vba subtotal inserindo formula (69.49 KB)



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

Última atualização em Ter, 23 de Agosto de 2011 09:12  

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_counterHoje4920
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19967
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38155
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460984
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