Ga naar hoofdinhoud

Hoe getallen tussen haakjes alleen in Excel optellen?

Als er een lijst met tekstreeksen is en u alle getallen tussen haakjes wilt optellen, zoals onderstaand screenshot, hoe kunt u dit dan snel afhandelen? In dit artikel introduceer ik enkele trucs om de getallen tussen haakjes alleen in Excel op te tellen.


Som getallen tussen haakjes alleen met formule

Om alleen getallen tussen haakjes op te tellen, kunt u eerst de getallen tussen haakjes extraheren en ze vervolgens optellen.

1. Selecteer een lege cel naast de cel waarvan u de getallen tussen haakjes wilt optellen, bijvoorbeeld B2, voer deze formule in
=IF(ISERROR(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1))),0,(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1)))+0),
en sleep vervolgens de automatische vulgreep omlaag om getallen tussen haakjes uit elke cel te halen. Zie screenshot:
doc somnummers tussen haakjes 2

Tip: in de formule is A1 de cel waaruit u de getallen tussen haakjes wilt extraheren.

2. Selecteer een cel waarin u het optelresultaat wilt plaatsen, voer in = SOM (B1: B8)en druk op Enter sleutel. Zie screenshot:
doc somnummers tussen haakjes 3

Tip: in de formule zijn B1: B8 de getallen die u uit de originele lijst met tekstreeksen hebt gehaald en wilt samenvatten.


Somnummers tussen haakjes alleen met gedefinieerde functie

U kunt ook een gedefinieerde functie toepassen om getallen tussen haakjes op te tellen.

1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen plak onderstaande code in het lege script.

VBA: somnummers tussen haakjes

Function SumBracket(Target As Range) As Double
'UpdatebyExtendoffice20160901
Dim xCell As Range
Dim xObjs As Object, xObj As Object
Dim xSum As Double
Set xObjs = CreateObject("VBScript.RegExp")
xSum = 0
With xObjs
    .Global = True
    .Pattern = "\((\d+(\.\d+)?)\)"

    For Each xCell In Target
      If xCell.Value <> "" Then
        For Each xObj In xObjs.Execute(xCell.Value)
            xSum = xSum + xObj.submatches(0)
        Next
      End If
    Next
End With
SumBracket = xSum
End Function

doc somnummers tussen haakjes 4

2. Sla de code op en ga naar een cel om het resultaat te plaatsen, en voer deze formule in = SumBracket (A1: A8), druk op Enter sleutel. Zie screenshot:
doc somnummers tussen haakjes 5


Somnummers tussen haakjes alleen met Kutools voor Excel

Eigenlijk met Kutools for Excel's Extraheer tekst functie om getallen tussen haakjes te extraheren, en pas vervolgens de Som absolute waarden functie om de getallen op te tellen.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na het installeren van Kutools voor Excel, doe het als volgt :(Gratis download Kutools voor Excel nu!)

1. Selecteer de tekenreeksen waarvan u getallen tussen haakjes wilt extraheren en klik op Kutools> Tekst > Extraheer tekst. Zie screenshot:
doc somnummers tussen haakjes 6

2. In de Extraheer tekst dialoogvenster, voer in (*) in de Tekst textbox, en klik Toevoegen om het toe te voegen aan de Extract lijst. Dan klikken Ok, en om een ​​cel te selecteren om de geëxtraheerde getallen in het popping-dialoogvenster te plaatsen, bijvoorbeeld C1. Zie screenshot:

Opmerking: Als er andere extraheerregels in het Extract lijst sectie, schakel deze extraheerregels uit en vink alleen de nieuwe toegevoegde extractieregel aan van (*).


doc somnummers tussen haakjes 7 geschoten pijl naar rechts doc somnummers tussen haakjes 8

3. klikken OK, en nu worden de cijfers tussen haakjes geëxtraheerd. Standaard worden de getallen tussen haakjes als negatief herkend, u moet hun absolute waarden optellen.
doc somnummers tussen haakjes 9

4. Selecteer een cel waarin u het berekeningsresultaat wilt plaatsen, klik op Kutools > Formule Helper > Math & Trig > Som absolute waarden. Zie screenshot:
doc somnummers tussen haakjes 10

5. In de Formule Helper dialoogvenster, selecteer het bereik dat de geëxtraheerde getallen bevat in Telefoon Nummer textbox, C1: C8 in dit geval. Klik Ok, de absolute waarden van de getallen zijn toegevoegd. Zie screenshot:

doc somnummers tussen haakjes 11 geschoten pijl naar rechts doc somnummers tussen haakjes 12

Tip. Als u een gratis proefversie van het Extraheer tekst en Som absolute waardes functie, download Kutools voor Excel alsjeblieft gratis eerst, en ga dan de bewerking toepassen volgens bovenstaande stappen.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Sunny,

I have a question as well. I have an excel sheet with numbers and some of them are in brackets. I want to add the values of the numbers in a row. Basically:
50 (50*) 100 150 = 350
How can I add (=sum) of all of them, including the one in brackets? I'ld appreciate your advise.
Best, Anna
This comment was minimized by the moderator on the site
Vielen Dank Sonnig,

jetzt ich sehe wo war das Problem. Sie schreiben im VBA und Zelle "." statt wie bei mir "," Ich habe im VBA diese Zeile:
.Pattern = "\((\d+(\.\d+)?)\)"
in diese:
.Pattern = "\((\d+(\,\d+)?)\)"
geändert und dann funktioniert alles perfekt.

Noch mall vielen, vielen Dank.
Schöne Grüße

Wojtek
This comment was minimized by the moderator on the site
...ich meinte addieren Dezimalbruche 🙂
This comment was minimized by the moderator on the site
Hi, Wojtek, if you just want to sum the decimal numbers only, try this code:
Function SumBracket(Target As Range) As Double
'UpdatebyExtendoffice20221209
Dim xCell As Range
Dim xObjs As Object, xObj As Object
Dim xSum As Double
Dim xNum As Integer
On Error Resume Next
Application.Volatile
Set xObjs = CreateObject("VBScript.RegExp")
xSum = 0
With xObjs
    .Global = True
    .Pattern = "\((\d+(\.\d+)?)\)"

    For Each xCell In Target
      If xCell.Value <> "" Then
        For Each xObj In xObjs.Execute(xCell.Value)
            xSum = xSum + Val(xObj.submatches(0)) - Int(Val(xObj.submatches(0)))
        Next
      End If
    Next
End With
SumBracket = xSum
End Function
This comment was minimized by the moderator on the site
Hallo Sonnig,
vielen Dank für die schnelle Antwort 😀. Um die Ganze klar zu machen gebe ich ein Beispiel meiner Aufgabe:

a(5), b(2,5), c(0,25) = 7,75

wie gesagt, mit:

a(5), b(2), c(21) im eine Zelle funktioniert die erste Makro super.

Vielen Dank und schöne Grüße
Wojtek
This comment was minimized by the moderator on the site
Sorry, Wojtek, I do undestand Geman, I just translate your question by Google so that I do not get your question clearly. Could you give me more description, for example, the data structure, are they in a cell or in different cell, in a column or in a row, what result you want.
This comment was minimized by the moderator on the site
Hallo Sonnig,

noch mal vielen Dank für die Mühe.

Geht um Summe alle Zahlen die in der Klammer stehen...
Erste Zelle: 458/1(2,5), 458/2(11), 458/3(0,75)
Zweite Zelle: Summe von 2,5 und 11 und 0,75
alles was in der Klammer steht in der erste Zelle sollte summiert sein. das Ergebnis soll in der Zweite Zelle erscheinen.

Vielen Dank und schöne Grüße
Wojtek
This comment was minimized by the moderator on the site
Hallo,
danke, Makro funktioniert super, aber leider nur mit Ganze Zahl, nicht mit Bruchzahl. Wäre das möglich zu ändern?
This comment was minimized by the moderator on the site
I'm sorry, I meant adding the numbers outside the bracket.
This comment was minimized by the moderator on the site
Hi, Adduar, I do not find a formula to solve your problem, maybe you only can use the Extract Text tool of Kutools for Excel to extract the numbers first, and then sum them, the conditions are *( and )*.
This comment was minimized by the moderator on the site
How to add numbers within the bracket?
This comment was minimized by the moderator on the site
Hi, How do I modify the pattern to sum everything between F-( and )


Example of my data is: F-(10) F-(12) E-(8)


the sum would be 22


thanks
This comment was minimized by the moderator on the site
Hi, Andy, please try this code:
Function SumBracket(Target As Range) As Double
'UpdatebyExtendoffice20160901
Dim xCell As Range
Dim xObjs As Object, xObj As Object
Dim xSum As Double
Set xObjs = CreateObject("VBScript.RegExp")
xSum = 0
With xObjs
.Global = True
.Pattern = "\-\((\d+(\.\d+)?)\)"

For Each xCell In Target
If xCell.Value <> "" Then
For Each xObj In xObjs.Execute(xCell.Value)
xSum = xSum + xObj.submatches(0)
Next
End If
Next
End With
SumBracket = xSum
End Function
This comment was minimized by the moderator on the site
Hello, is there a Google App Script version of the VBA script. I would like to use it in Google Sheets.
Thanks. :D
This comment was minimized by the moderator on the site
Sorry I do not know
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations