Sut i dalgrynnu ystod o rifau hyd yn oed yn Excel?
Beth sydd hyd yn oed yn Excel? Talgrynnu hyd yn oed a elwir hefyd yn dalgrynnu bancwyr, yn y bôn mae'n union fel talgrynnu arferol, ac eithrio pan mai'r rhif i'w dalgrynnu yw rhif 5. Os yw'r digid cyn y 5 yn od, dylech dalgrynnu, ac os yw'r digid cyn y 5 yn hyd yn oed, dylech chi dalgrynnu i lawr.
Er enghraifft, Byddai 23.345 rownd hyd yn oed ar y ganradd yn 23.34. a Byddai 12.335 rownd hyd yn oed ar y ganradd yn 12.34.
Yn yr erthygl hon, byddaf yn siarad am sut i wneud y bancwyr yn talgrynnu yn Excel.
Rhifau crwn hyd yn oed gyda Swyddogaeth wedi'i Diffinio gan Ddefnyddiwr
Rhifau crwn hyd yn oed gyda chod VBA
Talgrynnu rhifau i eilrif Kutools for Excel
Rhifau crwn hyd yn oed gyda Swyddogaeth wedi'i Diffinio gan Ddefnyddiwr
Gallwch ddefnyddio'r swyddogaeth ddiffiniedig ganlynol i dalgrynnu rhifau hyd yn oed yn Excel. Gwnewch fel a ganlyn:
1. Dewiswch y rhifau rydych chi am eu talgrynnu hyd yn oed.
2. Yna Dal i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.
Swyddogaeth BankersRound (num, manwl gywirdeb)
BankersRound = Rownd (num, manwl gywirdeb)
Swyddogaeth End
4. Cadwch y cod, a nodwch y fformiwla = banc banc (a1,2) i mewn i'r gell wag gyfagos. Gweler y screenshot:
5. Yna pwyswch Rhowch allwedd. A dewiswch y gell B1, yna llusgwch y ddolen llenwi i'r ystod rydych chi am gynnwys y fformiwla hon. Gweler y screenshot:
Rhifau crwn hyd yn oed gyda chod VBA
Os nad ydych chi am ddefnyddio'r swyddogaeth ddiffiniedig, gall y cod VBA canlynol eich helpu chi hefyd. Gwnewch fel hyn:
1. Dewiswch yr ystod rydych chi am ei dalgrynnu hyd yn oed.
2. Yna Dal i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y ModiwlauFfenestr.
Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub4. Yna pwyswch y F5 allwedd i redeg y cod hwn, yn y blwch prydlon, nodwch nifer y degolion yr ydych am eu talgrynnu. Gweler y screenshot:
5. Yna cliciwch OK, mae'r holl rifau a ddewiswyd wedi'u talgrynnu i eilrif. Gweler sgrinluniau:
 |
 |
 |
Talgrynnu rhifau i eilrif Kutools for Excel
Ni allwch y swyddogaeth a ddiffiniwyd gan y defnyddiwr na'r cod VBA deimlo mor gymhleth, gallaf gyflwyno ffordd hawdd ichi ei datrys. Gyda Rownd heb fformiwla of Kutools for Excel, gallwch chi dalgrynnu ystod o rifau yn gyflym hyd yn oed.
Kutools for Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.
Ar ôl gosod Kutools for Excel, gallwch wneud fel a ganlyn:
1. Tynnwch sylw at yr ystod rydych chi am ei dalgrynnu hyd yn oed.
2. Cliciwch Kutools > Rownd, gweler y screenshot:
3. Yn y Rownd heb Fformiwla blwch deialog, nodwch y lle degol sydd ei angen arnoch, ac yna dewiswch Rownd i Hyd yn oed dan Opsiwn, a gallwch chi gael rhagolwg o'r canlyniad o'r Rhagolwg Pane. Gweler y screenshot:
4. Yna cliciwch OK or Gwneud cais, bydd yr holl rifau yn cael eu talgrynnu i 2 degol hyd yn oed.
Cliciwch Rownd i Hyd yn oed i wybod mwy am y nodwedd hon.
Erthygl gysylltiedig:
Rownd / rownd i fyny / talgrynnu i lawr ystod o rifau celloedd yn Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
