VBA Roundup Funciton for å runde opp tall i Excel

Innholdsfortegnelse

Excel VBA RoundUp-funksjon

I likhet med regnearkfunksjon hvor vi avrunder tallene til nærmeste heltall, i VBA har vi en RoundUp-funksjon som reduserer desimaltegnet for oss, og syntaksen for å bruke avrundingsfunksjonen er som følger Rund opp (Antall, Antall sifre etter desimal ) disse to argumentene i funksjonen er obligatoriske.

Når vi jobber med tall og beregninger, får vi brøkstall etter hele tallet, og det er ganske vanlig i hverdagen. Vi bryr oss generelt ikke om desimalverdiene fordi det ikke påvirker sluttresultatet. I slike situasjoner trenger vi å avrunde tallene til nærmeste heltall eller øyeblikkelig hele tall. Ved å bruke RoundUp-funksjonen kan vi faktisk utføre denne oppgaven.

Hvis du har søkt i VBA etter RoundUp-funksjonen, må du ikke ha funnet den fordi den er en regnearkfunksjon. For å få tilgang til RoundUp-funksjonen, må vi bruke VBA-regnearkfunksjonsklassen.

Husk før dette syntaksen til RoundUp-funksjonen.

Eksempler

La oss utføre oppgaven med å avrunde tallet “288.5264”. Vi vil se alle tallene med dette eksemplet.

Eksempel 1 - Når det andre argumentet er null

Se på VBA-koden nedenfor.

Kode:

Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub
  • Når du kjører ovennevnte kode, vil den konvertere det oppgitte nummeret, dvs. 288.5264, til nærmeste hele tall, dvs. 289

Eksempel 2 - Når det andre argumentet er 1

Se på koden nedenfor for å se hva som skjer når vi sender en som et annet argument.

Kode:

Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub
  • Denne koden vil konvertere det gitte tallet til ett desimaltegn, dvs. 288,6

Eksempel 3 - Når det andre argumentet er 2

Se på koden nedenfor for å se hva som skjer når vi passerer to som et annet argument.

Kode:

Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub
  • Denne koden vil konvertere det gitte tallet til to desimaler, dvs. 288,53

Eksempel 4 - Når det andre argumentet er 3

Se på koden nedenfor for å se hva som skjer når vi passerer tre som et annet argument.

Kode:

Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub
  • Denne koden vil konvertere det gitte tallet til tre desimaler, dvs. 288.527

Eksempel 5 - Når det andre argumentet er -1

Se på koden nedenfor for å se hva som skjer når vi passerer minus en som et annet argument.

Kode:

Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub
  • Denne koden vil konvertere det gitte tallet til nærmeste ti, dvs. 290.

Eksempel # 6 - Når det andre argumentet er -2

Se på koden nedenfor for å se hva som skjer når vi passerer minus to som et andre argument.

Kode:

Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub
  • Denne koden vil konvertere det gitte tallet til nærmeste hundre, dvs. 300.

Eksempel 7 - Når det andre argumentet er -3

Se på koden nedenfor for å se hva som skjer når vi passerer minus tre som et annet argument.

Kode:

Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub
  • Denne koden vil konvertere tallet til nærmeste tusen, dvs. 1000.

Slik kan vi bruke ROUNDUP-funksjonen i VBA som en del av regnearkets funksjonsklasse for å avrunde tallene basert på det angitte andre argumentet.

Interessante artikler...