makro ja laina ja laskut - apuvaaa

katiko

En osaa, vaan haluaisiko joku auttaa, joka osaa;)
Pitäisi tehdä lainanlasku makro, joka laskee talukkoon nappia painamalla lähtöarvoista lukien, kauanko kestää lainan maksu.
Taulukko voisi olla vaikka:
laina määrä 7500
laina-aika vuosissa 2
korko vuodessa 0,05
lyhennys/kk 312,5
laina-aika 24 kk
korko kuukaudessa 0,00417

Noita lähtöarvoja pitää voida muuttaa ja edelleen napin painallus laskee oikein?

Pulma on ja olen toki tehnyt monemoista viritelmä, mutta joku mättää aina.

Apu olisi todella tervetullut.

Kiitos jo etukäteen pahasta pulasta mahdollisesti minut päästäneelle auttajalle.

3

379

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • katiko

      Lukijoita kyllä näyttää riittävän, mutta kukaan ei halua auttaa, Mul on viritykset For Nextillä ja nyt testailin Do...Loop until ja käänsin sitten Do until....Loop, mutta tulos on ihan yhtä hutera. Jotenkin kun olen kolmatta päivää vääntänyt tuota taulukkoa, jotta rivitasolla nappia painamalla tulisi tulos, milloin laina on maksettu, niin joko mun viritys laskee vain yhden rivin tai sitten on virheilmoitusta tiedossa. että löytyisikä sitä apua, edes vihje mielessä, jotta pääsisin eteenpäin. PLIIIS ja tiedoksi auttajille, jotta oon jo viiskymppinen nuori nainen, joka yrittää selvitä visaisesta tehtävästä ja oppia edes hitusen esimerkkien avulla excelin VBA:ta.

      • pohjaksi

        En tiedä mitä tuossa pitäisi sitten makrolla tehdä, kun Excelin omat funktiot osaisivat tehdä tuon helposti. Englanninkielisessä excelissä on funktio pmt, jolla saa erän suuruuden selville.
        Jos jotakin kuitenkin pohjaksi, niin lisäile Exceliin Forms -työkalurivillä nappi ja Sheet / Thisworkbook -osioon (tai modulekin käy), seuraavantapainen toiminto:

        Sub Button1_Click()
        Dim lan As Double, tid As Double, ranta As Double, rantesats As Double
        lan = ActiveSheet.Cells(2, 2).Value 'lån
        tid = ActiveSheet.Cells(6, 2).Value 'tid(månader)
        ranta = ActiveSheet.Cells(6, 2).Value 'ränta
        rantesats = f(lan, tid, ranta)
        ActiveSheet.Cells(6, 2).Value = rantesats 'räntesats (resultat)
        End Sub

        Olen jättänyt tuosta korkoerän laskennan pois, kun en äkkiseltään saanut 312,5:lta kuukausieräksi.


      • vb2005

        Se 312,5 on ilman korkoa, mutta kun koron ottaa huomioon, tulee eräksi riippuen laskentatavasta jotakin muuta.
        Funktiona voisi käytellä vb:ssä olevaa Pmt tai PPMt:tä (toiminta vastaava kuin laskentataulukon puolella).


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

    Luetuimmat keskustelut

    1. Vain vasemmistolaiset rakennemuutokset pelastavat Suomen

      Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot
      Maailman menoa
      53
      3532
    2. Persut huutaa taas: "kato! muslimi!"

      Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe
      Maailman menoa
      31
      2949
    3. Menen nyt koisimaan

      Ja en ehkä palaa tänne. Asia on nyt loppuunkäsitelty ja totuus tuli ilmi
      Ikävä
      28
      2594
    4. onko kaivattusi

      vaarallinen? :D
      Ikävä
      76
      2534
    5. Olisiko sinulla

      Jonossa vaihtoehtoja, ehkä
      Ikävä
      52
      2232
    6. Haluaisin rakastaa sinua

      Ja olla sinulle se oikea... Rakastan sinua 💗💗💗
      Ikävä
      18
      2231
    7. Pieni galluppi

      Mitäs lahjaa odotat joulupukilta.
      Ikävä
      56
      1901
    8. Oletko uhriutuja?

      vaikka itse olet rääkännyt toista ja aiheuttanut ties mitä toiselle.
      Tunteet
      58
      1706
    9. KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!

      Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola
      Suomalaiset julkkikset
      11
      1603
    10. Kenet molemmat

      Sä haluat mies?
      Ikävä
      17
      1515
    Aihe