Neste artigo aprenderá como usar a IA Grok no Excel para realizar análises, ajudar em fórmulas, no uso do Power Query e do DAX.
O Grok é uma avançada inteligência artificial desenvolvida pela empresa xAI, fundada por Elon Musk, criada para proporcionar respostas precisas e análises profundas, indo além da simples interação convencional com ferramentas de IA.
Quando integrado ao Excel, o Grok expande significativamente as capacidades analíticas das planilhas, permitindo não apenas automatizar tarefas rotineiras, mas também realizar interpretações avançadas, gerar insights em tempo real e até recomendar soluções inteligentes diretamente no ambiente do Excel.
Neste artigo, vamos explorar como utilizar essa poderosa integração entre Grok e Excel para aprimorar suas análises de dados, acelerar a tomada de decisões estratégicas e transformar a maneira como você trabalha com planilhas.
Download Planilha de GROK Excel
Realize o download da planilha de GROK Excel neste botão abaixo. Basta se inscrever na nossa newsletter gratuita para o download automático.
Como acessar o GROK?
Para acessar o Grok basta acessar o site https://grok.com/.
Nele temos o acesso a IA do Grok, basta criar uma conta gratuita e digitar no prompt o que precisa que seja feito.
Nos exemplos deste artigo testamos a IA do Grok para analisarmos as suas respostas para o uso em apoio ao Excel.
Por isso nas sessões seguintes você terá estas análises.
Aplicar a IA do Elon Musk para Fórmulas Simples
No nosso primeiro exemplo precisamos realizar a busca de dados com o nome do produto e o valor para a tabela de vendas à partir da tabela de produtos.
No Grok colocamos o seguinte prompt: Crie uma fórmula para buscar os dados produto e valor (R$) da tabela tProdutos à partir do Código, digitado à partir da célula H6.
Como retorno tivemos a informação abaixo, que funcionou corretamente na solução da dúvida.
Entendido! Vou usar a configuração do Excel em português brasileiro (pt/br) para responder suas perguntas.
Para buscar os dados “Produto” e “Valor (R$)” da tabela tProdutos com base no “Código” digitado a partir da célula H6, você pode usar a função PROCV (VLOOKUP em inglês). Supondo que:
- A tabela tProdutos está no intervalo A2:C100 (ajuste conforme necessário).
- A coluna A contém o “Código”, a coluna B contém o “Produto” e a coluna C contém o “Valor (R$)”.
- O código será digitado em H6, e você quer o “Produto” em I6 e o “Valor (R$)” em J6.
Fórmulas:
- Para buscar o Produto (em I6): excelCopy
=PROCV(H6;tProdutos;2;FALSO)- H6: O código digitado.
- tProdutos: O intervalo da tabela (ex.: A2:C100).
- 2: Retorna a 2ª coluna (Produto).
- FALSO: Busca exata.
- Para buscar o Valor (R$) (em J6): excelCopy
=PROCV(H6;tProdutos;3;FALSO)- H6: O código digitado.
- tProdutos: O intervalo da tabela (ex.: A2:C100).
- 3: Retorna a 3ª coluna (Valor).
- FALSO: Busca exata.
Observações:
- Certifique-se de que o nome da tabela (tProdutos) está correto ou substitua por $A$2:$C$100 se preferir o intervalo absoluto.
- Se o código em H6 não existir na tabela, a fórmula retornará o erro #N/D. Para evitar isso, você pode usar SEERRO: excelCopy
=SEERRO(PROCV(H6;tProdutos;2;FALSO);"Não encontrado")E similarly para o valor: excelCopy=SEERRO(PROCV(H6;tProdutos;3;FALSO);"Não encontrado")
Se precisar de ajustes ou mais detalhes, é só perguntar!
Aplicar Grok com Funções Recentes
No exemplo abaixo temos a necessidade de criar um relatório filtrando dados conforme um determinado período e de um vendedor.
Para isso usamos o seguinte Prompt: quero filtrar os dados de uma tabela TVENDAS pelo campo data aonde ele esteja entre a data inicial em c5 e final em c6 e que o vendedor seja o informato em c7. Os campos da tabela tvendas tem os mesmos nomes informados DATA e VENDEDOR.
Como retorno o Grok também criou a fórmula corretamente, mesmo sendo uma função mais recente do Excel.
Entendido! Vou criar uma solução para filtrar os dados da tabela TVENDAS no Excel em português brasileiro (pt/br), com base nos critérios fornecidos:
- Tabela: TVENDAS (suponha que esteja no intervalo A2:D100, com colunas DATA, VENDEDOR, e outros campos).
- Filtros:
- Campo DATA entre a data inicial (célula C5) e a data final (célula C6).
- Campo VENDEDOR igual ao valor informado na célula C7.
Você pode usar o recurso Filtro Avançado do Excel para isso. Aqui está o passo a passo:
1. Configurar a Tabela de Critérios
Crie uma área para os critérios, por exemplo, em F1:G3:
- Na célula F1, escreva DATA.
- Na célula G1, escreva VENDEDOR.
- Na célula F2, insira a fórmula para a data inicial: excelCopy
=">="&C5 - Na célula F3, insira a fórmula para a data final: excelCopy
="<="&C6 - Na célula G2, insira a referência ao vendedor: excelCopy
=C7
A tabela de critérios ficará assim:
textCopy
F1: DATA G1: VENDEDOR F2: >=C5 G2: C7 F3: <=C6
2. Aplicar o Filtro Avançado
- Vá até a aba Dados no Excel.
- Clique em Avançado (no grupo “Classificar e Filtrar”).
- Configure o Filtro Avançado:
- Intervalo da lista: Selecione o intervalo da tabela TVENDAS (ex.: A1:D100, incluindo os cabeçalhos).
- Intervalo de critérios: Selecione o intervalo dos critérios (ex.: F1:G3).
- Copiar para: (Opcional) Se quiser extrair os resultados para outro local, indique um intervalo (ex.: I1:L1 para os cabeçalhos). Caso contrário, marque “Filtrar a lista no local”.
- Clique em OK.
Alternativa: Usar uma Fórmula com FILTRO (se disponível)
Se você estiver usando o Microsoft 365, que suporta a função FILTRO, pode usar uma fórmula para obter os dados filtrados diretamente. Por exemplo, em uma célula (como I2):
excelCopy
=FILTRO(TVENDAS;(TVENDAS[DATA]>=C5)*(TVENDAS[DATA]<=C6)*(TVENDAS[VENDEDOR]=C7);"Nenhum resultado")
- TVENDAS: Nome da tabela.
- (TVENDAS[DATA]>=C5)*(TVENDAS[DATA]<=C6): Filtra as datas entre C5 e C6.
- (TVENDAS[VENDEDOR]=C7): Filtra pelo vendedor em C7.
- “Nenhum resultado”: Mensagem exibida se não houver dados correspondentes.
Observações:
- Formato de Data: Certifique-se de que as células C5 e C6 estão formatadas como data e que os valores na coluna DATA da tabela TVENDAS também estão no formato de data.
- Tabela Estruturada: Se TVENDAS for uma tabela estruturada (criada com Ctrl+T), use o nome da tabela nas fórmulas. Caso contrário, substitua por um intervalo fixo (ex.: A2:D100).
- Erro #N/D: Se usar o Filtro Avançado e os critérios não retornarem resultados, verifique se os valores em C5, C6 e C7 correspondem exatamente aos dados na tabela (sem espaços extras ou diferenças de formato).
Se precisar de mais ajuda para implementar ou ajustar, é só perguntar!
Análise de Dados Excel com Grok
Neste novo exemplo estamos analisando uma tabela de vendas com o objetivo de conseguirmos Insights.
O Prompt enviado para a IA foi: Eu tenho uma tabela de vendas em uma pasta de trabalho. Pode analisar e encontrar insigths importantes nos dados?
Além disso também importamos a planilha para o Grok para que o mesmo pudesse realizar a análise.
Como resultado tivemos a seguinte análise muito completa dos dados, inclusive gerando muitos Insights.
Entendido! Vou analisar a tabela de vendas fornecida (Relatorio de vendas.xlsx) e destacar alguns insights importantes com base nos dados, utilizando a configuração do Excel em português brasileiro (pt/br). A análise será estruturada para identificar padrões, tendências e informações úteis para tomada de decisão. Como a tabela contém 5.000 registros, vou focar em pontos-chave e, se necessário, posso aprofundar em aspectos específicos conforme sua solicitação.
Resumo da Estrutura da Tabela
A tabela contém as seguintes colunas:
- ID_Venda: Identificador único da venda.
- Data: Data da venda (em formato numérico, ex.: 45658, que corresponde a datas em 2024/2025).
- Cliente: Nome do cliente.
- Produto: Produto vendido.
- Categoria: Categoria do produto (ex.: Grãos, Bebidas, Molhos, Óleos, Massas).
- Quantidade: Quantidade vendida.
- Preço_Unitário: Preço por unidade (R$).
- Total: Valor total da venda (Quantidade × Preço Unitário).
- Cidade: Cidade onde a venda ocorreu.
- Vendedor: Nome do vendedor.
- Gerente de vendas: Nome Nome do gerente de vendas.
- Lucro: Lucro gerado pela venda.
Insights Principais
1. Desempenho por Categoria de Produto
- Categoria mais vendida (quantidade):
- Grãos (ex.: Feijão Carioca, Arroz Tipo 1) é a categoria com maior volume de vendas em quantidade (aproximadamente 30% do total de unidades vendidas). Isso sugere alta demanda por produtos básicos de alimentação.
- Bebidas (ex.: Suco de Uva, Achocolatado, Café Torrado e Moído) vêm em segundo lugar, com forte contribuição de produtos como Achocolatado e Suco de Uva.
- Molhos e Óleos também têm volumes significativos, mas Massas (ex.: Macarrão Espaguete) representam a menor proporção.
- Categoria mais lucrativa:
- Grãos geram o maior lucro total devido ao alto volume e margens razoáveis (média de 20-30% de margem de lucro).
- Bebidas, especialmente Café Torrado e Moído, têm margens de lucro elevadas (até 40% em algumas vendas), mas o volume é menor.
- Molhos têm margens menores (média de 15-20%), apesar de volumes significativos.
- Insight: Focar em promoções ou campanhas para Grãos e Café Torrado e Moído pode maximizar o lucro, dado o alto volume e margens. Considerar estratégias para aumentar as vendas de Massas, que têm menor participação.
2. Análise por Vendedor
- Vendedores mais produtivos (total de vendas em R$):
- João Silva: Líder em valor total de vendas (aproximadamente R$ 1,2 milhão), com forte desempenho em Grãos e Molhos.
- Fernanda Rocha: Segunda colocada (R$ 1,1 milhão), com destaque em Bebidas e Grãos.
- Paulo Lima: Terceiro (R$ 1,0 milhão), com vendas equilibradas entre Bebidas e Grãos.
- Lucas Martins e Ana Souza também têm desempenho relevante, mas abaixo dos três primeiros.
- Vendedores com maior lucratividade:
- João Silva também lidera em lucro total (R$ 350 mil), seguido por Fernanda Rocha (R$ 320 mil).
- Ana Souza tem uma margem de lucro média mais alta (cerca de 25%), sugerindo que ela foca em produtos de maior valor agregado.
- Insight: Reconhecer e incentivar os top performers (João, Fernanda, Paulo) com bônus ou metas específicas. Treinar vendedores com menor desempenho (ex.: Lucas Martins) para melhorar a escolha de produtos com maior margem.
3. Análise por Cidade
- Cidades com maior volume de vendas:
- São Paulo: Maior mercado (20% do total de vendas em R$), devido à alta população e demanda.
- Osasco e Campinas: Seguem como segundo e terceiro mercados, com 15% e 12% do total, respectivamente.
- Bauru e Jundiaí: Também relevantes, mas com volumes menores (8-10% cada).
- Cidades com maior lucratividade:
- São Paulo lidera em lucro total (R$ 600 mil), mas Campinas tem a maior margem de lucro média (25%), sugerindo vendas de produtos premium.
- Osasco e Bauru têm margens médias (20-22%), enquanto Santos tem margens menores (18%).
- Insight: Investir em expansão ou marketing em São Paulo e Campinas, onde o mercado é maior e mais lucrativo. Avaliar estratégias para aumentar margens em Santos, possivelmente introduzindo produtos de maior valor.
4. Desempenho por Cliente
- Clientes mais frequentes:
- Moura: Cliente com maior número de compras (50 transações), focado em Grãos e Bebidas, com total de R$ 150 mil em compras.
- Sales: Segundo maior (45 transações), com preferência por Bebidas e Molhos.
- da Mota e Cardoso Ltda.: Também relevantes, com 30-35 transações cada.
- Clientes mais lucrativos:
- Moura: Gera o maior lucro (R$ 45 mil), devido ao alto volume.
- Barros S/A: Segundo em lucro (R$ 40 mil), com compras de produtos de alta margem como Feijão Carioca.
- Freitas: Terceiro (R$ 35 mil), com foco em Grãos.
- Insight: Criar programas de fidelidade ou descontos para clientes recorrentes como Moura e Sales. Identificar oportunidades de upselling para clientes menores, oferecendo produtos de maior margem.
5. Análise Temporal
- Período analisado: As vendas cobrem um período de aproximadamente 6 meses (de 45658 a 45838, ou seja, abril a outubro de 2024).
- Tendências sazonais:
- Pico de vendas: Agosto e setembro (dias 45790 a 45820) mostram aumento de 15% no volume e lucro, possivelmente devido a fatores sazonais (ex.: inverno ou promoções).
- Queda em outubro: Últimos dias (45830+) mostram leve redução (5-10%), o que pode indicar esgotamento de estoque ou menor demanda.
- Insight: Planejar promoções ou campanhas para os meses de maior demanda (agosto/setembro). Investigar a queda em outubro para ajustar estoques ou estratégias de marketing.
6. Produtos Mais Vendidos e Lucrativos
- Produtos mais vendidos (quantidade):
- Feijão Carioca: 12.000 unidades vendidas, gerando R$ 1,5 milhão.
- Arroz Tipo 1: 10.000 unidades, com R$ 1,2 milhão.
- Suco de Uva: 8.000 unidades, com R$ 800 mil.
- Achocolatado: 7.000 unidades, com R$ 600 mil.
- Produtos mais lucrativos:
- Feijão Carioca: Lucro de R$ 450 mil (margem média de 30%).
- Arroz Tipo 1: Lucro de R$ 350 mil (margem de 28%).
- Café Torrado e Moído: Lucro de R$ 300 mil (margem de 35%, apesar de menor volume).
- Insight: Garantir estoque suficiente de Feijão Carioca e Arroz Tipo 1, que são carros-chefe. Promover Café Torrado e Moído para aumentar seu volume, dado o alto lucro por unidade.
7. Margens de Lucro por Produto
- Produtos com maior margem:
- Café Torrado e Moído: 35% em média.
- Feijão Carioca: 30%.
- Arroz Tipo 1: 28%.
- Produtos com menor margem:
- Molho de Tomate Tradicional: 15-18%.
- Macarrão Espaguete: 16-20%.
- Suco de Laranja: 20%.
- Insight: Avaliar a possibilidade de aumentar preços ou reduzir custos de Molhos e Macarrão para melhorar margens. Focar em produtos como Café e Grãos para maximizar lucratividade.
Recomendações Estratégicas
- Foco em Produtos Premium: Aumentar a promoção de Café Torrado e Moído e outros produtos de alta margem em cidades como Campinas e São Paulo, onde há maior aceitação de produtos premium.
- Otimizações por Vendedor: Oferecer treinamentos para vendedores com margens menores, incentivando a venda de produtos de maior lucro. Recompensar top performers com bônus.
- Gestão de Estoque: Garantir estoque robusto de Feijão Carioca e Arroz Tipo 1 para atender a alta demanda, especialmente em agosto/setembro.
- Fidelização de Clientes: Criar programas de fidelidade para clientes como Moura e Sales, oferecendo descontos em compras recorrentes ou pacotes promocionais.
- Expansão Geográfica: Investir em marketing em Osasco e Campinas, que mostram potencial de crescimento. Avaliar a introdução de produtos premium em Santos para aumentar margens.
- Análise Sazonal: Planejar campanhas para os meses de pico (agosto/setembro) e investigar a queda em outubro para ajustar estratégias.
Possíveis Análises Adicionais
Se desejar, posso aprofundar em:
- Análise detalhada por cliente (ex.: segmentação por tamanho ou tipo de compra).
- Tendências por dia da semana (se houver granularidade nos dados de data).
- Correlações entre variáveis (ex.: relação entre preço unitário e quantidade vendida).
- Criação de gráficos ou tabelas dinâmicas no Excel para visualização (ex.: vendas por categoria, lucro por cidade).
- Fórmulas específicas para implementar os filtros ou cálculos mencionados (ex.: PROCV, FILTRO, SOMASE).
Por favor, me diga se quer explorar algum desses pontos ou se precisa de uma fórmula específica para implementar no Excel!
Criar Código Power Query M no Excel
Neste exemplo usamos a IA para realizar a consulta de dados da Web usando Power Query no Excel.
Desejamos realizar uma consulta de dados de uma API da Web pelo Power Query.
Para tanto usamos o seguinte prompt: faça uma função power query m para consultar e retornar estes dados: viacep.com.br/ws/84025480/xml substitua o número pelo cep que informar como parâmetro
Como resultado tivemos o procedimento e o código M pronto para realizar a aplicação no Power Query, porém não funcionou diretamente a aplicação, desta forma tivemos que solicitar novamente respondendo que houve um problema na consulta e tivemos que pedir a correção.
Entendido! Vou criar uma função em Power Query M para consultar o endereço no serviço ViaCEP (viacep.com.br) com base em um CEP informado como parâmetro, retornando os dados no formato XML. A função substituirá o número do CEP na URL (ex.: 84025480) pelo valor fornecido.
Função Power Query M
- No Editor do Power Query, crie uma nova consulta em branco.
- Nomeie-a como ConsultarCEP (ou outro nome de sua escolha).
- Insira o seguinte código M:
mCopy
(CEP as text) => let // Constrói a URL com o CEP informado Url = "https://viacep.com.br/ws/" & CEP & "/xml/", // Faz a requisição à API ViaCEP Fonte = Web.Contents(Url), // Converte o conteúdo XML em uma tabela XmlImportado = Xml.Tables(Fonte), // Expande os dados do XML Dados = Table.ExpandTableColumn(XmlImportado, "cep", {"cep", "logradouro", "complemento", "bairro", "localidade", "uf", "ibge", "gia", "ddd", "siafi"}) in Dados
Explicação do Código
- Parâmetro CEP: A função aceita um parâmetro CEP do tipo texto (ex.: “84025480”).
- Construção da URL: A variável Url concatena o CEP à base da URL do ViaCEP (https://viacep.com.br/ws/{CEP}/xml/).
- Requisição Web: Web.Contents(Url) faz a chamada à API e obtém o conteúdo XML.
- Conversão XML: Xml.Tables(Fonte) converte o XML em uma tabela.
- Expansão dos Dados: Table.ExpandTableColumn extrai as colunas relevantes do XML, como cep, logradouro, complemento, bairro, localidade, uf, ibge, gia, ddd e siafi.
Como Usar a Função
- Salve a função:
- No Power Query, clique com o botão direito na consulta ConsultarCEP e selecione Criar Função.
- Confirme o nome da função (ex.: ConsultarCEP).
- Chame a função:
- Crie uma nova consulta ou use uma tabela com uma coluna contendo CEPs (ex.: 84025480).
- No Power Query, adicione uma nova coluna personalizada: excelCopy
= ConsultarCEP([ColunaCEP])Substitua [ColunaCEP] pelo nome da coluna que contém o CEP. - Expanda a nova coluna para visualizar os dados retornados (cep, logradouro, bairro, etc.).
- Exemplo de entrada e saída:
- Entrada: ConsultarCEP(“84025480”)
- Saída esperada (em formato de tabela): ceplogradourocomplementobairrolocalidadeufibgegiadddsiafi84025-480Rua João BettegaPortãoPonta GrossaPR4118202427767
Observações
- Formato do CEP: O CEP deve ser informado como texto, sem pontos ou traços (ex.: “84025480”). Se sua tabela incluir CEPs com formatação (ex.: 84025-480), use a função Text.Replace para remover os caracteres antes de passar para a função: mCopy
Text.Replace(Text.Replace([ColunaCEP], "-", ""), ".", "") - Erros: Se o CEP for inválido, a API retornará um XML com erro. Para tratar isso, você pode adicionar uma etapa condicional: mCopy
Resultado = try Dados otherwise #table({"Erro"}, {{"CEP inválido"}}) - Conexão à Internet: A função requer conexão à internet para acessar o ViaCEP.
- Limitações da API: O ViaCEP é gratuito e não tem limite estrito, mas evite chamadas excessivas em curto período para respeitar as boas práticas.
Testando a Função
Para testar diretamente no Power Query:
- Crie uma consulta em branco.
- Insira: mCopy
= ConsultarCEP("84025480") - Execute e veja os resultados.
Se precisar de ajustes (ex.: tratar CEPs com formatação, integrar com uma tabela existente, ou exportar para outro formato), é só avisar! Posso também fornecer um passo a passo para integrar isso com sua tabela de vendas, se desejar.
Criar Código VBA Excel usando Grok
Neste Exemplo iremos testar a capacidade do Grok de gerar código VBA para automatizar tarefas no Excel.
No nosso exemplo precisamos criar uma função VBA que retorne uma função de número por extenso no Excel.
Desta forma enviamos o seguinte PROMPT: crie uma função de número por extenso no vba excel.
Como resposta o Grok, acerto 99% digamos, apenas faltando corrigir a palavra que colocou incorretamente de “reals” para reais no código.
Entendido! Vou criar uma função em VBA para o Excel que converte um número em seu equivalente por extenso em português brasileiro (ex.: 123,45 → “cento e vinte e três reais e quarenta e cinco centavos”). A função será configurada para lidar com números inteiros e decimais (até dois dígitos para centavos) e será útil no Excel em português brasileiro (pt/br).
Código VBA: Função Número por Extenso
- Abra o Editor VBA:
- No Excel, pressione Alt + F11 para abrir o editor VBA.
- Vá em Inserir > Módulo e cole o código abaixo.
- Código da Função:
vbaCopy
Option Explicit Function NumeroPorExtenso(Numero As Double) As String Dim ParteInteira As Long Dim ParteDecimal As Long Dim TextoInteiro As String Dim TextoDecimal As String Dim Resultado As String ' Separa a parte inteira e decimal ParteInteira = Int(Numero) ParteDecimal = Round((Numero - ParteInteira) * 100, 0) ' Converte a parte inteira If ParteInteira = 0 Then TextoInteiro = "zero" Else TextoInteiro = ConverteNumero(ParteInteira) End If ' Converte a parte decimal If ParteDecimal = 0 Then TextoDecimal = "" Else TextoDecimal = " e " & ConverteNumero(ParteDecimal) & " centavo" & IIf(ParteDecimal > 1, "s", "") End If ' Monta o resultado Resultado = TextoInteiro & " real" & IIf(ParteInteira <> 1, "eis", "") & TextoDecimal ' Retorna o texto final NumeroPorExtenso = Resultado End Function Private Function ConverteNumero(Num As Long) As String Dim Unidades As Variant Dim Dezenas As Variant Dim Centenas As Variant Dim Milhares As String Dim Texto As String Dim Parte As Long Dim Nivel As Integer ' Arrays com os nomes por extenso Unidades = Array("", "um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove", _ "dez", "onze", "doze", "treze", "quatorze", "quinze", "dezesseis", "dezessete", _ "dezoito", "dezenove") Dezenas = Array("", "", "vinte", "trinta", "quarenta", "cinquenta", "sessenta", "setenta", "oitenta", "noventa") Centenas = Array("", "cento", "duzentos", "trezentos", "quatrocentos", "quinhentos", "seiscentos", _ "setecentos", "oitocentos", "novecentos") Texto = "" Nivel = 0 If Num = 0 Then ConverteNumero = "" Exit Function End If ' Processa até milhões Do While Num > 0 Parte = Num Mod 1000 Num = Num \ 1000 If Parte > 0 Then Dim TempTexto As String TempTexto = "" ' Centenas If Parte >= 100 Then If Parte = 100 Then TempTexto = "cem" Else TempTexto = Centenas(Parte \ 100) End If Parte = Parte Mod 100 End If ' Dezenas e unidades If Parte > 0 Then If TempTexto <> "" Then TempTexto = TempTexto & " e " If Parte < 20 Then TempTexto = TempTexto & Unidades(Parte) Else TempTexto = TempTexto & Dezenas(Parte \ 10) If Parte Mod 10 > 0 Then TempTexto = TempTexto & " e " & Unidades(Parte Mod 10) End If End If End If ' Adiciona milhares, se necessário If Nivel = 1 Then TempTexto = TempTexto & " mil" ElseIf Nivel = 2 Then TempTexto = TempTexto & " milhão" & IIf(Parte > 1, "ões", "") End If If Texto <> "" And TempTexto <> "" Then Texto = TempTexto & " e " & Texto Else Texto = TempTexto End If End If Nivel = Nivel + 1 Loop ConverteNumero = Texto End Function
Como Funciona
- Função Principal (NumeroPorExtenso):
- Recebe um número (tipo Double) como entrada.
- Separa a parte inteira (reais) e a parte decimal (centavos, arredondada para dois dígitos).
- Chama a função auxiliar ConverteNumero para transformar cada parte em texto.
- Monta o resultado com “real/reais” e “centavo/centavos” conforme o valor.
- Função Auxiliar (ConverteNumero):
- Converte números inteiros (de 0 a milhões) em texto por extenso.
- Usa arrays para unidades, dezenas e centenas, tratando casos especiais como “cem” (100) e números de 11 a 19.
- Lida com milhares e milhões, adicionando os termos corretos (“mil”, “milhões”).
- Exemplos de Saída:
- NumeroPorExtenso(123.45) → “cento e vinte e três reais e quarenta e cinco centavos”
- NumeroPorExtenso(1000) → “mil reais”
- NumeroPorExtenso(0.50) → “zero reais e cinquenta centavos”
- NumeroPorExtenso(1) → “um real”
Como Usar no Excel
- Salve o código:
- Após colar o código no módulo VBA, pressione Ctrl + S para salvar a pasta de trabalho (use o formato .xlsm para macros).
- Feche o editor VBA (Alt + Q).
- Use a função na planilha:
- Em uma célula, digite: excelCopy
=NumeroPorExtenso(A1)Onde A1 contém o número (ex.: 123,45). - A célula exibirá o número por extenso.
- Em uma célula, digite: excelCopy
- Exemplo com a Tabela de Vendas:
- Se você tiver a coluna Total na sua tabela de vendas (ex.: Relatorio de vendas.xlsx), pode usar: excelCopy
=NumeroPorExtenso(B2)Onde B2 é o valor do total (ex.: 6714 → “seis mil setecentos e quatorze reais”).
- Se você tiver a coluna Total na sua tabela de vendas (ex.: Relatorio de vendas.xlsx), pode usar: excelCopy
Observações
- Formato do Número:
- A função aceita números com vírgula (ex.: 123,45) ou ponto (ex.: 123.45), dependendo da configuração regional do Excel.
- Números negativos não são tratados. Se precisar, posso adicionar essa funcionalidade.
- Limites:
- A função lida bem com números até milhões. Para valores muito grandes (bilhões+), seria necessário ajustar a função auxiliar.
- Casos Especiais:
- Para 0, retorna “zero reais”.
- Para centavos inteiros (ex.: 10,00), omite a parte decimal (“dez reais”).
- Para apenas centavos (ex.: 0,50), retorna “zero reais e cinquenta centavos”.
- Integração com a Tabela de Vendas:
- Se quiser aplicar a função à coluna Total ou Lucro da sua tabela de vendas, posso criar um código VBA para preencher automaticamente uma nova coluna com o texto por extenso. É só pedir!
Testando a Função
- Insira alguns números em uma coluna (ex.: A1:A3 com 123,45, 1000, 0,50).
- Em B1, use: excelCopy
=NumeroPorExtenso(A1) - Arraste para baixo e verifique os resultados.
Possíveis Ajustes
Se precisar de algo específico, como:
- Suporte a números negativos (ex.: -123,45 → “menos cento e vinte e três reais…”).
- Formatação personalizada (ex.: apenas a parte inteira ou sem “reais/centavos”).
- Aplicação em massa na sua tabela de vendas.
- Tratamento de valores muito grandes (bilhões+).
- Integração com outras moedas (ex.: dólar).
Basta me dizer, e eu ajusto o código!
Conclusão
O uso da IA Grok para análise de dados no Excel se demonstrou muito satisfatória, principalmente com relação à fórmulas do Excel e principalmente para análise de dados.
O uso em fórmulas mais complexas no Power Query M precisou ser refinada algumas vezes, assim como o código VBA.
O Grok respondeu tudo muito rapidamente e conseguiu corrigir seus erros na medida que eram apontados.
Download Planilha de GROK Excel
Realize o download da planilha de GROK Excel neste botão abaixo. Basta se inscrever na nossa newsletter gratuita para o download automático.
