afronden naar beneden vba

glda19 · 2 okt 2020

Hi
Hoe kan ik naar het dichtstbijzijnde geheel getal naar beneden.
Bv 42/28 =1,5 zou 1 moeten worden
50/28 =1,78 zou 1 moeten worden

erten · 2 okt 2020

Beste,

Dit zou moeten werken:

Code:

=AFRONDEN.NAAR.BENEDEN(getal; 0)

Mvg
Erten

edmoor · 2 okt 2020

Dat kan met de functie Int.
https://www.excelfunctions.net/vba-int-function.html

@erten:
Deze is dan eenvoudiger: =INTEGER(getal)

cow18 · 2 okt 2020

vereenvoudigde versie maar eigenlijke hetzelfde als deze vraag ?
https://www.helpmij.nl/forum/showthread.php/956212-bereknings-probleem-in-mijn-eigen-functie
Eigenlijk een dikke middenvinger aan alle helpers

Code:

Sub afrondingstest()
   MsgBox 42 \ 28
End Sub

glda19 · 2 okt 2020

maar hoe zou ik in vba 0.75 kunnen laten afronden naar 0.5

cow18 · 2 okt 2020

excel en VBA for dummies.
Je hebt toch op je werkblad de "afronden naar beneden"-functie, waarbij je het aantal decimalen aangeeft, dus

Code:

    i = Application.WorksheetFunction.RoundDown(2 * Range("A1").Value, 0) / 2

anders afronden naar een veelvoud, maar dat zal vermoedelijk niet goed zijn in dit geval (MROUND(range("A1").value,0.5))
Beetje zelfredzaamheid mag ook wel.

HSV · 2 okt 2020

Een van de twee is overbodig @cow18.

Code:

Application.WorksheetFunction

huijb · 2 okt 2020

Dan daar verder https://www.helpmij.nl/forum/showthread.php/956212-bereknings-probleem-in-mijn-eigen-functie

afronden naar beneden vba

glda19

Gebruiker

erten

Gebruiker

edmoor

Inventaris

cow18

Terugkerende gebruiker

glda19

Gebruiker

cow18

Terugkerende gebruiker

HSV

Inventaris

huijb

Supermoderator

Nieuwste berichten

Wij waarderen jouw privacy