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

324

    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. Monenko kanssa olet harrastanut seksiä

      tänä aikana kun olet kaivattuasi kaipaillut?
      Ikävä
      129
      3267
    2. Melkein lähetin viestin.

      Onneksi tulin järkiini. Mukavaa kesää
      Ikävä
      109
      1311
    3. Timo Soini tyrmää Tynkkysen selitykset Venäjän putinistileiristä

      "Soini toimi ulkoministerinä ja puolueen puheenjohtajana vuonna 2016, jolloin silloinen perussuomalaisten varapuheenjoht
      Maailman menoa
      267
      1285
    4. Sulla on nainen muuten näkyvät viiksikarvat naamassa jotka pitää poistaa

      Kannattaa katsoa peilistä lasien kanssa, ettet saa ihmisiltä ikäviä kommentteja.
      Ikävä
      65
      1096
    5. Nainen voi rakastaa

      Ujoakin miestä, mutta jos miestä pelottaa näkeminenkin, niin aika vaikeaa on. Semmoista ei varmaan voi rakastaa. Miehelt
      Ikävä
      79
      1061
    6. Kalateltta fiasko

      Onko Tamperelaisyrittäjälle iskenyt ahneus vai mistä johtuu että tänä vuonna ruuat on surkeita aikaisempiin vuosiin verr
      Kuhmo
      14
      1056
    7. IS Viikonloppu 20.-21.7.2024

      Tällä kertaa Toni Pitkälä esittelee piirrostaitojansa nuorten pimujen, musiikkibändien ja Raamatun Edenin kertomusten ku
      Sanaristikot
      57
      979
    8. Rakastan sinua

      Olen tiennyt sen pitkään mutta nyt ymmärsin että se ei menekään ohi
      Ikävä
      30
      976
    9. Ikävöimäsi henkilön ikä

      Minkä ikäinen kaipauksen kohteenne on? Onko tämä vain plus 50 palsta vai kaivataanko kolme-neljäkymppisiä? Oma kohde mie
      Ikävä
      42
      944
    10. Liikenne onnettomuus

      Annas kun arvaan -Nuoriso -Ajokortti poikkeusluvalla -Ylinopeus
      Orimattila
      46
      854
    Aihe