Excel VBA - SubTotal

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba subtotal inserindo subtotal manualmente e com macros vba subtotal inserindo subtotal manualmente e com macros

    popular!
    Adicionado em: 02/12/2010
    Modificado em: 08/03/2011
    Tamanho: Vazio
    Downloads: 856

    Saberexcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, insere um subtotal e agrupa linhas na em determinada folha de planilha, há um pequeno tutorial com imagem de como inserir um subtotal com agrupamento de linhas.

    Sub inserindo_subtotal()
    Range("B2").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Range("G1").Select
    End Sub

    Sub remover_subtotal()
    Range("B2").Select
    Selection.RemoveSubtotal
    Range("F2").Select
    End Sub

    Observe a imagem abaixo, um pequeno tutorial para voce aprender a lidar com o ítem de menu Subtotal
    Selecione o cabeçalho da tabela, acesse o ítem de menu subtotal, na barra de ferramenta Dados, após esses procedimentos vai abrir uma caixa de texto SubTotais, voce deverá alterar os dados para relatório de acordo com a sua necessidade, neste caso específico, sugiro que siga como na imagem abaixo... Espero tê-los ajudado, fique com Deus, E_Marcondes




    Aprenda Microsoft Excel VBA com Saberexcel



    Excel planilha vba subtotal soma coluna Excel planilha vba subtotal soma coluna

    popular!
    Adicionado em: 25/04/2011
    Modificado em: 25/04/2011
    Tamanho: Vazio
    Downloads: 902

    Saberexcel - o site de quem precisa aprender Microsoft Excel VBA

    Essa macro do Aplicativo Microsoift Excel VBA(Visual Basic Application), insere uma soma na coluna(G), e desloca até a última celula usada, desloca mais uma e insere a FORMULA '=SUBTOTAL(9;G$2:DESLOC(G7;-1;0))', somando o total de números inseridos nesta coluna.
    Espero que o exemplo seja útil. Fique com Deus, Expedito Marcondes.


    Sub Inserindo_SubTotal_Coluna()
    Dim vFinalDados As Long

    [G1].Select
    Range(ActiveCell.Address, _
    Cells(Rows.Count, ActiveCell.Column).End(xlUp).Address).Select

    vFinalDados = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

    ActiveSheet.Cells(vFinalDados + 1, ActiveCell.Column).Formula = _
    "=SUBTOTAL(9," & ActiveSheet.Cells(2, ActiveCell.Column).Address(1, 0) _
    & ":OFFSET(" & ActiveSheet.Cells(vFinalDados + 1, _
    ActiveCell.Column).Address(0, 0) & ",-1,0))"

    [H1].Select

    End Sub


    Sub Deleta_Celula_formulas()
    On Error GoTo sbError
    [G1:G100].SpecialCells(xlFormulas, 23).ClearContents
    Exit Sub
    sbError: MsgBox ("Não há fórmulas para serem apagadas,execute o macro para inserir"), vbInformation, "Saberexcel - site das macros"
    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




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

    Excel planilha vba subtotal inserindo formula Excel planilha vba subtotal inserindo formula

    popular!
    Adicionado em: 26/04/2011
    Modificado em: 26/04/2011
    Tamanho: Vazio
    Downloads: 915

    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




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

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    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