VBA RoundUp-funktion

Excel VBA RoundUp-funktion

I likhet med kalkylfunktionen där vi avrundar siffrorna till närmaste heltal, i VBA har vi en RoundUp-funktion som minskar decimalpunkten för oss och syntaxen för att använda avrundningsfunktionen är som följer Runda upp (Antal, antal siffror efter decimal ) dessa två argument i funktionen är obligatoriska.

När vi arbetar med siffror och beräkningar får vi bråknummer efter hela talet och det är ganska vanligt i vardagen. Vi bryr oss generellt inte om decimalvärdena eftersom det inte påverkar vårt slutresultat. I dessa situationer måste vi avrunda siffrorna till närmaste heltal eller omedelbart heltal. Genom att använda RoundUp-funktionen kan vi faktiskt utföra denna uppgift.

Om du har sökt i VBA efter RoundUp-funktionen måste du inte ha hittat den eftersom den är en kalkylfunktion. För att komma åt RoundUp-funktionen måste vi använda vba-arbetsbladets funktionsklass.

Innan detta kommer ihåg syntaxen för RoundUp-funktionen.

Exempel

Du kan ladda ner denna VBA RoundUp Excel-mall här - VBA RoundUp Excel-mall

Låt oss utföra uppgiften att avrunda siffran ”288.5264”. Vi kommer att se alla siffror med detta exempel.

Exempel # 1 - När det andra argumentet är noll

Titta på nedanstående VBA-kod.

Koda:

 Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub 

  • När du kommer att köra ovanstående kod kommer det att omvandla det angivna numret, dvs. 288.5264 till närmaste heltal, dvs. 289

Exempel # 2 - När det andra argumentet är 1

Titta på koden nedan för att se vad som händer när vi skickar en som ett andra argument.

Koda:

 Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub 

  • Denna kod kommer att konvertera det angivna numret till en decimal, dvs. 288,6

Exempel # 3 - När det andra argumentet är 2

Titta på koden nedan för att se vad som händer när vi passerar två som ett andra argument.

Koda:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub 

  • Den här koden kommer att konvertera det angivna numret till två decimaler, dvs. 288,53

Exempel # 4 - När det andra argumentet är 3

Titta på koden nedan för att se vad som händer när vi passerar tre som ett andra argument.

Koda:

 Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub 

  • Denna kod omvandlar det angivna numret till tre decimaler, dvs. 288.527

Exempel # 5 - När det andra argumentet är -1

Titta på koden nedan för att se vad som händer när vi passerar minus ett som ett andra argument.

Koda:

 Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub 

  • Denna kod kommer att konvertera det angivna numret till närmaste tio, dvs. 290.

Exempel # 6 - När det andra argumentet är -2

Titta på koden nedan för att se vad som händer när vi passerar minus två som ett andra argument.

Koda:

 Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub 

  • Denna kod omvandlar det angivna numret till närmaste hundra, dvs. 300.

Exempel # 7 - När det andra argumentet är -3

Titta på koden nedan för att se vad som händer när vi passerar minus tre som ett andra argument.

Koda:

 Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub 

  • Denna kod konverterar numret till närmaste tusen, dvs. 1000.

Så här kan vi använda funktionen ROUNDUP i VBA som en del av kalkylbladets funktionsklass för att avrunda siffrorna baserat på det angivna andra argumentet.