Power BI | DAX: Análise Financeira - Lucro Bruto

Calcula o lucro bruto das vendas.

Lucro Bruto = 

SUMX(

    Vendas,

    Vendas[Valor] - Vendas[Custo]

)

 MAIS ARTIGOS SOBRE POWER BI | DAX: 

• 1. Análise de Desempenho - Margem de Lucro por Produto
• 2. Como Inserir um Informações de Target, Vindos de outra Tabela, numa Matriz no PBI?
• 3. Cálculo de Crescimento Anual
• 4. Média Móvel de 3 Meses
• 5. Vendas Acumuladas no Ano
• 6. Comparação de Desempenho com Ano Anterior
• 7. Segmentação de Clientes por Faixa de Faturamento
• 8. Identificação de Clientes Inativos
• 9. Análise de Retenção de Clientes
• 10. Cálculo de Ticket Médio
• 11. Identificação de Produtos Mais Vendidos
• 12. Cálculo de Margem de Lucro
• 13. Análise de Vendas - Variação Percentual Mensal de Vendas
• 14. Análise de Vendas - Vendas Média por Cliente
• 15. Análise de Vendas - Contribuição de Vendas por Produto
• 16. Análise de Vendas - Vendas de Produtos com Maior Crescimento
• 17. Análise de Desempenho - Desempenho por Região
• 18. Análise de Desempenho - Ranking de Vendas por Vendedor

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 Série DONUT PROJECT 2024 

  

  

  

  

Excel | Envie todos os gráficos do Excel para uma apresentação do PowerPoint

 

Uma macro muito útil que permite adicionar todos os seus gráficos do Excel à sua apresentação do PowerPoint com apenas um clique:

Sub SendExcelFiguresToPowerPoint()

     'Definir referência à biblioteca de objetos do Microsoft Powerpoint 

    'Declarar suas variáveis 

        ​​Dim PP As PowerPoint.Application

         Dim PPPres As PowerPoint.Presentation

         Dim PPSlide As PowerPoint.Slide

         Dim i As  Integer 

    'Verificar gráficos; saia se não existirem gráficos 

        Sheets( "Slide Data" ). Selecione 

            se ActiveSheet.ChartObjects.Count < 1  Then 

                MsgBox "Nenhum gráfico existente na planilha ativa" 

                Exit  Sub 

            End  If 

    'Abra o PowerPoint e crie uma nova apresentação 

        Definir PP = Novo PowerPoint.Application

         Definir PPPres = PP.Presentations.Add

        PP.Visible = True 

    'Inicia o loop com base na contagem do gráfico 

            For i = 1  To ActiveSheet.ChartObjects.Count

             'Copia o gráfico como uma imagem

                ActiveSheet.ChartObjects(i).Chart.CopyPicture _

                Tamanho:=xlTela, Formato:=xlImagem

                Application.Wait (Now + TimeValue( "0:00:1" ))

             'Conta os slides e adiciona um novo slide como o próximo número de slide disponível

                ppSlideCount = PPPres.Slides.Count

                Definir PPSlide = PPPres.Slides.Add(SlideCount + 1 , ppLayoutBlank)

                PPSlide. Selecione 

            'Colar a imagem e ajustar sua posição; Vá para o próximo gráfico 

                PPSlide.Shapes.Paste. Selecione 

                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True 

                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True 

            Próximo i

     ' 

        Conjunto de limpeza de memória PPSlide = Nada 

        definido PPPres = Nada 

        definido PP = Nada 

End  Sub

Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série Donut Project 

  

 Clique nas capas abaixo e compre também: 

Excel | Destaque os dez principais valores

Este código irá destacar os dez principais valores de uma seleção de células:

Sub TopTen()

    Seleção.FormatConditions.AddTop10

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

        Com Selection.FormatConditions( 1 )

            .TopBottom = xlTop10Top

            'Altere a classificação aqui para destacar um número diferente de valores 

            .Rank = 10 

            .Percent = False 

        End  With 

        With Selection.FormatConditions( 1 ).Font

            .Color = -16752384 

            .TintAndShade = 0 

        Terminar  com 

        Seleção.FormatConditions ( 1 ).Interior

            .PatternColorIndex = xlAutomatic

            .Color = 13561798 

            .TintAndShade = 0 

        Terminar  com 

    Selection.FormatConditions ( 1 ).StopIfTrue = False 

End  Sub

Você pode ajustar facilmente o código para destacar diferentes números de valores.

Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série Donut Project 

  

 Clique nas capas abaixo e compre também: