Miten Excelissä voi pyöristää luvun ylöspäin lähimpään seuraavaan kokonaislukuun, kyse on makrolla tapahtuvasta toiminnosta ja lähtöluku on single- tyyppinen luku jonka haluan pyöristää ylöspäin seuraavaan kokonaislukuun.
Kati
Kati
Luvun pyöristys ylöspäin
Katikulta
54567
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 5
Vanhimmat
CEILING
Show All
Hide All
Returns number rounded up, away from zero, to the nearest multiple of significance. For example, if you want to avoid using pennies in your prices and your product is priced at $4.42, use the formula =CEILING(4.42,0.05) to round prices up to the nearest nickel.
Syntax
CEILING(number,significance)
Number is the value you want to round.
Significance is the multiple to which you want to round.
Remarks
If either argument is nonnumeric, CEILING returns the #VALUE! error value.
Regardless of the sign of number, a value is rounded up when adjusted away from zero. If number is an exact multiple of significance, no rounding occurs.
If number and significance have different signs, CEILING returns the #NUM! error value.
En saa toimimaan VBA-koodissa, antaa seuraavan virheilmoituksen: "Sub-, Function- tai Property-toimintosarjaa ei ole määritetty (Virhe 35)"
vaan näin esim.
luku=Application.WorksheetFunction.Ceiling(Range("A1"), 1)
yksi mahdollinen voisi olla Round Application.WorksheetFunction.Round
VBAssa Round ja Int voisi tulla kysymykseen
Ratkaisin asian Int-komennolla ja lisäämällä katkaistuun lukuun ykkösen. Nyt saan tuloksena ylöspäin seuraavaan kokonaislukuun pyöristetyn luvun, joka toimii oikein mainiosti.
toimii erilailla VBA ja Excel
The Round() funktio Excelissä käyttää aritmeettistä pyöristystä, mikä pyöristää .5 ylöspäin kun taas VBA käyttää Bankerin pyöristystä, joka pyöristää ylös tai alas riipuen lähimmästä parillisesta luvusta.
Siis tulokset
3,5 excel 4 ja VBA 4
4,5 Excel 5 ja VBA 4
tolla voi testata
Sub koe()
Range("B1") = Round(Range("A1"), 0)
Range("B2") = Application.WorksheetFunction.Round(Range("A1"), 0)
End Sub