Kertokaapa viisaammat, miten vba:lla tehdään sellainen "do untill"-silmukka, joka tallennetaan yleispäteväksi funktioksi, jonka voi sitten tarvittaessa valita Excelin "käyttäjän määrittämistä" funktioista. Ehdot ovat seuraavat: jos aiemmista laskutoimituksista saatu luku on pienempi kuin 0, siihen on lisättävä 24 niin monta kertaa että se saadaan välille 0-24, ja vastaavasti, jos kyseinen luku on suurempi kuin 24, siitä on vähennettävä 24 niin monta kertaa että se saadaan välille 0-24.
Olen aloittelija vba-ohjelmoinnissa, ja netistä löytämieni esimerkkien avulla sain muokatuksi seuraavan yritelmän, joka kyllä toimii nimetyssä solussa, jos vba-ikkunasta käsin painaa F5
Function Supistus()
Dim x As Variant
Do Until x > 0
x = Range("A1").Value
x = x 24
Range("A1").Value = x
Loop
Do Until x < 24
x = Range("P56").Value
x = x - 24
Range("A1").Value = x
Loop
End Function
Sellaista yleispätevää "käyttäjän määrittämää funktiota", jonka tarvitsen, en tästä saanut millään aikaiseksi.
Avusta kiitollinen
Masa
Vba-silmukkafunktio
11
591
Vastaukset
- mansenmasa
Tuossa omassa yritelmässäni luonnollisesti solu on aina sama, kaikissa siis pitää olla "A1" vaikka yhteen jäi vahingossa "P56", kun muutin kaavaa tänne lähetettäväksi.
soluun mihin haluat tuloksen kaava =Supistus(F1) ja muuttaa sitten soluun laskutuloksen tuloksen solu(F1) haluamallasi tavalla???
Ja funktio löytyy normaalisti kaavavelhosta...
moduuliin...
Function Supistus(Arvo As Double) As Double
Application.Volatile True
If Arvo < 0 Then
Do Until Arvo > 0
Arvo = Arvo 24
Loop
ElseIf Arvo > 24 Then
Do Until Arvo < 24
Arvo = Arvo - 24
Loop
End If
Supistus = Arvo
End Functio- mansenmasa
kunde kirjoitti:
soluun mihin haluat tuloksen kaava =Supistus(F1) ja muuttaa sitten soluun laskutuloksen tuloksen solu(F1) haluamallasi tavalla???
Ja funktio löytyy normaalisti kaavavelhosta...
moduuliin...
Function Supistus(Arvo As Double) As Double
Application.Volatile True
If Arvo < 0 Then
Do Until Arvo > 0
Arvo = Arvo 24
Loop
ElseIf Arvo > 24 Then
Do Until Arvo < 24
Arvo = Arvo - 24
Loop
End If
Supistus = Arvo
End FunctioSuurkiitos, tämä toimii! On vähän erilainen kuin odotin -- en arvannut, että "if -- then" pitää kuitenkin olla mukana, vaikka siinä on jo "do until".
En voi muuta kuin ihastella Sinun ja muiden osaamista. Luin pari aloittelijan vba-opaskirjaa läpi ihan vain tätä varten ja yhden paksun formulakirjan, mutta en silti käsittänyt, mitä pitää tehdä. Mutta ehkäpä minäkin joskus.
Masa - ...
mansenmasa kirjoitti:
Suurkiitos, tämä toimii! On vähän erilainen kuin odotin -- en arvannut, että "if -- then" pitää kuitenkin olla mukana, vaikka siinä on jo "do until".
En voi muuta kuin ihastella Sinun ja muiden osaamista. Luin pari aloittelijan vba-opaskirjaa läpi ihan vain tätä varten ja yhden paksun formulakirjan, mutta en silti käsittänyt, mitä pitää tehdä. Mutta ehkäpä minäkin joskus.
Masawhilettämällä voi vällttää iffin
Do while Arvo < 0
Arvo = Arvo 24
Loop
print arvo ... kirjoitti:
whilettämällä voi vällttää iffin
Do while Arvo < 0
Arvo = Arvo 24
Loop
print arvoei voi toimi millään toi sun ehdotus... ;-)
- ...
kunde kirjoitti:
ei voi toimi millään toi sun ehdotus... ;-)
Function Supistus(Arvo As Double) As Double
Application.Volatile True
Do While Arvo < 0
Arvo = Arvo 24
Loop
Do While Arvo > 24
Arvo = Arvo - 24
Loop
Supistus = Arvo
End Functio - mansenmasa
... kirjoitti:
Function Supistus(Arvo As Double) As Double
Application.Volatile True
Do While Arvo < 0
Arvo = Arvo 24
Loop
Do While Arvo > 24
Arvo = Arvo - 24
Loop
Supistus = Arvo
End FunctioKiitos myös ...:lle. Tämäkin funktio toimii. Testasin molempia vierekkäin, ja molemmilla saa aivan samat arvot.
Masa
Eikös tuon saa laskettua ilman makroakin?
- mansenmasa
Kokeilin vielä uteliaisuuttani jakojäännöskaavaa. Onkohan itseisarvo siinä tarpeen? Kun en ensin saanut Exceliä hyväksymään kaavaa, jossa oli mukana itseisarvo, kokeilin pelkkää jakojäännöstä taas kahden edellisen kanssa rinnakkain, ja hienosti toimi. Onkohan jakojäännös aina luonnostaan positiivinen luku vai voiko se joskus olla negatiivinen? (Sitten onnistuin kyllä lisäämään jakojäännöksenkin.)
Jakojäännösratkaisu onkin kätevin. Ähelsin kyllä aluksi pitkään funktioiden ja kaavojen kanssa, mutta kun en ole koskaan tarvinnut jakojäännösfunktiota, en tullut sitä ajatelleeksi, vaan yritin ratkaista ongelman turhan monimutkaisella tavalla rakentamalla oman funktion.
Kiitos kaikille teille kolmelle avuliaalle. Paljon opin taas uutta teidän ansiostanne.
Masa Calcilla vain pikaisesti kokeilin ja vaihdoin nuo funktioiden nimet suomalaisen excelin käyttämiksi. Niin näkyykin olevan, että jos jakaja on positiivinen, niin ei tuo jakojäännös mene Calcissakaan pakkaselle. Eli se ulkopuolinen itseisarvofunktio onkin tarpeeton antamallasi ehdolla. Pahoittelen aiheuttamaani ylimääräistä vaivaa ja "hyvittelen", että saatoin vähän auttaa.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!
Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk71300Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli
Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.1681203Milloin bikineistä
Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet1021055Mene perheinesi arkkiin - kasteelle !
Juutalaiset oli hyvin lapsirakkaita, mitään ehkäisyä ei käytetty. Perheissä oli paljon lapsia. Viiden koko perheen kast470997- 131904
Me, kaikki suomalaiset, emme pommita Pietaria
Vaikka Suomen tasavalta, yhdessä muun Euroopan sekä USA:n kanssa käykin hyökkäyssotaansa Venäjää vastaan, pommittaen nyt271889Olimmeko molemmat
ujoja ja hankalia, vai minä vain? Mietin, oliko se silloin epävarmuutta vai kiinnostuksen puutetta.71884Johanna Tukiainen ei suostu muuttamaan pois vuokra-asunnosta!
Seiska kertoi tänään, että Johanna Tukiainen ei ole suostunut poistumaan Helsingin Munkkisaarenkadun vuokra-asunnostaan.66807Mun on ikävä sua J ,
Mun on ikävä sua J, haluaisin tutustua paremmin (vaikka tämä aivan älytöntä onkin). Voitaisiinko nähdä ja jutella ihan47802Apostolit kastoivat eri tavalla kuin kirkko
Raamatussa on kaksi ristiriitaista kastekaavaa. Toinen ei voi olla oikea. Kumpi on alkuperäinen? "Menkää siis ja tehkää397766