Skip to main content

Conas uimhreacha a lúbadh idir lúibíní in Excel amháin?

Má tá liosta de shreangáin téacs ann, agus nach dteastaíonn uait ach na huimhreacha go léir idir lúibíní mar a thaispeántar thíos a thaispeántar, conas is féidir leat é a láimhseáil go tapa? San Airteagal seo, tugaim isteach roinnt cleasanna duit chun na huimhreacha idir lúibíní a achoimriú in Excel amháin.


Uimhreacha suime idir lúibíní leis an bhfoirmle amháin

Le huimhreacha a lúbadh idir lúibíní amháin, is féidir leat na huimhreacha atá idir lúibíní a bhaint ar dtús, agus ansin iad a chur suas.

1. Roghnaigh cill bhán in aice leis an gcill ar mhaith leat a huimhreacha a lúbadh idir lúibíní, B2 mar shampla, iontráil an fhoirmle seo
=IF(ISERROR(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1))),0,(MID(A1,FIND("(",A1)+1,(FIND(")",A1))-(FIND("(",A1)+1)))+0),
agus ansin tarraing láimhseáil líonta uathoibríoch síos chun uimhreacha atá idir lúibíní ó gach cill a bhaint. Féach an pictiúr:
uimhreacha suim doc idir lúibíní 2

Leid: san fhoirmle, is é A1 an chill ar mhaith leat na huimhreacha idir lúibíní a bhaint aisti.

2. Roghnaigh cill a gcuirfidh tú an toradh achomair uirthi, iontráil = SUM (B1: B8), agus brúigh Iontráil eochair. Féach an pictiúr:
uimhreacha suim doc idir lúibíní 3

Leid: san fhoirmle, is é B1: B8 na huimhreacha a bhain tú as an liosta bunaidh de shreangán téacs agus ba mhaith leat achoimre a dhéanamh orthu.


Uimhreacha suime idir lúibíní le Feidhm Shainithe amháin

Is féidir leat Feidhm Shainithe a chur i bhfeidhm freisin chun uimhreacha a lúbadh idir lúibíní.

1. Brúigh Alt + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód leis an script bán.

VBA: Suimeanna uimhreacha idir lúibíní

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

uimhreacha suim doc idir lúibíní 4

2. Sábháil an cód agus téigh chun cill a roghnú a chuirfidh an toradh air, agus cuir isteach an fhoirmle seo = SumBracket (A1: A8), brúigh Iontráil eochair. Féach an pictiúr:
uimhreacha suim doc idir lúibíní 5


Uimhreacha suime idir lúibíní le Kutools le haghaidh Excel amháin

I ndáiríre, le Kutools le haghaidh Excel'S Sliocht Téacs feidhm chun uimhreacha a bhaint idir lúibíní, agus ansin an Suim luachanna iomlána feidhm chun na huimhreacha a achoimriú.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil :(Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!)

1. Roghnaigh na teaghráin is mian leat uimhreacha a bhaint idir lúibíní, agus cliceáil Kutools> Téacs > Sliocht Téacs. Féach an pictiúr:
uimhreacha suim doc idir lúibíní 6

2. Sa Sliocht Téacs dialóg, iontráil (*) isteach sa Téacs bosca téacs, agus cliceáil Cuir é a chur leis an Liosta sleachta. Ansin cliceáil Ok, agus cill a roghnú chun na huimhreacha eastósctha a chur sa dialóg popping, C1 mar shampla. Féach an pictiúr:

Nóta: Má tá rialacha eastósctha eile sa Liosta Sliocht alt, dícheangail na rialacha eastósctha seo le do thoil, agus ná seiceáil ach an riail nua maidir le sliocht breise (*).


uimhreacha suim doc idir lúibíní 7 saighead lámhaigh ar dheis uimhreacha suim doc idir lúibíní 8

3. cliceáil OK, agus anois baintear na huimhreacha idir lúibíní. De réir réamhshocraithe, aithnítear go bhfuil na huimhreacha idir lúibíní diúltach, ní mór duit a luachanna iomlána a shuimiú.
uimhreacha suim doc idir lúibíní 9

4. Roghnaigh cill a gcuirfidh tú toradh an ríofa air, cliceáil Kutools > Cúntóir Foirmle > Math & Trig > Suim luachanna iomlána. Féach an pictiúr:
uimhreacha suim doc idir lúibíní 10

5. Sa Cúntóir Foirmle dialóg, roghnaigh an raon ina bhfuil na huimhreacha eastósctha isteach Uimhir bosca téacs, C1: C8 sa chás seo. Cliceáil Ok, cuireadh luachanna iomlána na n-uimhreacha leis. Féach an pictiúr:

uimhreacha suim doc idir lúibíní 11 saighead lámhaigh ar dheis uimhreacha suim doc idir lúibíní 12

Leid. Más mian leat triail saor in aisce a fháil ar an Sliocht Téacs agus Suim luach absalóideachs feidhm, téigh le do thoil íoslódáil Kutools le haghaidh Excel ar dtús, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.

Uirlisí Táirgiúlachta Oifige is Fearr

Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

cluaisín kte 201905


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (14)
No ratings yet. Be the first to rate!
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