Hoe de vloerfunctie in vba te gebruiken (met voorbeelden)

U kunt de Floor- methode in VBA gebruiken om het getal in een cel af te ronden naar het dichtstbijzijnde significante veelvoud.

Hier is een gebruikelijke manier om deze functie in de praktijk te gebruiken:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Deze specifieke macro rondt elke waarde in het bereik A2:A10 af naar het dichtstbijzijnde significante veelvoud dat is opgegeven in het bereik B2:B10 en geeft de resultaten weer in het bereik C2:C10 .

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: hoe u de functie Verdieping in VBA gebruikt

Stel dat we een lijst met waarden hebben in kolom A en een andere lijst met significante veelvouden in kolom B waarop we elke waarde willen afronden:

We kunnen de volgende macro maken met de Floor- methode in VBA om elke waarde in kolom A af te ronden naar het significante veelvoud in kolom B:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Kolom C toont het resultaat van het gebruik van de Floor- methode voor elke waarde in kolom A.

We kunnen bijvoorbeeld zien:

• 12,2452 naar beneden afgerond op het dichtstbijzijnde veelvoud van 0,001 is 12,245 .
• 14,927 naar beneden afgerond op het dichtstbijzijnde veelvoud van 0,01 is 14,92 .
• -5,23 naar beneden afgerond op het dichtstbijzijnde veelvoud van 0,1 is -5,3 .

Enzovoort.

Let op : U kunt hier de volledige documentatie voor de VBA Floor- methode vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Hoe waarden in VBA af te ronden
Hoe waarden in VBA af te ronden
Hoe waarden af te ronden op 2 decimalen in VBA