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

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

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


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

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

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 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո 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- ի համար նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (15)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, կա՞ VBA սկրիպտի Google App Script տարբերակ: Ես կցանկանայի օգտագործել այն Google Sheets-ում:
Շնորհակալություն։ :Դ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես չգիտեմ, թե
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ինչպես կարող եմ փոփոխել օրինաչափությունը՝ F-(-ի և )-ի միջև եղած ամեն ինչ ամփոփելու համար:


Իմ տվյալների օրինակն է. F-(10) F-(12) E-(8)


գումարը կկազմի 22


շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Էնդի, փորձեք այս կոդը.
SumBracket ֆունկցիան (Target as Range) որպես կրկնակի
― ԹարմացնելովExtendoffice20160901
Dim xCell-ը որպես տիրույթ
Dim xObjs որպես օբյեկտ, xObj որպես օբյեկտ
Dim xSum որպես կրկնակի
Սահմանել xObjs = CreateObject («VBScript.RegExp»)
xSum = 0
xObjs-ի հետ
.Գլոբալ = Ճշմարիտ
.Pattern = "\-\((\d+(\.\d+)?)\)"

Թիրախում գտնվող յուրաքանչյուր xCell-ի համար
If xCell.Value <> "" Ապա
Յուրաքանչյուր xObj-ի համար xObjs.Execute(xCell.Value)-ում
xSum = xSum + xObj.submatches(0)
հաջորդ
Վերջ: Եթե
հաջորդ
Վերջ
SumBracket = xSum
End գործառույթը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս ավելացնել թվեր փակագծում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես նկատի ունեի փակագծից դուրս թվերը ավելացնելը։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Adduar, ես չեմ գտնում ձեր խնդիրը լուծելու բանաձևը, գուցե դուք կարող եք օգտագործել միայն Excel-ի համար Kutools-ի Extract Text գործիքը, որպեսզի սկզբում հանեք թվերը, այնուհետև գումարեք դրանք, պայմաններն են *( և )*:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
danke, Makro funktioniert super, aber leider nur mit Ganze Zahl, nicht mit Bruchzahl. Wäre das möglich zu ändern?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
...ich meinte addieren Dezimalbruche 🙂
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Wojtek, եթե պարզապես ուզում եք գումարել միայն տասնորդական թվերը, փորձեք այս կոդը.
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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սոննիգ,
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.

Շատ շնորհակալություն և հարգանքներով
Wojtek
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, Վոյտեկ, ես չեմ հասկանում Geman-ը, ես պարզապես թարգմանում եմ ձեր հարցը Google-ով, որպեսզի հստակ չհասկանամ ձեր հարցը: Կարո՞ղ եք ինձ ավելի շատ նկարագրել, օրինակ՝ տվյալների կառուցվածքը, դրանք վանդակում են, թե տարբեր վանդակում, սյունակում, թե անընդմեջ, ինչ արդյունք եք ուզում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սոննիգ,

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 էր der Klammer steht in der erste Zelle sollte summiert sein. das Ergebnis soll in der Zweite Zelle erscheinen.

Շատ շնորհակալություն և հարգանքներով
Wojtek
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, եթե ձեր տվյալները և արդյունքն այսպիսին են.
https://cdn.extendoffice.com/images/stories/comments/sun-comment/doc-sunbracket.png
հոդվածի vba-ն կարող է կարգավորել այն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վիլեն Դանկ Սոննիգ,

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+)?)\)"
diese-ում:
.Pattern = "\((\d+(\,\d+)?)\)"
geändert und dann funktioniert alles perfekt.

Noch mall vielen, vielen Dank.
Greetings!

Wojtek
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից