Excel planilha vba subtotal inserindo formula

Ter, 26 de Abril de 2011 07:10 Expedito Marcondes
Imprimir

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

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