VBA runda
VBA okrugla funkcija zaokružuje brojeve na određeni broj znamenki.
Sintaksa okrugle funkcije VBA
Sintaksa okrugle funkcije VBA je:
Zaokruženo (izraz, [decimalna_mjesta]) gdje:
- Izraz - broj za zaokruživanje.
- Decimalna mjesta (Izborno) - Cijeli broj koji navodi broj decimalnih mjesta za zaokruživanje. Vrijednost mora biti veća ili jednaka 0 (> = 0). Ako je prazno, koristi se zadana vrijednost 0, što znači da se funkcija zaokružuje na najbliži cijeli broj.
Pogledajmo primjer kako biste mogli vidjeti kako funkcionira funkcija VBA Round, zaokružujući na 1 decimalno mjesto:
| 12345 | Potkrug 1 ()Msgbox okrugli (7.25, 1)Kraj podm |
Rezultirajući MessageBox:
VBA okrugla varijabla
U gornjem primjeru unijeli smo zaokruženi broj izravno u funkciju, no obično biste umjesto toga zaokružili varijablu. Slijedi primjer korištenja varijable:
Napomena: Za spremanje decimalnih vrijednosti koristimo tip Double varijable.
| 123456789 | Sub RoundUsingVariable ()Umanji broj jedinica kao dvostrukojedinični broj = 7,25MsgBox "Vrijednost je" & okruglo (broj jedinice, 1)Kraj podm |
Rezultat je:
Rezultati zaokruživanja VBA
| Stvarni broj | Broj decimalnih mjesta | Proizlaziti |
|---|---|---|
| 7.25 | 0 | 7 |
| 7.25 | 1 | 7.2 |
| 7.25 | 2 | 7.25 |
| -7.25 | 1 | -7.2 |
| -7.25 | 2 | -7.25 |
Umorni ste od traženja primjera VBA koda? Isprobajte AutoMacro!
VBA vrijednost okrugle ćelije
Također možete zaokružiti vrijednost ćelije izravno u VBA:
| 123 | Podokrugla ćelija ()Raspon ("A1"). Vrijednost = okrugla (raspon ("A1"). Vrijednost, 2)Kraj podm |
VBA RoundUp funkcija
Recimo da želite zaokružiti broj pomoću VBA. Ne postoji ugrađena ekvivalentna funkcija VBA RoundUp, nego umjesto toga možete pozvati funkciju Excel RoundUp Worksheet iz svog VBA koda:
| 1 | roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 3) |
Excelove funkcije radnog lista dostupne su za upotrebu u VBA -i, pomoću Funkcija radnog lista objekt. Jedine funkcije radnog lista koje ne možete nazvati su one koje već imaju ugrađen ekvivalent VBA.
Podsjetnik na sintaksu funkcije RoundUp Excel radnog lista:
ROUNDUP (broj, znamenke) gdje:
- Broj - broj koji želite zaokružiti.
- Cifre - broj znamenki koje želite zaokružiti.
Pogledajmo primjer kako biste mogli vidjeti kako pristupiti funkciji RoundUp Worksheet u vašem VBA kodu:
| 12345678910111213 | Podgrupa ()Umanji broj jedinica kao dvostrukoZatamnite okrugliUnitcount As Doublejedinični broj = 7.075711roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 4)MsgBox "Vrijednost je" & roundupUnitcountKraj podm |
Rezultat je:
Zaokružite na najbliži cijeli broj
Možete zaokružiti na najbliži cijeli broj tako da navedete 0 kao broj decimalnih mjesta:
| 12345 | Sub RoundUpWhole ()MsgBox Application.WorksheetFunction.RoundUp (7.1, 0)Kraj podm |
Dostavljeni rezultat:
VBA programiranje | Generator koda radi za vas!
Rezultati funkcije RoundUp
| Stvarni broj | Znamenke | Proizlaziti |
|---|---|---|
| 7.075711 | 0 | 8 |
| 7.075711 | 1 | 7.1 |
| 7.075711 | 2 | 7.08 |
| 7.075711 | 3 | 7.076 |
| 7.075711 | -1 | 10 |
| 7.075711 | -2 | 100 |
| 7.075711 | -3 | 1000 |
VBA RoundDown funkcija
Recimo da želite zaokružiti broj prema dolje, koristeći VBA. Nema ni ugrađene VBA RoundDown ekvivalentne funkcije, umjesto toga, opet biste trebali pozvati funkciju Excel RoundDown Worksheet iz vašeg VBA koda.
Podsjetnik na sintaksu funkcije RoundDown Excel radnog lista:
ROUNDDOWN (broj, znamenke) gdje:
• Broj - broj koji želite zaokružiti prema dolje.
• znamenke - broj znamenki koje želite zaokružiti.
Pogledajmo primjer kako biste mogli vidjeti kako pristupiti funkciji RoundDown Worksheet u vašem VBA kodu:
| 12345678910111213 | Sub RoundDown ()Umanji broj jedinica kao dvostrukoZatamni zaokruživanjeUnitcount kao dvostrukojedinični broj = 5.225193rounddownUnitcount = Application.WorksheetFunction.RoundDown (unitcount, 4)MsgBox "Vrijednost je" & rounddownUnitcountKraj podm |
Rezultat je:
Zaokruženo prema najbližem cijelom broju
Možete zaokružiti na najbliži cijeli broj tako da navedete 0 kao broj decimalnih mjesta:
| 12345 | Sub RoundDownWhole ()MsgBox Application.WorksheetFunction.RoundDown (7.8, 0)Kraj podm |
Rezultat je:
Rezultati funkcije RoundDown
| Stvarni broj | Znamenke | Proizlaziti |
|---|---|---|
| 5.225193 | 0 | 5 |
| 5.225193 | 1 | 5.2 |
| 5.225193 | 2 | 5.22 |
| 5.225193 | 3 | 5.225 |
| 5.225193 | -1 | 0 |
| 5.225193 | -2 | 0 |
| 5.225193 | -3 | 0 |
VBA programiranje | Generator koda radi za vas!
Ostale VBA funkcije zaokruživanja
VBA strop - zaokruživanje do određenog značaja
VBA nema ekvivalent funkcije Ceiling.Math, pa ako želite zaokružiti broj do najbližeg cijelog broja ili najbližeg navedenog višekratnika važnosti, tada možete pozvati Excelovu funkciju radnog stropnog lista iz svog VBA koda.
Podsjetnik na sintaksu stropa Excel radnog lista. Matematička funkcija:
CEILING.MATH (Broj, [Značaj], [Način]) gdje:
- Broj - broj koji želite zaokružiti.
- Značaj (Izborno) - Višekratnik na koji želite da se vaš broj zaokruži.
- Način rada (Izborno) - Kontrolira zaokružuje li se negativni broj prema nuli ili od nje.
Pogledajmo primjer kako biste mogli vidjeti kako pristupiti funkciji Ceiling.Math Worksheet u vašem VBA kodu:
| 12345678910111213 | Sub RoundUpToSignintage ()Umanji broj jedinica kao dvostrukoZatamni stropUnitcount As Doublejedinični broj = 4.1221uppermathUnitcount = Application.WorksheetFunction.Ceiling_Math (unitcount, 5)MsgBox "Vrijednost je" & uppermathUnitcountKraj podm |
Rezultat je:
VBA pregled do rezultata s određenom važnošću
| Stvarni broj | Značaj | Način rada | Proizlaziti |
|---|---|---|---|
| 4.1221 | 5 | ||
| 4.1221 | 3 | 6 | |
| 4.1221 | 50 | 50 | |
| -4.1221 | 3 | -3 | |
| -4.1221 | 3 | -1 | -6 |
VBA kat - zaokruženo prema određenom značaju
VBA nema ni ekvivalent funkcije Floor.Math. Međutim, još jednom, ako želite zaokružiti broj prema dolje do najbližeg cijelog broja ili do najbližeg navedenog višekratnika važnosti, tada možete pozvati Excelovu funkciju Floor.Math radnog lista iz VBA -e.
Podsjetnik na sintaksu poda Excel radnog lista. Matematička funkcija:
FLOOR.MATH (Broj, [Značaj], [Način]) gdje:
• Broj - Broj koji želite zaokružiti.
• Značaj (Izborno) - Višekratnik na koji želite da se vaš broj zaokruži.
• Način rada (Izborno) - Kontrolira zaokružuje li se negativni broj prema nuli ili od nje.
Pogledajmo primjer kako biste mogli vidjeti kako pristupiti funkciji Floor.Math Worksheet u vašem VBA kodu:
| 1234567891011 | Sub RoundDownToSignintage ()Umanji broj jedinica kao dvostrukoZatamnite podloguUnitcount As Doublejedinični broj = 4,55555559floormathUnitcount = Application.WonksheetFunction.Floor_Math (broj jedinice, 2)MsgBox "Vrijednost je" & floormathUnitcountKraj podm |
Rezultat je:
VBA okrugli rezultati prema specificiranoj važnosti
| Stvarni broj | Značaj | Način rada | Proizlaziti |
|---|---|---|---|
| 4.55555559 | 4 | ||
| 4.55555559 | 3 | 3 | |
| 4.55555559 | 50 | 0 | |
| -4.55555559 | 3 | -6 | |
| -4.55555559 | 3 | -1 | -3 |
