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...
VBA Excel taulukon selaus
1
217
Vastaukset
- 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
- 253790
Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä
Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva5422772Vesikin maksaa, miksei hengitysilma?
Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial532300Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin
Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras2122261Joensuun kaupunki levittelee tonttitietoja Keskisuomalaiselle
Sähköposteja ja tonttitietoja levitellään mm. Pasi Koivumaalle131829Mies profiloin sinut
Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.2191550Kiantama kartelli
Onko alhaisempaa kuin toimia ensin kartellissa ja lopuksi koittaa pelastaa nahkasa vasikoimalla muut kun jää kiinni? Eip531522- 971409
Oletko nainen alkanut kammoamaan minua
Sinua ei näy eikä kuulu, ja ilmeisesti kiertelet tilanteita. Oletko huomannut, että olet vieläkin ajatuksissani luvattom621261Saako 60 v vielä töitä? Arto Nyberg puhuu suoraan elämästä ilman töitä
Arto Nyberg täyttää tänään 60 v. Onnea! Nyberg totuttiin näkemään suoran haastatteluohjelman kapteenina vuodesta toise951214