Hoe een bereik van getallen afronden tot zelfs in Excel?

Waarheen zelfs in Excel? Afronden naar even, ook wel afronding van bankiers genoemd, is eigenlijk net als normale afronding, behalve wanneer het getal waarop moet worden afgerond nummer 5 is. Als het cijfer vóór de 5 oneven is, moet u naar boven afronden, en als het cijfer vóór de 5 is zelfs, je moet naar beneden afronden.

Bijvoorbeeld 23.345 afronden op zelfs op het percentiel zou 23.34 zijn. en 12.335 afronden op zelfs op het percentiel zou 12.34 zijn.

In dit artikel zal ik het hebben over het afronden van bankiers in Excel.

Rond getallen af ​​tot zelfs met door de gebruiker gedefinieerde functie

Ronde getallen tot zelfs met VBA-code

Ronde getallen tot zelfs met Kutools voor Excel

Rond getallen af ​​tot zelfs met door de gebruiker gedefinieerde functie

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

---

U kunt de volgende gedefinieerde functie gebruiken om getallen af ​​te ronden, zelfs in Excel. Ga als volgt te werk:

1. Selecteer de nummers die u wilt afronden op even.

2. Houd vervolgens de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende macro in het modulevenster.

Functie BankersRound (aantal, precisie)
BankersRound = Round (aantal, precisie)
End Function

4. Sla de code op en voer de formule in = bankersronde (a1,2) in de aangrenzende lege cel. Zie screenshot:

5. Druk vervolgens op Enter sleutel. En selecteer de cel B1 en sleep vervolgens de vulgreep naar het bereik waarin u deze formule wilt hebben. Zie screenshot:

Ronde getallen tot zelfs met VBA-code

Als u de gedefinieerde functie niet wilt gebruiken, kan de volgende VBA-code u ook helpen. Doe als volgt:

1. Selecteer het bereik dat u naar even wilt afronden.

2. Houd vervolgens de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het ModuleVenster.

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. Druk vervolgens op F5 toets om deze code uit te voeren, voert u in het promptvenster het aantal decimalen in dat u wilt afronden. Zie screenshot:

5. Dan klikken OK, zijn alle geselecteerde getallen afgerond op even. Zie screenshots:

Ronde getallen tot zelfs met Kutools voor Excel

Noch de door de gebruiker gedefinieerde functie, noch de VBA-code kan je zo complex voelen, ik kan je een eenvoudige manier voorstellen om het op te lossen. Met Rond zonder formule of Kutools for Excel, kunt u een reeks getallen snel afronden naar een even.

Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.

Na het installeren van Kutools voor Excel, kunt u het volgende doen:

1. Markeer het bereik dat u gelijk wilt maken.

2. Klikken Kutools > Round, zie screenshot:

3. In de Ronde zonder formule dialoogvenster, voer de decimale plaats in die u nodig hebt en kies vervolgens Rond naar even voor Keuze, en u kunt een voorbeeld van het resultaat bekijken in de Voorbeeldvenster. Zie screenshot:

4. Dan klikken OK or Toepassen, worden alle cijfers zelfs afgerond met 2 decimalen.

Klik op Round to Even voor meer informatie over deze functie.

Gerelateerd artikel:

Rond / rond een reeks celnummers naar boven / beneden af ​​in Excel

---

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...