Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս գումարները թվարկել փակագծերում միայն Excel- ում:

Եթե ​​կա տեքստային տողերի ցուցակ, և դուք պարզապես ցանկանում եք բոլոր թվերը ավելացնել փակագծերում, ինչպես ցույց է տրված նկարներից ներքևում, ինչպե՞ս կարող եք արագ կարգավորել այն: Այս հոդվածում ես ձեզ համար ներկայացնում եմ որոշ հնարքներ `Excel- ում փակագծերում թվերն ամփոփելու համար:

փաստաթղթերի գումարների թվերը փակագծերում 1
Փակագծերի ներսում գումարային թվերը միայն բանաձևով

Փակագծերի ներսում գումարային թվերը միայն Սահմանված գործառույթով

Փակագծերում տրված գումարների քանակը միայն Kutools- ի համար Excel- ի համարլավ գաղափար 3

Փակագծերի ներսում գումարային թվերը միայն բանաձևով

Միայն փակագծերի մեջ թվերն ամփոփելու համար նախ կարող եք դուրս բերել փակագծերում պարունակվող թվերը, ապա ավելացնել դրանք:

1. Ընտրեք մի դատարկ բջիջ այն բջիջի կողքին, որը ցանկանում եք ամփոփել դրա թվերը փակագծերում, օրինակ ՝ B2, մուտքագրեք այս բանաձևը
=IF(ISERROR(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1))),0,(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1)))+0),
և այնուհետև ներքև քաշեք ավտոմատ լրացման բռնիչը ՝ յուրաքանչյուր բջիջից փակագծերում գտնվող համարները հանելու համար: Տեսեք,
փաստաթղթերի գումարների թվերը փակագծերում 2

Ակնարկ: բանաձևում A1- ը այն բջիջն է, որից ուզում եք հանեք փակագծերի ներսում գտնվող համարները:

2. Ընտրեք բջիջ, որի վրա կտեղադրեք ամփոփման արդյունքը, մուտքագրեք = Գումար (B1: B8)եւ սեղմեք Մտնել բանալի. Տեսեք,
փաստաթղթերի գումարների թվերը փակագծերում 3

Ձեր պատասխանը ուղարկված չէ: B1: B8 բանաձևում թվերն են, որոնք դուք վերցրել եք տեքստի տողի բնօրինակ ցուցակից և ցանկանում եք ամփոփել:

Փակագծերի ներսում գումարային թվերը միայն Սահմանված գործառույթով

Դուք նաև կարող եք կիրառել Սահմանված գործառույթ ՝ փակագծերի ներսում թվերը գումարելու համար:

1. Մամուլ Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, և ներքևի կոդը տեղադրեք դատարկ գրությանը:

VBA. Փակագծերում գումարների թվերը

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

փաստաթղթերի գումարների թվերը փակագծերում 4

2. Պահպանեք կոդը և գնացեք ընտրելու այն բջիջը, որը կտեղադրի արդյունքը և մուտքագրեք այս բանաձևը = SumBracket (A1: A8), սեղմեք Մտնել բանալի. Տեսեք,
փաստաթղթերի գումարների թվերը փակագծերում 5

Փակագծերում տրված գումարների քանակը միայն Kutools- ի համար Excel- ի համար

Իրականում, հետ Excel- ի համար նախատեսված գործիքներ'S Քաղվածք տեքստ գործառույթը փակագծերում համարներ հանելու համար, և այնուհետև կիրառել այն Գումարի բացարձակ արժեքները գործառույթ ՝ թվերն ամփոփելու համար:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 
Անվճար ներբեռնում
անվճար լիարժեք հատկություններով 30 օրվա ընթացքում

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև :(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Փակագծերում ընտրեք այն տողերը, որոնք ցանկանում եք թվեր հանել, և կտտացրեք Կուտուլս>> Տեքստ > Քաղվածք տեքստ, Տեսեք,
փաստաթղթերի գումարների թվերը փակագծերում 6

2. Մեջ Քաղվածք տեքստ երկխոսություն, մուտքագրեք (*) մեջ Տեքստ տեքստային տուփ և սեղմեք Ավելացնել ավելացնել այն Քաղվածքների ցուցակ. Այնուհետեւ կտտացրեք Ok, և ընտրելու համար բջիջ ՝ դուրս բերված համարները տեղաբաշխման երկխոսության մեջ տեղադրելու համար, օրինակ ՝ C1: Տեսեք,

Նշում: Եթե ​​կան այլ արդյունահանման կանոններ Քաղվածքների ցուցակ բաժնում, խնդրում ենք հանել այս արդյունահանման կանոնները և ստուգել միայն նոր ավելացված քաղվածքի կանոնը (*).


փաստաթղթերի գումարների թվերը փակագծերում 7 կրակոց նետը աջ փաստաթղթերի գումարների թվերը փակագծերում 8

3: սեղմեք OK, և այժմ փակագծերում թվերը հանվում են: Լռելյայն, փակագծերում գտնվող համարները ճանաչվում են որպես բացասական, դուք պետք է ամփոփեք դրանց բացարձակ արժեքները:
փաստաթղթերի գումարների թվերը փակագծերում 9

4. Ընտրեք բջիջ, որի վրա կտեղադրեք հաշվարկման արդյունքը, կտտացրեք Կուտոլս > Բանաձևի օգնական > Մաթեմատիկա և ազդանշան > Գումարի բացարձակ արժեքները, Տեսեք,
փաստաթղթերի գումարների թվերը փակագծերում 10

5. Մեջ Բանաձևի օգնական երկխոսություն, ընտրեք միջակայքը, որը պարունակում է արդյունահանված թվեր Թիվ տեքստային տուփ, C1: C8 այս դեպքում: Սեղմել Ok, թվերի բացարձակ արժեքները ավելացվել են: Տեսեք,

փաստաթղթերի գումարների թվերը փակագծերում 11 կրակոց նետը աջ փաստաթղթերի գումարների թվերը փակագծերում 12

Հուշում Եթե ​​ցանկանում եք ունենալ անվճար փորձարկում Քաղվածք տեքստ և Գումարի բացարձակ արժեքըs գործառույթը, խնդրում ենք այցելել tofree ներլցումներ Kutools Excel- ի համար նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (15)
No ratings yet. Be the first to rate!
Anna
Anna
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
Reply
0
0
Wojtek
Wojtek
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
Reply
0
0
Wojtek
Wojtek
This comment was minimized by the moderator on the site
...ich meinte addieren Dezimalbruche 🙂
Reply
0
0
Sunny
Sunny     Wojtek
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
Reply
Report
0
0
Wojtek
Wojtek     Sunny
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
Reply
0
0
Sunny
Sunny     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.
Reply
Report
0
0
Wojtek
Wojtek     Sunny
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
Reply
0
0
Wojtek
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?
Reply
0
0
Adduar
Adduar
This comment was minimized by the moderator on the site
I'm sorry, I meant adding the numbers outside the bracket.
Reply
0
0
Sunny
Sunny     Adduar
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 )*.
Reply
Report
0
0
Adduar
Adduar
This comment was minimized by the moderator on the site
How to add numbers within the bracket?
Reply
0
0
Andy
Andy
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
Reply
0
0
Sunny
Sunny     Andy
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
Reply
Report
0
0
Cess
Cess
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
Reply
0
0
Sunny
Sunny     Cess
This comment was minimized by the moderator on the site
Sorry I do not know
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations