Home Excel - Dicas Microsoft Excel VBA Excel VBA - Soma Excel planilha vba soma subtotal e total em quebra de paginas

Excel planilha vba soma subtotal e total em quebra de paginas

E-mail Imprimir PDF

Saberexcel - O site de quem precisa aprender Macros Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma soma(total) e Subtotal, em quebra de páginas na folha de planilha.
esse tipo de macros é muito procurada, porém não é tão abundante assim, aconselho que a guarde, em seus arquivos.
Veja que usei a Função de Planilha soma(WorksheetFunction) para retornar o Valor, não foi preciso fórmulas para retornar as somas.
Não deixe de Ver sobre 340 Planilhas WorksheetFunctions(VBA) Saberexcel - onde foi possível, fizemos um exemplo para cada função do Aplicativo Excel.    340 Exemplos de Planilhas  (WorkSheetFunction) Funções de Planilhas retornam valores vba


Sub Inserir_totais_subtotais_em_quebra_paginas()
Dim i As Byte
Dim vUltima_Linha As Integer, vLinha As Integer, vPagina As Integer
Dim vTotal As Double

vLinha = 1
vUltima_Linha = Range("A65536").End(xlUp).Row

ActiveSheet.HPageBreaks.Add Before:=Cells(vUltima_Linha + 1, 1)
vTotal = Application.WorksheetFunction.Sum(Range("A1:A" & vUltima_Linha))

Application.ScreenUpdating = False
For i = 1 To ActiveSheet.HPageBreaks.Count
    vPagina = ActiveSheet.HPageBreaks(i).Location.Row
    Rows(vPagina).Insert

    With Cells(vPagina, 1)
       .Value = Application.WorksheetFunction.Sum(Range("A" & vLinha & ":A" & vPagina - 1))
       .Interior.ColorIndex = 3
    End With

    vLinha = vPagina + 1
Next i

With Cells(vPagina + 1, 1)
   .Value = vTotal
   .Interior.ColorIndex = 5
End With

Application.ScreenUpdating = True
End Sub

 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel 





Acesso Livre - Registrados (REGISTRE-SE!)  
 Baixe o exemplo de planilha contendo o macro acima
Excel planilha vba soma total subtotal quebra de linhas planilha (24.37 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:01  

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_counterHoje127
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19633
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33362
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456191
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