VBA Excel taulukon selaus

Anonyymi

Löytyykö vielä vanhoja VBA-taitajia? Ongelmani on vähän erikoinen, eli päivämäärien käsittely koodissa. Sain tehtäväksi uusia excel-taulukon syöttötoiminnon kun joku oli taas sotkenut excel-taulukon, jossa on n 200 päivän myynti ja varastosaldot (yksinkertaistettuna, on siellä muutakin).

Eli taulukossa on päivämäärä (pp.kk.vvvv), bruttomyynti (€), varastosaldo (kokonaisluku) ja se hankala eli myynnin ero viikontakaiseen (€). Periaatteessa simppeli homma joka voisi hoitua kaavoilla näppärästi, mutta ongelma on käyttö, eli rivit eivät ole päivämäärän mukaisessa järjestyksessä vaan rivin aloittaa joku viitenumero joka tulee päivän totaalikassan päättämisessä, se ei ole juokseva eikä järjesllisesti pääteltävissä, ellei ole joku pankkisiirron viitenumeroa vastaava alskennallinen numero.

Enhän minä koodissa päiviä laske enkä lukuja sellaisenaan, koodissa on toki muuttujat jotka on myös tietotyypitetty. Homma toimii muuten halutusti, mutta tuo viikontakaisen päivän etsiminen tuottaa ongelmia. Päivämäärästä vähennetään ja saadaan ko. päivä, ja sen riviltä noudetaan funktiolla myynti, pääkoodissa sitten tämän päivän myynnistä vähennetään funktion palauttama arvo. Näin tämän pitäisi mennä, mutta tuo päivämäärästä vähentäminen, se ei nyt jostain syystä toimi.

Seurannassa näyttää hyvältä, koodia stepillä suoritettaessa näyttää funtiolle lähtevän oikea eli tämä päivä. Peruskaavoissahan tuo olisi vain miinus 7 tuosta päivästä, mutta funktiossa tuo ei jostain syystä toimi, tuloksena on jotain ihmeellisiä päiväyksiä lukusarjoina. Funtion sisäiset muuttujat nollataan aina alussa muistijämäsotkujen minimoimiseksi, tietotyypit ovat ok, taulukossa kaavana toimii ok. Nyt olen oikaissut ja kaaaaukana oikealla olevaan soluun lasketaan tuo viikontakainen päiväys vähennyslaskulla. Sillä lailla toimii. Mutta ammattiylpeys ei anna jättää tommoisia virityksiä, kun homman pitää olla koodia, ei kaavoja. Onko päivämäärä-lukusarjan käsittelyssä jokin jippo, jonka olen jo unohtanut. Käytössä office-versio 16, tarkoitus on siirtää tämä jossain vaiheessa 365-ympäristöön, siinä lienee seuraava taistelu...

1

87

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Kuten aina ohjelmoinnissa, pura homma osiin, tein pari vuotta sitten silloisessa työpaikassa vähän samantyyppisen jutun, nyt työttömänä oli aikaa testailla:

      sub kirjaa()

      sub etsityhjarivi()

      function etsivanha(tamapaiva)
      - tähän yksinkertainen silmukka joka ensin laskee vanhan päivän
      - funktio tämän jälkeen käy yksinkertaisella silmukalla rivejä läpi kunnes löytyy pvm-solusta vastaava arvo
      -älä käytä valmiita haku-funktioita jos tiedot eivät ole päivän mukaisessa järjestyksessä, tee vaikka simppeli do-while-silmukka
      - funktio palauttaa kutsujalleen rivinumeron, jolla löydetty päivä on

      sub kysyuudettiedot()
      - tässä voi olla joku lomake, johon syötetyt tiedot menevät muuttujiin
      - kutsutaan etsityhjarivi-sub
      -kutsu etsivanha-funktiota, se palauttaa rivinumeron jolla on 7 pv vanha tieto
      -kirjoita tiedot taulukkoon
      -tallenna taulukko
      end sub

      ihan simppeli juttu, mutta hommat pitää tosiaan palastella pieniin subeihin ja functiohin. Ikivanhat yhden subin rimpsut ilman alikutsuja, ne pitää unohtaa.

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

    Luetuimmat keskustelut

    1. Metsäkoneen kuljettaja huuteli tutkijalle

      "voisit kyllä ottaa rintaliivit pois ennen kuin tulet minulle juttelemaan, hän sanoo." https://yle.fi/a/74-20106446 On
      Suomussalmi
      704
      9479
    2. Suomi on täysin sekaisin

      Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-2000010
      Maailman menoa
      392
      4017
    3. Sano vain suoraan, että nyt riittää

      ettei kiinnosta. Sano, että lopeta! En ihmettelisi, jos olet saanut tarpeeksesi ja toivot minun ymmärtävän lopettaa. Eh
      Ikävä
      43
      2825
    4. Kaikki ei vieläkään usko luontokatoon.

      Suomussalmen Hukkajoella foliohattu metsäkoneen kuljettaja tuhosi tuhansia harvinaisia jokihelmisimpukoita eli raakkuja
      Kajaani
      87
      2790
    5. Ohhoh! Ex-pääministeri Sanna Marinin Joni-rakas paljasti ilouutisen: "Tässä kuussa..."

      Sanna Marin on ollut naimisissa Markus Räikkösen kanssa. Nyt hänen seurassaan on usein julkkishiusmuotoilija Joni Willb
      Kotimaiset julkkisjuorut
      55
      2554
    6. Mari Rantanen asettaa sairaan lapsen edun oman uransa edelle - (tekikö Marin samaa)

      Noin toimii kunnon vastuuntuntoinen äiti, mutta siitäkin nämä mt-ongelmaiset vasemmistolaiset häntä täällä haukkuvat. "
      Maailman menoa
      178
      2538
    7. Mitä ajattelet aina

      Kun hän tulee näköpiiriin?
      Ikävä
      152
      1803
    8. Luokatonta toimintaa

      Tyrmistyttävää toimintaa Stora Enson korjuu yrittäjältä Hukkajoella. Täyttä piittaamattomuutta laeista ja luontoarvoista
      Suomussalmi
      68
      1632
    9. Ensimmäisestä kohtaamisesta saakka

      minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa
      Ikävä
      14
      1590
    10. Maailmankuulu homopingviini on kuollut

      Minä niin toivoin että pariskunta olisi saatu kunniavieraiksi ensi kesän Prideen. 💔 "Maailmankuulu homopingviini on k
      Lapua
      6
      1403
    Aihe