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 Sub4. 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 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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!
