Excel VBA - SubTotal

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

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

    popular!
    Adicionado em: 26/04/2011
    Modificado em: 26/04/2011
    Tamanho: 69.49 KB
    Downloads: 710

    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

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

    popular!
    Adicionado em: 25/04/2011
    Modificado em: 25/04/2011
    Tamanho: 69.98 KB
    Downloads: 660

    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

    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: 79.28 KB
    Downloads: 634

    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




    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