„Excel VBA“ apvaliosios funkcijos
Apvalioji funkcija VBA yra matematinė funkcija, kuri, kaip rodo pats pavadinimas, apvalina arba suapvalina nurodytą skaičių iki konkretaus vartotojo nurodytų dešimtųjų skaičiaus rinkinio, ši funkcija naudoja apvalinimo logiką, net jei tai reiškia, kad reikia 5 nuoroda ir bet kuris skaičius po paskutinio skaičiaus po kablelio yra mažesnis nei 5, tada jis suapvalinamas žemyn ir atvirkščiai.
Galite suapvalinti skaičių iki dviejų skaitmenų po kablelio, trijų skaitmenų po kablelio arba be kablelio. Pvz., Jei turite numerį 5.8697. Jei suapvalinsite skaičių iki dviejų skaitmenų po kablelio, jis bus 5,87. Jei suapvalinsite iki trijų skaitmenų, jis suapvalins iki 5.870. Jei norite suapvalinti iki nulio, tada jis bus 6.-
Banko numeriuose visos dešimtainės kablelio vietos, kurios yra mažesnės nei 0,5, bus suapvalintos žemyn iki ankstesnės sveiko skaičiaus vertės, o visos dešimtainės vietos, kurios yra didesnės arba lygios 0,5, bus suapvalintos iki kito sveiko skaičiaus vertės.
Tikiuosi, kad darbalapyje naudojote ROUND funkciją. VBA taip pat galime naudoti šią funkciją, tačiau mes turime šių funkcijų skirtumą. Šių dviejų funkcijų skirtumą pamatysime vėliau šiame straipsnyje.
Sintaksė
Pažvelkite į „Round“ funkcijos sintaksę.
Skaičius: tai skaičius, kurį bandome suapvalinti.
(Skaitmenų skaičius po kablelio ): kiek skaitmenų reikia po kablelio.
Pavyzdžiai
Tarkime, kad turite skaičių 4.534 ir norite suapvalinti iki dviejų skaitmenų.
Atlikite toliau nurodytus veiksmus.
1 veiksmas: paskelbkite kintamąjį kaip variantą.
Kodas:
Antrinis turas_pavyzdys1 () Dim K Kaip variantas Pabaiga
2 žingsnis: Šio kintamojo „ k “ reikšmę priskirkite naudodamiesi funkcija ROUND.
Kodas:
Antrinis turas_pavyzdys1 () Dim K kaip variantas K = apvalus (pabaigos sub
3 žingsnis: skaičius nėra niekas, bet koks yra skaičius, kurį bandome suapvalinti. Šiuo atveju skaičius yra 4,534
Kodas:
Antrinis turas_pavyzdys1 () Dim K kaip variantas K = apvalus (4.534, pabaigos sub
4 žingsnis: Kiek skaitmenų turime suapvalinti? Tokiu atveju turime suapvalinti iki 2 skaitmenų .
Kodas:
Antrinis turas_pavyzdys1 () Dim K kaip variantas K = apvalus (4.534, 2) galinis antrinis
5 žingsnis: Dabar pranešimų laukelyje VBA rodykite kintamojo „k“ vertę.
Kodas:
Antrasis turas_pavyzdys1 () Dim K kaip variantas K = apvalus (4.534, 2) MsgBox K Pabaiga
Paleiskite šį kodą ir pažiūrėkite, ką gauname.
Rezultatą gavome kaip 4,53, kai suapvalinome iki 2 skaitmenų.
Dabar pakeisiu skaičių iš 4.534 į 4.535 . Pažvelk, kas dabar vyksta.
Kodas:
Antrasis turas_pavyzdys1 () Dim K kaip variantas K = apvalus (4.535, 2) MsgBox K Pabaiga
Dabar paleiskite kodą ir pažiūrėkite, koks yra rezultatas.
Rezultatas buvo 4,54, dešimtainis skaičius didesnis nei ankstesnė 4,53. Taip yra todėl, kad šiame pavyzdyje mes pateikėme skaičių, pavyzdžiui, 4,535, taigi po skaičiaus 3 kitas skaičius yra 5, taigi jis suapvalinamas iki kito skaičiaus, taigi 3 tampa 4.
Dabar aš pateiksiu numerį kaip 2.452678 ir bandysiu suapvalinti iki 3 skaitmenų.
Kodas:
Antrasis turas_pavyzdys2 () Dim K kaip variantas K = apvalus (2.452678, 3) MsgBox K End Sub
Paleiskite šį kodą, kad pamatytumėte rezultatą.
Rezultatas yra 2.453 .
2,45 2678 Čia numeriai po 2 -osios dešimtųjų tikslumu yra 2678. Po tam tikro skaičiaus 2, kitas skaičius yra 6, kuris yra didesnis negu arba lygus 5, todėl yra suapvalinti iki kito dešimtainis skaičius.
Dabar naudosiu tą patį skaičių suapvalinti iki nulio ir pamatyti, kas nutiks.
Kodas:
Antrasis turas_pavyzdys3 () Dim K kaip variantas K = apvalus (2.452678, 0) MsgBox K End Sub
Paleiskite kodą ir pažiūrėkite, ką gauname.
Kadangi aš panaudojau turą iki nulio, rezultatą gavome kaip 2.
Priežastis, kodėl gavome rezultatą kaip 2, nes čia dešimtainis pirmasis skaičius yra 4, o tai yra mažiau nei 0,5, todėl jis suapvalinamas žemyn.
Skirtumas tarp „Excel“ ir „VBA ROUND“ funkcijos
Daugiausia yra 2 skirtumai.
# 1 - abiejų funkcijų sintaksė:
Jei pažvelgsite į abiejų funkcijų sintaksę, čia mes turime skirtumą.
„Excel“ apvalios sintaksė: apvalus (skaičius, skaitmenų skaičius po kablelio)
VBA turo sintaksė: apvalus (skaičius, (skaitmenų skaičius po kablelio))
Programoje „Excel“ abu argumentai yra privalomi, tačiau VBA antrasis argumentas yra neprivalomas.
VBA, jei ignoruosite antrąjį argumentą, numatytasis argumentas bus lygus nuliui, taigi gausime visą skaičių.
2 - rezultatai:
Šių dviejų funkcijų rezultatai yra skirtingi. Toliau pateikiami keli pavyzdžiai
