Luvun pyöristys ylöspäin

Katikulta

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

5

4424

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Oleppas hjyvä

      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.

      • Katikulta

        En saa toimimaan VBA-koodissa, antaa seuraavan virheilmoituksen: "Sub-, Function- tai Property-toimintosarjaa ei ole määritetty (Virhe 35)"


      • Katikulta kirjoitti:

        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


      • Katikulta
        kunde kirjoitti:

        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.


      • Katikulta kirjoitti:

        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


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Työttömyys on kasvussa - Hallitus halusi kannustaa työttömät töihin leikkaamalla sosiaaliturvaa

      Hallitus halusi kannustaa työttömät töihin leikkaamalla sosiaaliturvaa. Työttömyys on kuitenkin kasvussa. Mitä itse aja
      Maailman menoa
      346
      2751
    2. Mikä piirre on kasvoissa tärkein?

      Mikä piirre on kasvoissa tärkein kun valitset seuraa itsellesi?
      Ikävä
      120
      1529
    3. Suurimman myrskyilyn jälkeen

      vakiintuu tyynenpi tunne. Entistä vakaampi, entistä varmempi. Aina vaikealla hetkellä auttaa, kun ajattelen sinua. Minul
      Ikävä
      48
      1360
    4. Mikä häpeä Haapaveden kaupungille

      Avin huomautuksen mukaa hoitoyksikkö on ollut monin osin lainvastainen. Huomautettavaa on monista asioista. Miten Haa
      Haapavesi
      57
      976
    5. Ruumis kanavassa

      Mikä juttu eilen ollut poliisit palokunta ambulanssi ja ruumis auto sillalla. Tekikö itsemurhan
      Suomussalmi
      15
      954
    6. Tojotamies törttöili taas auton eteen

      Ja taas joku Tojotapappa vähät välitti liikennesäännöistä ja kääntyi viitostietä ajaneen auton eteen tänään, tällä kerta
      Suomussalmi
      27
      924
    7. Ei mitään menetettävää

      Arvostin ja kunnioitin sun tunteita. Menit nyt liian pitkälle. Mulla ei ole enää mitään menetettävää ja sä tulet sen huo
      Ikävä
      149
      888
    8. Pieni nainen, paras nainen

      Näin se nyt vaan on. Mieheltä
      Ikävä
      80
      878
    9. En sano tätä pahalla

      Mutta olihan meillä aika reippaasti ikäeroa ja aivan erilaiset elämäntilanteetkin. En vaan jotenkin tajunnut sitä aiemm
      Ikävä
      66
      862
    10. Tiedättekö miksi mies on olemassa?

      Lisääntymistä varten. Ei mitään muuta hyötyä. Jos nainen voisi lisääntyä ilman miestä, luuletteko miehet että naiset tar
      Ikävä
      205
      829
    Aihe