Hogyan kerekítse a számtartományt egyenletesre az Excelben?

Mi az egyenletes az Excelben? Kerekítés akár bankárok kerekítésének is nevezhetõ, alapvetõen olyan, mint a normál kerekítés, kivéve, ha a kerekítendõ szám az 5. szám. Ha az 5 elõtti szám páratlan, akkor felfelé kell kerekíteni, és ha az 5 elõtti számjegy még akkor is lefelé kellene kerekednie.

Például, 23.345 a százalékos értékre kerekítve 23.34 lenne. és 12.335 a százalékos értékre kerekítve 12.34 lenne.

Ebben a cikkben arról fogok beszélni, hogyan lehet a bankárokat kerekíteni az Excel-ben.

Kerek számok párosításra a felhasználó által definiált funkcióval

Kerek számok párosra VBA kóddal

Kerekítse párosra a számokat a Kutools for Excel segítségével

Kerek számok párosításra a felhasználó által definiált funkcióval

A következő meghatározott függvény segítségével számokat kerekíthet egyenletesre az Excelben. Kérjük, tegye a következőket:

1. Válassza ki a párosítani kívánt számokat.

2. Ezután tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablakba.

Funkció BankersRound (szám, pontosság)
BankersRound = Kerek (szám, pontosság)
end Function

4. Mentse el a kódot, és írja be a képletet = bankár (a1,2) a szomszédos üres cellába. Lásd a képernyőképet:

5. Ezután nyomja meg a gombot belép kulcs. Ezután válassza ki a B1 cellát, majd húzza át a kitöltő fogantyút arra a tartományra, amelyen ezt a képletet kívánja tartalmazni. Lásd a képernyőképet:

Kerek számok párosra VBA kóddal

Ha nem akarja használni a megadott funkciót, akkor a következő VBA-kód is segítségére lehet. Tegye ezt:

1. Válassza ki azt a tartományt, amelyet párosítani kíván.

2. Ezután tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a ModulokAblak.

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 Sub

4. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, a prompt mezőbe írja be a kerekíteni kívánt tizedesjegyek számát. Lásd a képernyőképet:

5. Ezután kattintson OK, az összes kiválasztott számot párosra kerekítettük. Képernyőképek megtekintése:

Kerekítse párosra a számokat a Kutools for Excel segítségével

Sem a felhasználó által definiált függvény, sem a VBA kód nem érezheti magát annyira összetettnek, bemutathatok egy egyszerű megoldási módot. Val vel Kerek formula nélkül of Kutools az Excel számára, gyorsan kerekíthet egy számtartományt párosra.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most.

A Kutools for Excel telepítése után a következőket teheti:

1. Jelölje ki a párosítani kívánt tartományt.

2. Kattints Kutools > Round.

3. Az Kerek Formula nélkül párbeszédpanelen adja meg a szükséges tizedesjegyet, majd válassza a lehetőséget Kerek, hogy páros legyen alatt opció, és megtekintheti az eredményt a Előnézet panel. Lásd a képernyőképet:

4. Ezután kattintson OK or Jelentkezem, az összes számot két tizedesre kerekítjük.

Ha többet szeretne tudni erről a funkcióról, kattintson a Kerekítés az egyenletesre gombra.

Kapcsolódó cikk:

Kerekít / kerekít fel / kerekít egy cellaszámtartományt az Excelben