Excel VBA funkcija zaokruživanja
Slično funkciji radnog lista gdje zaokružujemo brojeve na najbliže cijele brojeve, u VBA imamo funkciju RoundUp koja nam smanjuje decimalnu točku, a sintaksa korištenja funkcije zaokruživanja je sljedeća Round up (Number, Number of Digits After Decimal) ) ova su dva argumenta u funkciji obavezna.
Kada radimo s brojevima i izračunima, brojeve razlomaka dobivamo nakon cijelog broja, a to je prilično često u svakodnevnom poslovanju. Općenito se ne opterećujemo decimalnim vrijednostima jer to ne utječe na naš krajnji rezultat. U tim situacijama moramo brojeve zaokružiti na najbliži cijeli broj ili neposredni cijeli broj. Korištenjem funkcije RoundUp zapravo možemo izvršiti ovaj zadatak.
Ako ste u VBA tražili funkciju RoundUp, onda je sigurno niste pronašli jer je to funkcija radnog lista. Da bismo pristupili funkciji RoundUp, moramo koristiti klasu VBA Worksheet Function.
Prije ovoga prisjetite se sintakse funkcije RoundUp.
Primjeri
Izvršimo zadatak zaokruživanja broja “288.5264”. Sve ćemo brojeve vidjeti na ovom primjeru.
Primjer # 1 - Kada je drugi argument nula
Pogledajte donji VBA kod.
Kodirati:
Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub
- Kada pokrenete gornji kod, pretvorit će navedeni broj, tj. 288,5264, u najbliži cijeli broj, tj. 289
Primjer # 2 - Kada je drugi argument 1
Pogledajte donji kod da biste vidjeli što se događa kada jedan dodamo kao drugi argument.
Kodirati:
Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub
- Ovaj će kôd pretvoriti zadani broj u jednu decimalnu točku, tj. 288,6
Primjer # 3 - Kada je drugi argument 2
Pogledajte donji kod da biste vidjeli što se događa kada dva dodamo kao drugi argument.
Kodirati:
Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub
- Ovaj će kôd pretvoriti zadani broj u dvije decimalne točke, tj. 288,53
Primjer # 4 - Kada je drugi argument 3
Pogledajte donji kod da biste vidjeli što se događa kada tri dodamo kao drugi argument.
Kodirati:
Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub
- Ovaj će kôd pretvoriti zadani broj u tri decimalne točke, tj. 288,527
Primjer # 5 - Kada je drugi argument -1
Pogledajte donji kod da biste vidjeli što se događa kada kao drugi argument dodamo minus jedan.
Kodirati:
Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub
- Ovaj će kôd pretvoriti zadani broj u najbližih deset, tj. 290.
Primjer # 6 - Kada je drugi argument -2
Pogledajte donji kod da biste vidjeli što se događa kada kao drugi argument dodamo minus dva.
Kodirati:
Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub
- Ovaj će kôd pretvoriti zadani broj u najbližu stotinu, tj. 300.
Primjer # 7 - Kada je drugi argument -3
Pogledajte donji kod da biste vidjeli što se događa kada kao drugi argument dodamo minus tri.
Kodirati:
Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub
- Ovaj će kôd pretvoriti broj u najbližu tisuću, tj. 1000.
Na ovaj način, funkciju ROUNDUP u VBA možemo koristiti kao dio klase funkcija radnog lista za zaokruživanje brojeva na temelju navedenog drugog argumenta.
