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 na nič. Na primer, če imate številko 5.8697. Če številko zaokrožite na dvomestno decimalno mesto, bo 5,87. Če zaokrožite na tri števke, se zaokroži 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številsko vrednost.
Upam, da ste na delovnem listu uporabili funkcijo ROUND. Tudi v VBA lahko uporabljamo to funkcijo, vendar imamo v teh funkcijah razlike. 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
Predpostavimo, 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 pomočjo funkcije ROUND.
Koda:
Sub Round_Example1 () Dim K Kot varianta K = Round (End Sub
3. korak: Število ni nič, ampak 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 številk 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:
Podkrog_Primer1 () Dim K Kot varianta 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, eno decimalno mesto višje od prejšnje vrednosti 4,53. To je zato, ker smo v tem primeru navedli število, kot je 4,535, tako da je po številu 3 naslednje število 5, torej zaokroženo na naslednje število, torej 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 rezultat dobili kot 2, ker je tu decimalno prvo število 4, kar je manj kot 0,5, torej zaokroženo navzdol.
Razlika med funkcijama Excel in VBA ROUND
Razliki sta predvsem 2.
# 1 - Sintaksa obeh funkcij:
Če pogledate skladnjo obeh funkcij, imamo tu razliko.
Sintaksa okroglega Excela: okrogla (število, število števk po decimalni številki)
Sintaksa VBA Round: Round (Number, (Število števk po decimalni številki))
V Excelu sta oba argumenta obvezna, v VBA pa drugi argument neobvezen.
Če v VBA prezrete drugi argument, privzeti argument vzame kot nič, zato bomo dobili celo število.
# 2 - Rezultati:
Rezultati teh dveh funkcij so različni. Spodaj je nekaj primerov
