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

Cum să sumați / să numărați numere aldine într-o gamă de celule din Excel?

Când aveți un interval de date care conține câteva numere îndrăznețe într-o foaie de lucru, iar acum doriți să însumați sau să numărați numai celulele aldine, desigur le puteți adăuga una câte una manual, dar va consuma mult timp. Cum ați putea însuma sau număra doar celulele îndrăznețe din Excel într-un mod ușor și rapid?

Numărați numere aldine într-un interval cu funcția definită de utilizator (VBA și formulă)
Sumați numerele aldine într-un interval cu funcția definită de utilizator (VBA și formulă)
Mai mulți fac clic pentru a număra și a suma celulelor îndrăznețe într-un interval cu Kutools pentru Excel


Numărați numerele aldine într-un interval cu funcția definită de utilizator

Următoarele Funcție definită de utilizator vă poate ajuta să obțineți rapid numărul de celule îndrăznețe. Vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Numărați numere aldine într-o gamă de celule

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. Apoi salvați acest cod și tastați această formulă = CountBold (A1: C9) într-o celulă goală, vezi captura de ecran:

doc-count-bold-celule1

4. Apoi apăsați Intrați tasta și veți număra celulele aldine din intervalul A1: C9.

doc-count-bold-celule2

Notă:A1: C9 în formulă indică intervalul pe care doriți să îl utilizați pentru a număra celulele aldine, îl puteți schimba după cum doriți.


Sumați numerele aldine într-un interval cu funcția definită de utilizator

Și dacă doriți să însumați doar numerele aldine dintr-un interval de date, pot crea, de asemenea, o funcție definită de utilizator pentru a o rezolva.

1. Țineți apăsată tasta ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Sumați numerele aldine într-o gamă de celule

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. Apoi salvați acest cod și tastați această formulă = sumbold (A1: C9) într-o celulă goală, vezi captura de ecran:

doc-count-bold-celule3

4. Și apoi apăsați Intrați tasta, toate numerele aldine din gama A1: C9 au fost adăugate. Vedeți captura de ecran:

doc-count-bold-celule4

Notă:A1: C9 în formula indică intervalul pe care doriți să îl utilizați pentru a însuma celulele aldine, îl puteți schimba în funcție de nevoile dvs.


Mai mulți fac clic pentru a număra și a suma celulelor îndrăznețe într-un interval cu Kutools pentru Excel

YPuteți număra sau suma cu ușurință toate celulele îndrăznețe dintr-un interval cu mai multe clicuri fără a gestiona codul VBA complicat și a aminti formule.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Pentru numărarea celulelor aldine, selectați o celulă goală pentru localizarea rezultatului, apoi faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > COUNTBYFONTBOLD.

Și pentru a însuma celule îndrăznețe, faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > SUMBYFONTBOLD. Vedeți captura de ecran:

2. În Fargumente unction caseta de dialog, specificați intervalul cu celule aldine pe care trebuie să le numărați sau să le sumați în caseta de referință, apoi faceți clic pe OK butonul.

Acum, numărarea sau însumarea tuturor celulelor aldine din intervalul specificat sunt populate imediat în celula selectată. Vedeți captura de ecran:

  Dacă doriți să aveți o încercare gratuită (30-zi) a acestei utilitati, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Păstrați constantă referința celulei de formulă cu Kutools pentru Excel


Articole pe aceeași temă:

Cum se identifică și se selectează toate celulele sau textele aldine din Excel?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (22)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
salut, folosind excel 2013 Dutch cu kutools 6.5, dar nu pot folosi aspectul de citire. intreaba inainte de a striga fi rezolvat in aceasta versiune ???
Acest comentariu a fost redus la minimum de moderatorul de pe site
[citat] bună, folosind Excel 2013 Dutch cu kutools 6.5, dar nu pot folosi aspectul de citire. intreaba inainte de a striga fi rezolvat in aceasta versiune ???Prin Kersten[/quote] Bună ziua, vă rog să mă contactați la jaychivo#extendoffice.com. Vă rugăm să înlocuiți # cu @. :-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a număra pe baza culorii celulei dacă textul este aldine?
Acest comentariu a fost redus la minimum de moderatorul de pe site
ASTA E GROZAV !!!! A funcționat perfect!! Mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru funcționează perfect, cu excepția faptului că nu pare să adauge zecimale, ci doar adaugă întregul dolar. Dacă aveți o soluție pentru asta, v-aș fi foarte recunoscător.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Katie, Folosește codul de mai jos, deoarece suma arată zecimale. Funcție SumBold(rng As Range) Dim rCell As Range Application.Volatil SumBold = 0 Pentru fiecare rCell În rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Funcție
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru funcționează un răsfăț. Am o singură problemă... nu pare să adauge nimic după o virgulă zecimală. Orice ajutor ar fi foarte apreciat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc.. functioneaza...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am copiat și inserat cod în excel, dar am primit #NAME? eroare. M-am asigurat că activez macrocomenzi și folosesc versiunea Excel 2010 (nu știu dacă asta schimbă ceva). Poate cineva ajuta va rog?!
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]Am copiat și inserat cod în excel, dar am primit #NAME? eroare. M-am asigurat că activez macrocomenzi și folosesc versiunea Excel 2010 (nu știu dacă asta schimbă ceva). Poate cineva ajuta va rog?!De Maey[/quote] Trebuie să urmați instrucțiunile. Scrie: „Faceți clic pe Inserare > Modul și inserați următorul cod în fereastra Modulului”, și trebuie să faceți exact acest lucru. Asigurați-vă că lipiți codul în fereastra Module, nu în fereastra Sheet code.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Folosesc excel pentru mac 2011. Cum pot rula codul pe sistemul meu? Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
RE: Formula CountBold Această formulă nu pare a fi dinamică. Deși funcționează la prima trecere, dacă schimb celulele îngroșate, contoarele nu se actualizează decât dacă reintroduc formula din nou. Orice sfaturi?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Da, asta este la fel pentru mine, altfel funcționează grozav. Dar dacă acest lucru ar putea fi rezolvat, astfel încât să reîmprospăteze numărul după fiecare deselectare a celulei, ca și alte numărări de bază, ar fi perfect!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragi baieti,
Formula nu se va actualiza dacă doar schimbați formatul celulelor numerice.
Se actualizează numai când modificați conținutul celulei.
Acest comentariu a fost redus la minimum de moderatorul de pe site
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Carlo,

Gald să ajute. După ce îndrăzneți celule noi, suma nu se va actualiza automat. Dar când faceți dublu clic pe celula formulei, apoi apăsați Enter, suma se va actualiza. Vă rugăm să încercați.

Cu sinceritate,
Mandy
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Mandy,
Multumesc pentru raspuns,
Da, știu că după dublu clic suma se va degrada.
Există vreo modalitate de a actualiza automat suma?

În ceea ce priveşte
Carlo
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Carlo,

Îmi pare rău că nu am soluția pentru actualizarea automată a sumei. Cel mai simplu mod la care mă pot gândi este să apăs Ctrl + Alt + F9 pentru a recalcula toate foile de lucru din toate registrele de lucru deschise. O zi plăcută.

Cu sinceritate,
Mandy
Acest comentariu a fost redus la minimum de moderatorul de pe site
Folosesc funcția și continui să primesc #NAME? eroare. Folosesc Excel 365 și Windows11.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Anthony

Ați copiat și lipit codul în Module of Fereastra Microsoft Visual Basic pentru aplicații în foaia ta de lucru? După ce lipiți codul, ar trebui să introduceți formula după cum aveți nevoie.

Sau puteți încărca fișierul aici, putem verifica unde este problema.

Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Anthony,
I was struggling with the same problem. For me, the solution ended up being very simple. I noticed I had 4 Modules listed. I removed all of them and then started over with the above instructions. Now it works perfectly.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL