Runda VBA
Funcția VBA Round rotunjește numerele la un număr specificat de cifre.
Sintaxa funcției VBA Round
Sintaxa funcției VBA Round este:
Rotund (Expresie, [Decimal_places]) unde:
- Expresie - Numărul de rotunjit.
- Zecimale (Opțional) - Un număr întreg care specifică numărul de zecimale de rotunjit. Valoarea trebuie să fie mai mare sau egală cu 0 (> = 0). Dacă este necompletat, se folosește valoarea implicită 0, ceea ce înseamnă că funcția se rotunjește la cel mai apropiat număr întreg.
Deci, să vedem un exemplu, astfel încât să puteți vedea cum funcționează funcția VBA Round, rotunjind la 1 zecimală:
| 12345 | Sub Runda 1 ()Msgbox Round (7.25, 1)Sfârșitul Sub |
MessageBox-ul rezultat:
VBA Rotunjiți o variabilă
În exemplul de mai sus, am introdus numărul care trebuie rotunjit direct în funcție, de obicei, totuși, ați rotunji o variabilă. Următorul este un exemplu care folosește o variabilă în schimb:
Notă: Folosim tipul de variabilă dublă pentru a stoca valori zecimale.
| 123456789 | Sub RoundUsingVariable ()Reduceți numărul de unități ca dubluunitcount = 7,25MsgBox "Valoarea este" & Rundă (număr de unități, 1)Sfârșitul Sub |
Rezultatul este:
Rezultate rotunjire VBA
| Număr real | Numărul de locuri zecimale | Rezultat |
|---|---|---|
| 7.25 | 0 | 7 |
| 7.25 | 1 | 7.2 |
| 7.25 | 2 | 7.25 |
| -7.25 | 1 | -7.2 |
| -7.25 | 2 | -7.25 |
V-ați săturat să căutați exemple de cod VBA? Încercați AutoMacro!
Valoarea celulei rotunde VBA
De asemenea, puteți rotunji o valoare a celulei direct în VBA:
| 123 | Sub RoundCell ()Interval ("A1"). Valoare = Rotund (Interval ("A1"). Valoare, 2)Sfârșitul Sub |
Funcția VBA RoundUp
Să presupunem că doriți să rotunjiți un număr, utilizând VBA. Nu există nicio funcție echivalentă VBA RoundUp echivalentă, în schimb ceea ce puteți face este să numiți funcția Excel RoundUp Worksheet din codul dvs. VBA:
| 1 | roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 3) |
Funcțiile foii de lucru Excel sunt disponibile pentru a fi utilizate în VBA, prin utilizarea Foaie de lucruFuncție obiect. Singurele funcții ale foii de lucru pe care nu le puteți apela sunt cele care au deja un echivalent VBA încorporat.
O reamintire a sintaxei funcției Excel Worksheet RoundUp:
ROUNDUP (număr, cifre) unde:
- Număr - Numărul pe care doriți să-l rotunjiți.
- Cifre - Numărul de cifre pe care doriți să îl rotunjiți.
Deci, să vedem un exemplu, astfel încât să puteți vedea cum să accesați funcția Foaie de lucru RoundUp în codul dvs. VBA:
| 12345678910111213 | Sub RoundUp ()Reduceți numărul de unități ca dubluReduceți numărul de unități Număr dubluunitcount = 7.075711roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 4)MsgBox "Valoarea este" & roundupUnitcountSfârșitul Sub |
Rezultatul este:
Rotunjește la cel mai apropiat număr întreg
Puteți rotunji până la cel mai apropiat număr întreg, specificând 0 ca număr de zecimale:
| 12345 | Sub RoundUpWhole ()MsgBox Application.WorksheetFunction.RoundUp (7.1, 0)Sfârșitul Sub |
Rezultatul livrat:
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
Rezultatele funcției RoundUp
| Număr real | Cifre | Rezultat |
|---|---|---|
| 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 |
Funcția VBA RoundDown
Să presupunem că doriți să rotunjiți un număr în jos, utilizând VBA. Nu există nici o funcție echivalentă VBA RoundDown echivalentă, în schimb, ceea ce ați face este să numiți funcția Excel RoundDown Worksheet din codul dvs. VBA.
Un memento al sintaxei Funcției Excel Funcția RoundDown:
ROUNDDOWN (Număr, cifre) unde:
• Număr - Numărul pe care doriți să-l rotunjiți în jos.
• Cifre - Numărul de cifre pe care doriți să îl rotunjiți.
Deci, să vedem un exemplu, astfel încât să puteți vedea cum să accesați funcția RoundDown Worksheet în codul dvs. VBA:
| 12345678910111213 | Sub RoundDown ()Reduceți numărul de unități ca dubluReduceți numărul redus Unitate ca dubluunitcount = 5.225193rounddownUnitcount = Application.WorksheetFunction.RoundDown (unitcount, 4)MsgBox „Valoarea este” & rounddownUnitcountSfârșitul Sub |
Rezultatul este:
Rotunjiți la cel mai apropiat număr întreg
Puteți rotunji în jos la cel mai apropiat număr întreg, specificând 0 ca număr de zecimale:
| 12345 | Sub RoundDownWhole ()MsgBox Application.WorksheetFunction.RoundDown (7.8, 0)Sfârșitul Sub |
Rezultatul este:
Rezultatele funcției RoundDown
| Număr real | Cifre | Rezultat |
|---|---|---|
| 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 |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
Alte funcții de rotunjire VBA
Plafon VBA - Rotunjire la o semnificație specificată
VBA nu are o funcție Ceiling.Math echivalentă, deci dacă doriți să rotunjiți un număr până la cel mai apropiat număr întreg sau la cel mai apropiat multiplu de semnificație specificat, atunci puteți apela funcția Foaie de lucru Ceiling.Math din codul dvs. VBA.
Un memento al sintaxei plafonului pentru foaia de lucru Excel. Funcția de matematică:
CEILING.MATH (Număr, [Semnificație], [Mod]) unde:
- Număr - numărul pe care doriți să-l rotunjiți.
- Semnificaţie (Opțional) - Multiplu la care doriți să fie rotunjit numărul dvs.
- Mod (Opțional) - Controlează dacă numerele negative sunt rotunjite spre sau departe de zero.
Deci, să vedem un exemplu, astfel încât să puteți vedea cum să accesați funcția Ceiling.Math Worksheet în codul dvs. VBA:
| 12345678910111213 | Sub RoundUpToSignificance ()Reduceți numărul de unități ca dubluDim plafonUnitcount ca dubluunitcount = 4.1221ceilingmathUnitcount = Application.WorksheetFunction.Ceiling_Math (unitcount, 5)MsgBox „Valoarea este” & ceilingmathUnitcountSfârșitul Sub |
Rezultatul este:
VBA RoundUp la rezultatele de semnificație specificate
| Număr real | Semnificaţie | Mod | Rezultat |
|---|---|---|---|
| 4.1221 | 5 | ||
| 4.1221 | 3 | 6 | |
| 4.1221 | 50 | 50 | |
| -4.1221 | 3 | -3 | |
| -4.1221 | 3 | -1 | -6 |
VBA Floor - RoundDown la o semnificație specificată
Nici VBA nu are o funcție Floor.Math echivalentă. Cu toate acestea, încă o dată, dacă doriți să rotunjiți un număr în jos la cel mai apropiat număr întreg sau la cel mai apropiat multiplu de semnificație specificat, atunci puteți apela funcția Foaie de lucru Floor.Math a Excel de la VBA.
Un memento al sintaxei planșei Foaie de lucru Excel. Funcția Matematică:
FLOOR.MATH (Număr, [Semnificație], [Mod]) unde:
• Număr - Numărul pe care doriți să-l rotunjiți în jos.
• Semnificație (Opțional) - Multiplu la care doriți să fie rotunjit numărul dvs.
• Mod (Opțional) - Controlează dacă numerele negative sunt rotunjite spre sau departe de zero.
Așadar, să vedem un exemplu, astfel încât să puteți vedea cum să accesați funcția Floor.Math Worksheet în codul dvs. VBA:
| 1234567891011 | Sub RoundDownToSignificance ()Reduceți numărul de unități ca dubluDim floormathUnitcount ca dubluunitcount = 4.55555559floormathUnitcount = Application.WorksheetFunction.Floor_Math (unitcount, 2)MsgBox "Valoarea este" & floormathUnitcountSfârșitul Sub |
Rezultatul este:
VBA RoundDown la rezultatele de semnificație specificate
| Număr real | Semnificaţie | Mod | Rezultat |
|---|---|---|---|
| 4.55555559 | 4 | ||
| 4.55555559 | 3 | 3 | |
| 4.55555559 | 50 | 0 | |
| -4.55555559 | 3 | -6 | |
| -4.55555559 | 3 | -1 | -3 |
