Skip i'r prif gynnwys

Sut i dynnu gwerth degol o linyn yn Excel?

Bydd y tiwtorial hwn yn dweud wrthych sut i dynnu gwerth degol yn unig o linyn yn Excel.

Tynnwch werth degol gyda'r fformiwla yn Excel
Tynnwch werth degol gyda VBA yn Excel
Tynnwch werth degol yn hawdd gyda Kutools ar gyfer Excel


Tynnwch werth degol gyda'r fformiwla yn Excel

Mae dau fformiwla a all eich helpu i dynnu gwerth degol o linyn, dewiswch un ohonynt yn ôl yr angen.

Y fformiwla, waeth beth yw'r arwydd o werthoedd:

Dewiswch gell a theipiwch y fformiwla hon = ABS (A1-TRUNC (A1)) (A1 yw'r gell rydych chi am dynnu gwerth degol ohoni) i'r Bar Fformiwla, ac yna pwyswch Rhowch allwedd. Daliwch i ddewis y gell canlyniad cyntaf, llusgo handlen llenwi i lawr i gael yr holl ganlyniadau. Gallwch weld bod y gwerthoedd degol yn cael eu tynnu heb arwydd yn unig fel y dangosir isod.

Y fformiwla sy'n adlewyrchu arwydd gwerthoedd:

Dewiswch gell a theipiwch y fformiwla hon = A1-TRUNC (A1) (A1 yw'r gell rydych chi am dynnu gwerth degol ohoni) i'r Bar Fformiwla, ac yna pwyswch Rhowch allwedd. Daliwch ati i ddewis y gell canlyniad cyntaf, a llusgo handlen llenwi i lawr i gael yr holl ganlyniadau. Gallwch weld bod y gwerthoedd degol yn cael eu tynnu gydag arwydd fel y dangosir isod.


Tynnwch rifau degol yn hawdd o ystod ddethol yn Excel:

Kutools ar gyfer Excel's Testun Detholiad mae cyfleustodau yn eich helpu i dynnu'r holl werthoedd degol yn hawdd o ystod benodol fel y dangosir isod. 
Dadlwythwch a rhowch gynnig arni nawr! (Llwybr am ddim 30 diwrnod)


Tynnwch werth degol gyda VBA yn Excel

Mae yna VBA sy'n gallu tynnu gwerthoedd degol gyda'r arwydd yn unig o dannau.

1. Gwasgwch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr naid, cliciwch Mewnosod > Modiwlau, yna gludwch y cod VBA canlynol i'r modiwl.

VBA: Tynnu gwerthoedd degol yn unig

Sub GetNumber()
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            KK = xSRgArea(K).Row - xSRg.Row
            If IsNumeric(xRgVal) Then
                xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal)
            End If
        Next
    Next
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod. Yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch yr ystod rydych chi am dynnu gwerthoedd degol ohoni yn unig, a chliciwch ar y OK botwm. Gweler y screenshot:

4. Yna un arall Kutools ar gyfer Excel blwch deialog yn ymddangos, mae angen i chi ddewis cell ar gyfer lleoli'r gwerthoedd degol a dynnwyd. Gweler y screenshot:

Gallwch weld mai dim ond gwerthoedd degol rhifau penodedig sy'n cael eu tynnu a'u rhoi ar ystod benodol fel y dangosir isod.


Tynnwch werth degol yn hawdd gyda Kutools ar gyfer Excel

Os nad ydych chi'n hoffi'r fformiwla a'r dulliau VBA, dyma fi'n cyflwyno teclyn defnyddiol i chi - Kutools ar gyfer Excel. Gyda'i Testun Detholiad cyfleustodau, gallwch chi dynnu'r holl werth degol yn hawdd o ystod yn Excel.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch yr ystod gyda degol rydych chi am ei dynnu, ac yna cliciwch Kutools > Testun > Testun Detholiad. Gweler y screenshot:

2. Yn y Testun Detholiad blwch deialog, math .* i mewn i'r blwch Testun, ac yna cliciwch ar y Ychwanegu botwm. O'r diwedd cliciwch ar y OK botwm. Gweler y screenshot:

3. Mewn un arall yn popio i fyny Testun Detholiad blwch deialog, dewiswch gell wag ar gyfer lleoli'r canlyniad, ac yna cliciwch ar y OK botwm.

Yna mae'r holl werthoedd degol mewn ystod ddethol yn cael eu tynnu ar unwaith. Gweler y screenshot:

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Tynnwch werth degol yn hawdd gyda Kutools ar gyfer Excel


Erthyglau Perthynas:

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Para extraer los decimales es más sencillo hacer el entero de la cantidad a separar, después restar la cantidad inicial menos la obtenida con el entero. Una vez hecho esto, si quieres formato de decimales solo aplicar este. Si quieres ver los decimales aislados como números enteros, multiplicas el resultado por 100.
This comment was minimized by the moderator on the site
WHAT IN THE WORLD DID I TRY TO DO?
IF((C9-TRUNC(C9))<0.59,C9,IF((TRUNC(C9)+((C9-TRUNC(C9))))-TRUNC((TRUNC(C9)+((C9-TRUNC(C9)))))>0.59,(TRUNC((TRUNC(C9)+((C9-TRUNC(C9))))))/0.6)),((C8-TRUNC(C8))>0.59,(TRUNC(C8)+((C8-TRUNC(C8))/0.6)),C8)))))


by the way C9 was length of a audio file but had entered "18.75" value
***?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations