Kolo VBA
Zaokrúhlená funkcia VBA zaokrúhľuje čísla na zadaný počet číslic.
Syntax okrúhlej funkcie VBA
Syntax okrúhlej funkcie VBA je:
Zaokrúhlené (výraz, [desatinné_miesta]), kde:
- Výraz - číslo, ktoré sa má zaokrúhliť.
- Desatinné miesta (Voliteľné) - Celé číslo, ktoré určuje počet desatinných miest na zaokrúhlenie. Hodnota musí byť väčšia alebo rovná 0 (> = 0). Ak je pole prázdne, použije sa predvolená hodnota 0, čo znamená, že funkcia sa zaokrúhľuje na najbližšie celé číslo.
Pozrime sa teda na príklad, aby ste videli, ako funguje funkcia VBA Round, zaokrúhlená na 1 desatinné miesto:
| 12345 | Podkolo 1 ()Kolo Msgbox (7,25, 1)Koniec pod |
Výsledný MessageBox:
Kolo premennej VBA
Vo vyššie uvedenom príklade sme zadali zaokrúhľované číslo priamo do funkcie, zvyčajne však namiesto toho zaokrúhľujete premennú. Nasleduje príklad, ktorý namiesto toho používa premennú:
Poznámka: Na ukladanie desatinných hodnôt používame typ premennej Double.
| 123456789 | Sub RoundUsingVariable ()Dim unitcount as Doublepočet jednotiek = 7,25MsgBox „Hodnota je“ a zaokrúhlené (počet jednotiek, 1)Koniec pod |
Výsledkom je:
Výsledky zaokrúhľovania VBA
| Skutočné číslo | Počet desatinných miest | Výsledok |
|---|---|---|
| 7.25 | 0 | 7 |
| 7.25 | 1 | 7.2 |
| 7.25 | 2 | 7.25 |
| -7.25 | 1 | -7.2 |
| -7.25 | 2 | -7.25 |
Ste unavení z hľadania príkladov kódu VBA? Skúste AutoMacro!
Hodnota okrúhlej bunky VBA
Môžete tiež zaokrúhliť hodnotu bunky priamo vo VBA:
| 123 | Sub Round Cell ()Rozsah („A1“). Hodnota = okrúhly (rozsah („A1“). Hodnota, 2)Koniec pod |
Funkcia VBA RoundUp
Povedzme, že chcete zaokrúhliť číslo nahor pomocou VBA. Neexistuje žiadna vstavaná ekvivalentná funkcia VBA RoundUp, namiesto toho môžete z kódu VBA zavolať funkciu pracovného hárka programu Excel RoundUp:
| 1 | roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 3) |
Funkcie pracovného hárka programu Excel sú k dispozícii na použitie vo VBA pomocou Pracovný listFunkcia predmet. Jediné funkcie pracovného hárka, ktoré nemôžete volať, sú tie, ktoré už majú vstavaný ekvivalent VBA.
Pripomenutie syntaxe funkcie RoundUp pracovného hárka programu Excel:
ROUNDUP (číslo, číslice), kde:
- Číslo - číslo, ktoré by ste chceli zaokrúhliť.
- Číslice - počet číslic, ktoré chcete zaokrúhliť.
Pozrime sa teda na príklad, aby ste videli, ako získať prístup k funkcii hárku RoundUp v kóde VBA:
| 12345678910111213 | Sub RoundUp ()Dim unitcount as DoubleDim roundupUnitcount as Doublepočet jednotiek = 7,075711roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 4)MsgBox „Hodnota je“ & roundupUnitcountKoniec pod |
Výsledkom je:
Zaokrúhlené na najbližšie celé číslo
Môžete zaokrúhliť na najbližšie celé číslo zadaním 0 ako počtu desatinných miest:
| 12345 | Sub RoundUpWhole ()MsgBox Application.WorksheetFunction.RoundUp (7.1, 0)Koniec pod |
Výsledok priniesol:
Programovanie VBA | Generátor kódu pracuje za vás!
Výsledky funkcie RoundUp
| Skutočné číslo | Číslice | Výsledok |
|---|---|---|
| 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 |
Funkcia VBA RoundDown
Povedzme, že chcete zaokrúhliť číslo nadol pomocou VBA. Neexistuje ani vstavaná ekvivalentná funkcia VBA RoundDown, namiesto toho by ste znova zavolali funkciu pracovného hárka programu Excel RoundDown z kódu VBA.
Pripomienka syntaxe funkcie RoundDown pracovného hárka programu Excel:
ROUNDDOWN (číslo, číslice) kde:
• Číslo - Číslo, ktoré by ste chceli zaokrúhliť nadol.
• Číslice - počet číslic, ktoré chcete zaokrúhliť.
Pozrime sa teda na príklad, aby ste videli, ako získať prístup k funkcii hárku RoundDown v kóde VBA:
| 12345678910111213 | Sub RoundDown ()Dim unitcount as DoubleDim rounddownUnitcount as Doublepočet jednotiek = 5,225193rounddownUnitcount = Application.WorksheetFunction.RoundDown (unitcount, 4)MsgBox „Hodnota je“ & rounddownUnitcountKoniec pod |
Výsledkom je:
Zaokrúhlené nadol na najbližšie celé číslo
Môžete zaokrúhliť nadol na najbližšie celé číslo zadaním 0 ako počtu desatinných miest:
| 12345 | Sub RoundDownWhole ()MsgBox Application.WorksheetFunction.RoundDown (7.8, 0)Koniec pod |
Výsledkom je:
Výsledky funkcie RoundDown
| Skutočné číslo | Číslice | Výsledok |
|---|---|---|
| 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 |
Programovanie VBA | Generátor kódu pracuje za vás!
Ďalšie funkcie zaokrúhľovania VBA
Strop VBA - zaokrúhlený až na uvedený význam
VBA nemá ekvivalent funkcie Ceiling.Math, takže ak chcete zaokrúhliť číslo nahor na najbližšie celé číslo alebo na najbližší určený násobok významnosti, môžete z kódu VBA zavolať na funkciu pracovného hárka programu Excel’s Ceiling.Math.
Pripomenutie syntaxe stropu pracovného hárka programu Excel. Matematická funkcia:
CEILING.MATH (Číslo, [Význam], [Režim]) kde:
- Číslo - číslo, ktoré chcete zaokrúhliť.
- Význam (Voliteľné) - Násobok, na ktorý chcete zaokrúhliť svoje číslo.
- Režim (Voliteľné) - Ovláda, či sú záporné čísla zaokrúhlené na nulu alebo od nuly.
Pozrime sa teda na príklad, aby ste videli, ako získať prístup k funkcii pracovného hárka Ceiling.Math vo vašom kóde VBA:
| 12345678910111213 | Sub RoundUpToSignificance ()Dim unitcount as DoubleTlmený stropný stropPočet ako dvojnásobokpočet jednotiek = 4,1221stropmathUnitcount = Application.WorksheetFunction.Ceiling_Math (unitcount, 5)MsgBox „Hodnota je“ & stropmathUnitcountKoniec pod |
Výsledkom je:
Výsledky VBA zaokrúhlené na špecifikovaný význam
| Skutočné číslo | Význam | Režim | Výsledok |
|---|---|---|---|
| 4.1221 | 5 | ||
| 4.1221 | 3 | 6 | |
| 4.1221 | 50 | 50 | |
| -4.1221 | 3 | -3 | |
| -4.1221 | 3 | -1 | -6 |
Podlaha VBA - zaokrúhlená nadol na špecifikovaný význam
VBA nemá ani ekvivalent funkcie funkcie Floor.Math. Avšak znova, ak chcete zaokrúhliť číslo nadol na najbližšie celé číslo alebo na najbližší určený násobok významnosti, môžete zavolať na funkciu pracovného hárka programu Excel’s Floor.Math od spoločnosti VBA.
Pripomenutie syntaxe minima pracovného hárka programu Excel. Funkcia odkazu:
FLOOR.MATH (číslo, [význam], [režim]), kde:
• Číslo - Číslo, ktoré chcete zaokrúhliť nadol.
• Význam (Voliteľné) - Násobok, na ktorý chcete zaokrúhliť svoje číslo.
• Režim (Voliteľné) - Kontroluje, či sú záporné čísla zaokrúhlené na nulu alebo od nuly.
Pozrime sa teda na príklad, aby ste videli, ako pristupovať k funkcii hárka Floor.Math vo vašom kóde VBA:
| 1234567891011 | Sub RoundDownToSignificance ()Dim unitcount as DoubleDim floormathUnitcount As Doublepočet jednotiek = 4,55555559floormathUnitcount = Application.WorksheetFunction.Floor_Math (unitcount, 2)MsgBox „Hodnota je“ & floormathUnitcountKoniec pod |
Výsledkom je:
Okrúhly zostup VBA na výsledky špecifikovaného významu
| Skutočné číslo | Význam | Režim | Výsledok |
|---|---|---|---|
| 4.55555559 | 4 | ||
| 4.55555559 | 3 | 3 | |
| 4.55555559 | 50 | 0 | |
| -4.55555559 | 3 | -6 | |
| -4.55555559 | 3 | -1 | -3 |
