Note: The other languages of the website are Google-translated. Back to English

Como somar / contar números em negrito em um intervalo de células no Excel?

Quando você tem um intervalo de dados que contém alguns números em negrito em uma planilha e agora deseja somar ou contar apenas as células em negrito, é claro que você pode adicioná-los um por um manualmente, mas isso demorará muito. Como somar ou contar apenas as células em negrito no Excel de maneira fácil e rápida?

Conte os números em negrito em um intervalo com a função definida pelo usuário (VBA e fórmula)
Soma os números em negrito em um intervalo com a função definida pelo usuário (VBA e fórmula)
Vários cliques para contar e somar células em negrito em um intervalo com o Kutools para Excel


Conte os números em negrito em um intervalo com a função definida pelo usuário

Os seguintes Função definida pelo usuário pode ajudá-lo a obter rapidamente o número de células em negrito. Faça o seguinte:

1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: conte os números em negrito em um intervalo de células

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Em seguida, salve este código e digite esta fórmula = ContagemBold (A1: C9) em uma célula em branco, veja a captura de tela:

doc-count-bold-cells1

4. Então aperte Entrar e você contará as células em negrito no intervalo A1: C9.

doc-count-bold-cells2

NOTAA1: C9 na fórmula indica o intervalo que você deseja usar a função para contar as células em negrito, você pode alterá-lo conforme sua necessidade.


Soma os números em negrito em um intervalo com a função definida pelo usuário

E se você quiser somar apenas os números em negrito em um intervalo de dados, também posso criar uma função definida pelo usuário para você resolver.

1. Mantenha pressionada a ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: some os números em negrito em um intervalo de células

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Em seguida, salve este código e digite esta fórmula = sumbold (A1: C9) em uma célula em branco, veja a captura de tela:

doc-count-bold-cells3

4. E, em seguida, pressione Entrar , todos os números em negrito no intervalo A1: C9 foram somados. Veja a imagem:

doc-count-bold-cells4

NOTAA1: C9 na fórmula indica o intervalo que você deseja usar a função para somar as células em negrito, você pode alterá-lo conforme sua necessidade.


Vários cliques para contar e somar células em negrito em um intervalo com o Kutools para Excel

YVocê pode facilmente contar ou somar todas as células em negrito em um intervalo com vários cliques sem lidar com o código VBA complicado e lembrar fórmulas.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Para contar células em negrito, selecione uma célula em branco para localizar o resultado e clique em Kutools > Funções Kutools > Estatística e Matemática > COUNTBYFONTBOLD.

E para somar as células em negrito, clique Kutools > Funções Kutools > Estatística e Matemática > SUMBYFONTBOLD. Veja a imagem:

2. No FArgumentos de unção caixa de diálogo, especifique o intervalo com células em negrito que você precisa contar ou somar na caixa Referência e, em seguida, clique no botão OK botão.

Agora, a contagem ou soma de todas as células em negrito no intervalo especificado são preenchidas na célula selecionada imediatamente. Veja a imagem:

  Se você quiser ter uma avaliação gratuita (30-dia) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Mantenha a referência da célula da fórmula constante com o Kutools para Excel


Artigos relacionados:

Como identificar e selecionar todas as células ou texto em negrito no Excel?


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (21)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá, usando o Excel 2013 Dutch com o kutools 6.5, mas não consigo usar o layout de leitura. pergunte antes de gritar ser resolvido nesta versão ???
Este comentário foi feito pelo moderador no site
[quote]olá, usando excel 2013 holandês com kutools 6.5, mas não consigo usar o layout de leitura. pergunte antes de gritar ser resolvido nesta versão ???Por Kersten[/quote] Olá, por favor contacte-me em jaychivo#extendoffice.com. Substitua # por @. :-)
Este comentário foi feito pelo moderador no site
Existe uma maneira de contar com base na cor da célula se o texto estiver em negrito?
Este comentário foi feito pelo moderador no site
ISSO É INCRÍVEL !!!! Funcionou perfeitamente!! Obrigada
Este comentário foi feito pelo moderador no site
Isso funciona perfeitamente, exceto que não parece adicionar minhas casas decimais, apenas adiciona o dólar inteiro. Se você tiver uma correção para isso eu ficaria muito grato.
Este comentário foi feito pelo moderador no site
Oi Katie, Use o código abaixo, pois a soma mostra as casas decimais. Função SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 Para Cada rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
Este comentário foi feito pelo moderador no site
Isso funciona um deleite. Eu só tenho um problema... não parece estar adicionando nada depois de um ponto decimal. Qualquer ajuda seria muito apreciada.
Este comentário foi feito pelo moderador no site
obrigado.. está funcionando...
Este comentário foi feito pelo moderador no site
Copiei e colei o código no Excel, mas obtive #NAME? erro. Certifiquei-me de habilitar macros e usar a versão 2010 do Excel (não sei se isso muda alguma coisa). Alguém pode ajudar por favor?!
Este comentário foi feito pelo moderador no site
[quote]Copiei e colei o código no Excel, mas recebi #NAME? erro. Certifiquei-me de habilitar macros e usar a versão 2010 do Excel (não sei se isso muda alguma coisa). Alguém pode ajudar por favor?!Por Maey[/quote] Você tem que seguir as instruções. Ele diz: "Clique em Inserir > Módulo e cole o seguinte código na janela do módulo", e você precisa fazer exatamente isso. Certifique-se de colar o código na janela do módulo, não na janela de código da planilha.
Este comentário foi feito pelo moderador no site
Estou usando o excel para mac 2011. Como posso executar o código no meu sistema? obrigado!
Este comentário foi feito pelo moderador no site
RE: Fórmula CountBold Esta fórmula não parece ser dinâmica. Embora funcione na primeira passagem, se eu alterar as células em negrito, os contadores não serão atualizados, a menos que eu reinsira a fórmula novamente. Alguma dica?
Este comentário foi feito pelo moderador no site
Sim, isso é o mesmo para mim, caso contrário, funciona muito bem. Mas se isso pudesse ser resolvido para atualizar a contagem após cada célula desmarcada, como outras contagens básicas, seria perfeito!
Este comentário foi feito pelo moderador no site
Queridos rapazes,
A fórmula não será atualizada se você apenas alterar o formato das células numéricas.
Ele é atualizado apenas quando você altera o conteúdo da célula.
Este comentário foi feito pelo moderador no site
Аесли в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
Este comentário foi feito pelo moderador no site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Este comentário foi feito pelo moderador no site
Olá Carlão,

Galera para ajudar. Depois de colocar novas células em negrito, a soma não será atualizada automaticamente. Mas quando você clica duas vezes na célula da fórmula e pressiona Enter, a soma será atualizada. Por favor, tente.

Atenciosamente,
Mandy
Este comentário foi feito pelo moderador no site
Oi Mandy
Obrigado pela sua resposta,
Sim, eu sei que depois de clicar duas vezes a soma será atualizada.
Existe alguma maneira de atualizar automaticamente a soma?

Saudações
Carlo
Este comentário foi feito pelo moderador no site
Olá Carlão,

Desculpe por não ter a solução para atualizar automaticamente a soma. A maneira mais fácil que consigo pensar é pressionar Ctrl + Alt + F9 para recalcular todas as planilhas em todas as pastas de trabalho abertas. Tenha um bom dia.

Atenciosamente,
Mandy
Este comentário foi feito pelo moderador no site
Eu utilizo a função e continuo recebendo o #NOME? erro. Estou usando Excel 365 e Windows11.
Este comentário foi feito pelo moderador no site
Olá, Antonio

Você copiou e colou o código no Módulo of Janela Microsoft Visual Basic for Applications em sua planilha? Depois de colar o código, você deve inserir a fórmula conforme necessário.

Ou você pode enviar seu arquivo aqui, podemos verificar onde está o problema.

Obrigado!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL