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

Hvordan summeres / tælles fedt tal i en række celler i Excel?

Når du har et datainterval, der indeholder nogle dristige tal i et regneark, og nu vil du kun sammenfatte eller tælle de dristige celler, kan du selvfølgelig tilføje dem en efter en manuelt, men det vil være tidskrævende. Hvordan kunne du kun sammenfatte eller tælle de dristige celler i Excel på en nem og hurtig måde?

Tæl fedt tal i et interval med brugerdefineret funktion (VBA og formel)
Summen med fed skrift i et interval med brugerdefineret funktion (VBA og formel)
Flere klik for at tælle og summere fede celler i et interval med Kutools til Excel


Tæl fed tal i et interval med brugerdefineret funktion

Følgende Brugerdefineret funktion kan hjælpe dig med hurtigt at få antallet af dristige celler. Gør som dette:

1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Tæl fedt tal i en række celler

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. Gem derefter denne kode, og skriv denne formel = CountBold (A1: C9) ind i en tom celle, se skærmbillede:

doc-count-bold-celler1

4. Tryk derefter på Indtast nøgle, og du tæller de dristige celler i området A1: C9.

doc-count-bold-celler2

Bemærk:A1: C9 i formlen angiver det område, du vil bruge funktionen til at tælle de fedte celler, kan du ændre det efter behov.


Summen med fed skrift i et interval med brugerdefineret funktion

Og hvis du kun vil opsummere de fedte tal i et dataområde, kan jeg også oprette en brugerdefineret funktion, som du kan løse den.

1. Hold nede i ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Summen med fed skrift i en række celler

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. Gem derefter denne kode, og skriv denne formel = sumbold (A1: C9) ind i en tom celle, se skærmbillede:

doc-count-bold-celler3

4. Og tryk derefter på Indtast tast, alle de fedte tal i området A1: C9 er blevet tilføjet. Se skærmbillede:

doc-count-bold-celler4

Bemærk:A1: C9 i formlen angiver det område, du vil bruge funktionen til at opsummere de fedte celler, kan du ændre det efter behov.


Flere klik for at tælle og summere fede celler i et interval med Kutools til Excel

YDu kan let tælle eller sammenfatte alle dristige celler i et interval med flere klik uden at håndtere kompliceret VBA-kode og huske formler.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. For at tælle fede celler skal du vælge en tom celle til at finde resultatet og derefter klikke på Kutools > Kutools Funktioner > Statistisk og matematik > COUNTBYFONTBOLD.

Klik på for at opsummere federe celler Kutools > Kutools Funktioner > Statistisk og matematik > SUMBYFONTBOLD. Se skærmbillede:

2. I Function Argumenter i dialogboksen, skal du angive det interval med fedtholdige celler, du skal tælle eller summere i referenceboksen, og klik derefter på OK .

Nu tælles eller summeres alle fedceller i det angivne interval med det samme i den valgte celle. Se skærmbillede:

  Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Hold formelcellehenvisning konstant med Kutools til Excel


Relaterede artikler:

Hvordan identificeres og vælges alle fede celler eller tekst i Excel?


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (21)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
hej, bruger excel 2013 hollandsk med kutools 6.5, men kan ikke bruge læselayout. spørg før råb løses i denne version ???
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]hej, bruger excel 2013 hollandsk med kutools 6.5, men kan ikke underordne ved hjælp af læselayout. spørg før råb løses i denne version ???Af Kersten[/quote] Hej, kontakt mig venligst på jaychivo#extendoffice.com. Erstat venligst # med @. :-)
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at tælle baseret på cellefarve, hvis tekst er fed?
Denne kommentar blev minimeret af moderatoren på webstedet
DET HER ER FEDT !!!! Det fungerede perfekt!! tak skal du have
Denne kommentar blev minimeret af moderatoren på webstedet
Dette fungerer perfekt, bortset fra at det ikke ser ud til at tilføje mine decimaler, kun tilføjer hele dollaren. Hvis du har en løsning på dette, vil jeg være meget taknemmelig.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Katie, Brug nedenstående kode, da summen viser decimaler. Funktion SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For hver rCell In rng Hvis rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Funktion
Denne kommentar blev minimeret af moderatoren på webstedet
Dette virker en godbid. Jeg har kun ét problem...det lader ikke til at tilføje noget efter et decimaltegn. Enhver hjælp ville blive meget værdsat.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak.. det virker...
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kopierede og indsatte kode i excel, men får jeg #NAVN? fejl. Jeg sørgede for at aktivere makroer og bruge excel 2010 version (ved ikke om det ændrer noget). Kan nogen venligst hjælpe?!
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Jeg kopierede og indsatte kode i excel, men får du #NAVN? fejl. Jeg sørgede for at aktivere makroer og bruge excel 2010 version (ved ikke om det ændrer noget). Kan nogen venligst hjælpe?!Af Maey[/quote] Du skal følge instruktionerne. Der står: "Klik på Indsæt > Modul, og indsæt følgende kode i modulvinduet", og du skal gøre præcis det. Sørg for at indsætte koden i modulvinduet, ikke i arkkodevinduet.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bruger excel til mac 2011. Hvordan kan jeg køre koden på mit system? tak!
Denne kommentar blev minimeret af moderatoren på webstedet
RE: CountFed formel Denne formel ser ikke ud til at være dynamisk. Selvom det virker ved første gang, hvis jeg ændrer cellerne med fed skrift, opdateres tællerne ikke, medmindre jeg indtaster formlen igen. Nogle tips?
Denne kommentar blev minimeret af moderatoren på webstedet
Ja, det er det samme for mig, ellers fungerer det fint. Men hvis dette kunne løses, så det opdaterer tællingen efter hver cellefravælgelse ligesom andre grundlæggende tællinger, ville det være perfekt!
Denne kommentar blev minimeret af moderatoren på webstedet
Kære gutter,
Formlen opdateres ikke, hvis du blot ændrer formatet på talcellerne.
Den opdateres kun, når du ændrer celleindholdet.
Denne kommentar blev minimeret af moderatoren på webstedet
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
Denne kommentar blev minimeret af moderatoren på webstedet
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Carlo,

Glad for at hjælpe. Når du har fed nye celler, opdateres summen ikke automatisk. Men når du dobbeltklikker på formelcellen og derefter trykker på Enter, vil summen opdateres. Prøv venligst.

Med venlig hilsen,
Mandy
Denne kommentar blev minimeret af moderatoren på webstedet
Hej mandy
tak for dit svar,
Ja, jeg ved, at efter dobbeltklik vil summen uograderes.
Er der nogen måde at opgradere beløbet automatisk på?

Hilsen
Carlo
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Carlo,

Beklager, at jeg ikke har løsningen til automatisk at opgradere summen. Den nemmeste måde, jeg kan komme i tanke om, er at trykke på Ctrl + Alt + F9 for at genberegne alle regneark i alle åbne projektmapper. Hav en god dag.

Med venlig hilsen,
Mandy
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bruger funktionen og bliver ved med at få #NAVN? fejl. Jeg bruger Excel 365 og Windows11.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Anthony

Har du kopieret og indsat koden i Moduler of Vinduet Microsoft Visual Basic til applikationer i dit arbejdsark? Efter at have indsat koden, skal du indtaste formlen, som du har brug for.

Eller du kan uploade din fil her, vi kan tjekke, hvor problemet er.

Tak!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL