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

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 > Ronde.

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 Solliciteer, 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