SaberExcel - o site de quem precisa aprender Microsoft Excel VBA.
Essa 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 
