VBA voor
VBA ümmargune funktsioon ümardab numbrid määratud arvuni.
VBA ümmarguse funktsiooni süntaks
VBA ümmarguse funktsiooni süntaks on järgmine:
Ümmargune (avaldis, [Kümnendkohad]), kus:
- Väljend - ümardatav arv.
- Kümnendkohad (Valikuline) - täisarv, mis määrab ümardatavate kümnendkohtade arvu. Väärtus peab olema suurem või võrdne 0 (> = 0). Kui see on tühi, kasutatakse vaikeväärtust 0, mis tähendab, et funktsioon ümardab lähima täisarvuni.
Niisiis, vaatame näidet, et saaksite näha, kuidas VBA vooru funktsioon toimib, ümardades ühe kümnendkohani:
12345 | Alavoor1 ()Msgbox Round (7.25, 1)End Sub |
Saadud sõnumikast:
VBA ümardab muutujat
Ülaltoodud näites sisestasime ümardatava numbri otse funktsiooni, kuid tavaliselt ümardate selle asemel muutuja. Allpool on näide muutuja kasutamise kohta:
Märkus. Kümnendväärtuste salvestamiseks kasutame kahekordse muutuja tüüpi.
123456789 | AlamvoorUsingVariable ()Hämardage ühikuarv kahekordseltühikuarv = 7,25MsgBox "Väärtus on" ja ümmargune (ühikuarv, 1)End Sub |
Tulemuseks on:
VBA ümardamise tulemused
Tegelik number | Kümnendkohtade arv | Tulemus |
---|---|---|
7.25 | 0 | 7 |
7.25 | 1 | 7.2 |
7.25 | 2 | 7.25 |
-7.25 | 1 | -7.2 |
-7.25 | 2 | -7.25 |
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
VBA ümmargune rakkude väärtus
Lahtri väärtuse saate ümardada ka otse VBA -s:
123 | AlamringVahemik ("A1"). Väärtus = ümmargune (vahemik ("A1"). Väärtus 2)End Sub |
VBA RoundUp funktsioon
Oletame, et soovite VBA abil numbri ülespoole ümardada. Sisseehitatud VBA RoundUp samaväärset funktsiooni pole, selle asemel saate helistada oma VBA koodist Exceli RoundUp töölehe funktsioonile:
1 | roundupUnitcount = Application.WorksheetFunction.RoundUp (ühikute arv, 3) |
Exceli töölehe funktsioonid on VBA -s kasutamiseks saadaval TöölehtFunktsioon objekti. Ainsad töölehe funktsioonid, mida te ei saa helistada, on need, millel on juba sisseehitatud VBA ekvivalent.
Meeldetuletus Exceli töölehe RoundUp funktsiooni süntaksist:
ROUNDUP (arv, numbrid), kus:
- Number - arv, mille soovite ümardada.
- Numbrid - numbrite arv, mille soovite numbrit ümardada.
Niisiis, vaatame näidet, et saaksite näha, kuidas pääseda juurde oma VBA -koodi RoundUp töölehe funktsioonile:
12345678910111213 | Alavoor ()Hämardage ühikuarv kahekordseltDim roundupUnitcount As Doubleühikuarv = 7,075711roundupUnitcount = Application.WorksheetFunction.RoundUp (ühikute arv, 4)MsgBox "Väärtus on" & roundupUnitcountEnd Sub |
Tulemuseks on:
Ümardage lähima täisarvuni
Saate ümardada lähima täisarvuni, määrates kümnendkohtade arvuks 0:
12345 | AlavoorUpWhole ()MsgBox Application.WorksheetFunction.RoundUp (7.1, 0)End Sub |
Saadud tulemus:
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
RoundUp funktsiooni tulemused
Tegelik number | Numbrid | Tulemus |
---|---|---|
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 funktsioon
Oletame, et soovite VBA abil numbri allapoole ümardada. Samuti pole sisseehitatud VBA RoundDown samaväärset funktsiooni, selle asemel kutsuksite uuesti oma VBA-koodi Excel RoundDown töölehe funktsiooni.
Meeldetuletus Exceli töölehe ümmarguse funktsiooni süntaksist:
ÜMBER (arv, numbrid), kus:
• Number - number, mida soovite allapoole ümardada.
• Numbrid - numbrite arv, mille soovite numbrit ümardada.
Niisiis, vaatame näidet, et saaksite näha, kuidas pääseda oma VBA -koodi funktsioonile RoundDown tööleht:
12345678910111213 | Alavoor ()Hämardage ühikute arv kahekordseltÜmardus ümmarguneühikuarv = 5,225193rounddownUnitcount = Application.WorksheetFunction.RoundDown (ühikute arv, 4)MsgBox "Väärtus on" & rounddownUnitcountEnd Sub |
Tulemuseks on:
RoundDown lähima täisarvuni
Saate ümardada lähima täisarvuni, määrates kümnendkohtade arvuks 0:
12345 | AlavoorDownWhole ()MsgBox Application.WorksheetFunction.RoundDown (7.8, 0)End Sub |
Tulemuseks on:
RoundDown funktsiooni tulemused
Tegelik number | Numbrid | Tulemus |
---|---|---|
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 programmeerimine | Koodigeneraator töötab teie jaoks!
Muud VBA ümardamisfunktsioonid
VBA lagi - RoundUp kuni kindlaksmääratud tähtsuseni
VBA -l ei ole funktsiooni Ceiling.Math funktsiooni ekvivalenti, nii et kui soovite numbri ümardada lähima täisarvuni või lähima määratud olulisuse kordajani, saate helistada Exceli ülemmäärale. Matemaatika töölehe funktsioon oma VBA -koodist.
Meeldetuletus Exceli töölehe ülemmäära süntaksist. Matemaatikafunktsioon:
CEILING.MATH (arv, [tähtsus], [režiim]), kus:
- Number - arv, mille soovite ülespoole ümardada.
- Tähtsus (Valikuline) - Kordaja, milleni soovite oma numbri ümardada.
- Režiim (Valikuline) - Kontrollib, kas negatiivsed numbrid ümardatakse nulli suunas või sellest eemale.
Niisiis, vaatame näidet, et saaksite näha, kuidas pääseda juurde oma ülemmäärale. Matemaatika töölehe funktsioon oma VBA -koodis:
12345678910111213 | Sub RoundUpToSignificance ()Hämardage ühikute arv kahekordseltHämara laelampUnitcount As Doubleühikuarv = 4.1221roofmathUnitcount = Application.WorksheetFunction.Ceiling_Math (ühikute arv, 5)MsgBox "Väärtus on" & laenmathUnitcountEnd Sub |
Tulemuseks on:
VBA RoundUp kuni kindlaksmääratud olulisuse tulemusteni
Tegelik number | Tähtsus | Režiim | Tulemus |
---|---|---|---|
4.1221 | 5 | ||
4.1221 | 3 | 6 | |
4.1221 | 50 | 50 | |
-4.1221 | 3 | -3 | |
-4.1221 | 3 | -1 | -6 |
VBA korrus - ümmargune allapoole määratud tähenduseni
VBA -l pole ka Floor.Math funktsiooni ekvivalenti. Kui aga soovite numbri ümardada allapoole lähima täisarvuni või lähima määratud olulisuse kordajani, saate helistada Exceli Floor.Math töölehe funktsioonile VBA.
Meeldetuletus Exceli töölehe korruse süntaksi kohta. Matemaatikafunktsioon:
FLOOR.MATH (arv, [tähtsus], [režiim]), kus:
• Number - number, mille soovite allapoole ümardada.
• Tähtsus (Valikuline) - Kordaja, milleni soovite oma numbri ümardada.
• Režiim (Valikuline) - Kontrollib, kas negatiivsed numbrid ümardatakse nulli poole või sellest eemale.
Niisiis, vaatame näidet, et saaksite näha, kuidas pääseda juurde oma VBA -koodi funktsioonile Floor.Math.
1234567891011 | Sub RoundDownToSignificance ()Hämardage ühikute arv kahekordseltDim floormathUnitcount As Doubleühikuarv = 4,55555559floormathUnitcount = Application.WorksheetFunction.Floor_Math (ühikute arv, 2)MsgBox "Väärtus on" & floormathUnitcountEnd Sub |
Tulemuseks on:
VBA RoundDown määratud olulisuse tulemusteni
Tegelik number | Tähtsus | Režiim | Tulemus |
---|---|---|---|
4.55555559 | 4 | ||
4.55555559 | 3 | 3 | |
4.55555559 | 50 | 0 | |
-4.55555559 | 3 | -6 | |
-4.55555559 | 3 | -1 | -3 |