Hoe rondt u een bereik getallen af naar het dichtstbijzijnde even getal in Excel?
Wat is afronden naar even in Excel? Afronden naar even, ook wel bankiersafronding genoemd, werkt net als normaal afronden – behalve wanneer het cijfer dat moet worden afgerond een 5 is. Is het cijfer vóór de 5 oneven, dan rondt u naar boven af; is het cijfer vóór de 5 even, dan rondt u naar beneden af.
Bijvoorbeeld:23,345 afgerond naar even op het percentage wordt 23,34. En 12,335 afgerond naar even op het percentage wordt 12,34.
In dit artikel leg ik uit hoe u bankiersafronding eenvoudig en efficiënt kunt toepassen in Excel.
Getallen afronden naar even met een door de gebruiker gedefinieerde functie
Getallen afronden naar even met VBA-code
Getallen afronden naar even met Kutools voor Excel
Getallen afronden naar even met een door de gebruiker gedefinieerde functie
U kunt de volgende door u gedefinieerde functie gebruiken om getallen af te ronden naar het dichtstbijzijnde even getal in Excel. Volg deze stappen:
1. Selecteer de getallen die u wilt afronden naar een even getal.
2. Houd vervolgens de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende macro in het modulevenster.
Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function
4. Sla de code op en voer de formule =bankersround(A1;2) in de aangrenzende lege cel in. Zie schermafbeelding:
5. Druk daarna op de toets Enter. Selecteer cel B1 en sleep de vulgreep naar het bereik waarop u de formule wilt toepassen. Zie de schermafbeelding:
Getallen afronden naar even met VBA-code
Als u de door u gedefinieerde functie liever niet gebruikt, helpt de volgende VBA-code u ook verder. Volg deze stappen:
1. Selecteer het bereik dat u wilt afronden naar een even getal.
2. Houd vervolgens de toetsen ALT + F11ingedrukt; hierdoor opent het venster Microsoft Visual Basic for Applications.
3. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
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. Druk vervolgens op de toets F5 om deze code uit te voeren. Voer in het dialoogvenster het aantal decimalen in waarnaar u wilt afronden. Zie schermafbeelding:
5. Klik daarna op OK; alle geselecteerde getallen zijn nu afgerond naar even. Zie de schermafbeeldingen:
 |  |  |
Getallen afronden naar even met Kutools voor Excel
Vindt u zowel de door de gebruiker gedefinieerde functie als de VBA-code te complex? Dan bied ik u een eenvoudige oplossing: met Afronden zonder formule van Kutools voor Excel rondt u in een handomdraai een bereik getallen af naar even.
Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen. Download nu.
Na installatie van Kutools voor Excel gaat u als volgt te werk:
1. Markeer het bereik dat u wilt afronden naar een even getal.
2. Klik op Kutools > Afronden.
3. In het dialoogvenster Afronden zonder formule voert u het gewenste aantal decimalen in en kiest u vervolgens Afronden naar even onder Optie. U kunt het resultaat direct bekijken in het voorbeeldvenster. Zie schermafbeelding:
4. Klik daarna op OK of Toepassen; alle getallen worden dan afgerond op even getallen met 2 decimalen.
Klik op ‘Afronden naar even’ voor meer informatie over deze functie.
Gerelateerd artikel:
Een bereik getallen in cellen afronden / naar boven afronden / naar beneden afronden in Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins