Excel VBA okrogla funkcija
Okrogla funkcija v VBA je matematična funkcija, ki, kot že samo ime pove, zaokroži ali zaokroži določeno število na določen nabor decimalnih mest, ki jih določi uporabnik, ta funkcija uporablja logiko zaokroževanja, kar pomeni, da za sklic in katero koli število z zadnjo številko za decimalno številko je pod 5, potem je zaokroženo navzdol in obratno.
Število lahko zaokrožite na dvomestno, trimestno ali brez decimalke. Na primer, če imate številko 5.8697. Če zaokrožite številko na dvomestno decimalno mesto, bo 5,87, če zaokrožite na tri števke, se bo zaokrožilo na 5,870, če želite zaokrožiti na nič, bo 6.-
Pri bančnih številkah se vsa decimalna mesta, ki so manjša od 0,5, zaokrožijo navzdol na prejšnjo celoštevilčno vrednost, vsa decimalna mesta, ki so večja ali enaka 0,5, pa zaokrožijo na naslednjo celoštevilčno vrednost.
Upam, da ste na delovnem listu uporabili funkcijo ROUND. Tudi v VBA lahko uporabljamo to funkcijo, vendar se s temi funkcijami razlikujemo. Razliko med tema dvema funkcijama bomo videli kasneje v tem članku.
Sintaksa
Oglejte si sintakso funkcije Round.
Številka: To je številka, ki jo poskušamo zaokrožiti.
[Število številk za decimalnimi znaki ]: Koliko števk potrebujete za decimalno vrednostjo.
Primeri
To predlogo VBA okrogle funkcije Excel lahko prenesete tukaj - Predloga VBA okrogle funkcije ExcelPredpostavimo, da imate številko 4.534 in želite zaokrožiti na dve števki.
Sledite spodnjim korakom.
1. korak: Spremenljivko razglasite za Variant.
Koda:
Sub Round_Example1 () Dim K Kot Variant End Sub
2. korak: Za to spremenljivko " k " vrednost dodelite s funkcijo ROUND.
Koda:
Sub Round_Example1 () Dim K Kot varianta K = Round (End Sub
3. korak: Število ni nič drugega kot tisto, ki ga želimo zaokrožiti, v tem primeru je število 4,534
Koda:
Sub Round_Example1 () Dim K Kot varianta K = Round (4.534, End Sub
4. korak: Koliko števk moramo zaokrožiti, v tem primeru moramo zaokrožiti na 2 števki .
Koda:
Sub Round_Example1 () Dim K Kot Variant K = Round (4.534, 2) End Sub
5. korak: Zdaj v polju za sporočila VBA prikažite vrednost spremenljivke »k«.
Koda:
Sub Round_Example1 () Dim K Kot Variant K = Round (4.534, 2) MsgBox K End Sub
Zaženite to kodo in poglejte, kaj bomo dobili.
Rezultat smo dobili kot 4,53, ko smo zaokrožili na 2 števki.
Zdaj bom številko spremenil s 4,534 na 4,535 . Poglej, kaj se zgodi zdaj.
Koda:
Sub Round_Example1 () Dim K Kot Variant K = Round (4.535, 2) MsgBox K End Sub
Zdaj zaženite kodo in poglejte, kakšen je rezultat.
Rezultat smo dobili kot 4,54 za eno decimalko višje od prejšnje vrednosti 4,53. To je zato, ker smo v tem primeru številko navedli kot 4.535, tako da je po številki 3 naslednja številka 5, torej zaokrožena na naslednjo številko, tako da 3 postane 4.
Zdaj bom navedel številko 2,452678 in poskusil zaokrožiti na 3 številke.
Koda:
Sub Round_Example2 () Dim K Kot Variant K = Round (2.452678, 3) MsgBox K End Sub
Zaženite to kodo, da vidite rezultat.
Rezultat je 2,453 .
2,45 2678 Tu so številke za 2. decimalno vejico 2678. Po številki 2 je naslednje število 6, kar je večje ali enako 5, zato je zaokroženo na naslednje decimalno število.
Zdaj bom z isto številko zaokrožil na nič in videl, kaj se bo zgodilo.
Koda:
Sub Round_Example3 () Dim K As Variant K = Round (2.452678, 0) MsgBox K End Sub
Zaženite kodo in poglejte, kaj bomo dobili.
Ker sem krog uporabil na nič, smo dobili rezultat kot 2.
Razlog, zakaj smo dobili rezultat kot 2, ker je tukaj decimalno prvo število 4, kar je manj kot 0,5, zato je zaokroženo navzdol.
Razlika med funkcijama Excel in VBA ROUND
Razliki sta predvsem 2.
# 1 - Sintaksa obeh funkcij:
Če pogledamo skladnjo obeh funkcij, imamo tu razliko.
Sintaksa okroglega Excela: okrogla (število, število števk po decimalni številki)
Sintaksa kroga VBA: okrogla (število, [število števk po decimalni številki])
V Excelu sta oba argumenta obvezna, v VBA pa drugi argument neobvezen.
Če v VBA prezrete drugi argument, je privzeti argument enak nič, tako da bomo dobili celo število.
# 2 - Rezultati:
Rezultat teh dveh funkcij je različen. Spodaj je nekaj primerov
