Pergunte aqui
0

Macro Subtotal

perguntadas 2019-02-01 01:45:19 +0200

imagem do gravatar de Seiki2000

updated 2019-02-17 15:51:11 +0200

Boa noite,

Pessoal tenho várias planilhas com várias colunas e n linhas. Preciso de uma macro para fazer um subtotal da coluna 01. Em outra planilha na coluna 02. Alguém poderia me ajudar?

Obs. Só peço que não seja um código gerado pelo gravador de macro pois depois , pelo conhecimento não consigo adaptar para as várias situações que tenho.

Obrigado.C:\fakepath\SUBTOTAL.ods

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Poste arquivo com exemplo de como tem que ficar.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-02-01 02:05:41 +0200 )editar

@Seiki2000 a fórmula SUBTOTAL, SOMASE ou SOMASES não te atende?

imagem do gravatar de ConradoConrado ( 2019-02-01 14:53:01 +0200 )editar

Gilberto, vou postar uma parte de uma delas devido ao seu tamanho. obrigado pela ajuda. anexei!

imagem do gravatar de Seiki2000Seiki2000 ( 2019-02-01 23:12:18 +0200 )editar

Conrado, Minha planilha tem mais de mil itens e para automatizar preciso de um código para executar um subtotal via macro e ai trabalhar esses subtotais por outros critérios. Mesmo assim obrigado.

imagem do gravatar de Seiki2000Seiki2000 ( 2019-02-01 23:18:04 +0200 )editar

@Seiki2000, tentei mas não consegui entender o manual:

http://www.sw-computacion.f2s.com/Lin...

Capitulo 7.7.4

Pode ser feito manual: Dados / Subtotais... não é complicado.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-02-02 02:30:28 +0200 )editar

Obrigado Gilberto, vou estudar esse manual e tentar se conseguir posto aqui.

imagem do gravatar de Seiki2000Seiki2000 ( 2019-02-03 17:02:35 +0200 )editar

@Seiki2000 existe a necessidade de se somar desta forma? ou seja, a cada grupo de produtos ele fazer a soma? O relatório é extraído conforme a aba (sem subtotal)? Acredito que seria mais fácil migrar os resultados para o BASE (acces), ele faz esse relatório de forma automática.

imagem do gravatar de ConradoConrado ( 2019-02-04 10:45:43 +0200 )editar

1 Resposta

2

respondidas 2019-02-07 02:19:42 +0200

imagem do gravatar de Grafeno

updated 2019-02-10 23:55:51 +0200

Boa noite,

Teste e veja se te atende:

Sub Main
Dim oDoc, oPlan, oIntervalo, oDescSubtotal
Dim oCamposSubTotal(0) As New com.sun.star.sheet.SubTotalColumn

   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("PLANILHA SEM SUBTOTAL")

   oIntervalo = oPlan.getCellRangeByName("B2:J128")

   oCamposSubTotal(0).Column = 8
   oCamposSubTotal(0).Function = com.sun.star.sheet.GeneralFunction.SUM

   oDescSubTotal = oIntervalo.createSubTotalDescriptor(True)
   oDescSubTotal.addNew (oCamposSubTotal(), 0)

   oIntervalo.applySubTotals(oDescSubTotal, True)
End Sub

Atte,

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-02-01 01:45:19 +0200

Lidas: 45 vezes

Última atualização: Feb 10