satunnaisluku

aika

Hei. Saako satunnailuku kaavaan sellaista komentoa, jossa painettaessa F9 nappia satunaisluku generaattori pyörisi vaikka 1min ja ilmoittaisi sen jälkeen luvun. Käytössä suomenkielinen excel

kaava =satunnaisluku()*1500

6

742

Äänestä

    Vastaukset 6

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • tarkkana

      Tästä voisi kehittää ainakin VBA:lla helposti "miettivän" generaattorin.

      Eli moduliin tämä:
      '*******
      Sub aja()
      ThisWorkbook.Sheets(1).Calculate
      ' tee proseduuri "luku" annetun ajan jälkeen
      milloin = Now TimeValue("00:00:10")
      Application.OnTime milloin, "luku"
      End Sub

      Sub luku()
      Range("A1").Value = Rnd(1) * 1500
      End Sub
      '*********

      "aja" tuuppaa A1 soluun 10 sekunnin kuluttua satunnaisluvun - viilaillahan tuota voi

      • aika

        Kokeilin ohjelmaa ja mulla se ei oikein pelittänyt. eli kun suoritin ajon, ohjelma ilmoitti että lukua ei löydy.Taas jos ajan luvun, niin luku tulee heti. En juurikaan ole käyttänyt VBE:tä joten tarvitsen hiukan apua. Miksi toi aika-arvo ei toteudu. Mulla on suomenkielinen excel.

      • tarkkana
        aika kirjoitti:

        Kokeilin ohjelmaa ja mulla se ei oikein pelittänyt. eli kun suoritin ajon, ohjelma ilmoitti että lukua ei löydy.Taas jos ajan luvun, niin luku tulee heti. En juurikaan ole käyttänyt VBE:tä joten tarvitsen hiukan apua. Miksi toi aika-arvo ei toteudu. Mulla on suomenkielinen excel.

        Koodi toimii sulla näköjään hyvin riville:

        Application.OnTime milloin, "luku"

        saakka mutta sitten se ei jostain kumman syystä löydä poseduuria nimeltä luku()

        Itse tuosta viestistä vielä copy pastella heitin moduliin ja hyvin toimi. Ikävä kyllä en osaa enempää auttaa :(

      • tarkkana
        aika kirjoitti:

        Kokeilin ohjelmaa ja mulla se ei oikein pelittänyt. eli kun suoritin ajon, ohjelma ilmoitti että lukua ei löydy.Taas jos ajan luvun, niin luku tulee heti. En juurikaan ole käyttänyt VBE:tä joten tarvitsen hiukan apua. Miksi toi aika-arvo ei toteudu. Mulla on suomenkielinen excel.

        Entäs, jos virität koodin sekaan vain tämän rivin (enen satunnaisluvun arpomista):

        Application.Wait Now() TimeValue("00:00:05")

      • kunde

        kun ei ole milloin muuttujaa määritelty oikein- eli toimii vain kerran

        tossa minuutin ajolle makro

        Public milloin As Double
        Public Loppu As Double
        Sub aja()
        Loppu = Now TimeSerial(0, 1, 0)
        Luku
        End Sub
        Sub Luku()
        Range("A1").Value = Rnd(1) * 1500
        milloin = Now TimeValue("00:00:01")
        Application.OnTime milloin, "luku", Loppu
        End Sub

      • tarkkana
        kunde kirjoitti:

        kun ei ole milloin muuttujaa määritelty oikein- eli toimii vain kerran

        tossa minuutin ajolle makro

        Public milloin As Double
        Public Loppu As Double
        Sub aja()
        Loppu = Now TimeSerial(0, 1, 0)
        Luku
        End Sub
        Sub Luku()
        Range("A1").Value = Rnd(1) * 1500
        milloin = Now TimeValue("00:00:01")
        Application.OnTime milloin, "luku", Loppu
        End Sub

        Mystistä - itse olent tuota kokeillut useammallakin ohjelmaversiolla eikä mitään ongelmaa.

        Jos käsitin oikein, generaattorin piti miettiä annettu aika ja antaa sitten luku.


        Tälläkin voisi ongelman ratkaista - eli nyt tuo luvun arpova osuus miettiin viisi sekuntia ja sitten antaa luvun

        Sub luku()
        Application.Wait Now() TimeValue("00:00:05")
        Range("A1").Value = Rnd(1) * 1500
        End Sub

        Paha kyllä tässä joutuu katselemaan tiimalasia.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. kenen näköinen

      kaivattusi on ?
      Ikävä
      53
      937

    2. Muistatko Mikkelin panttivankidraaman?

      Uusi draamasarja järkyttävästä tapauksesta on tulossa. Tositapahtumiin perustuva sarja ammentaa vuoden 1986 Mikkelin pan
      Maailman menoa
      69
      731

    3. Iäkäs Jämsäläinen mies kuoli poliisiautoon matkalla Jyväskylän putkaan

      Iäkäs vanhus humalassa niin huonossa kunnossa, ettei pystynyt huolehtimaan itsestään niin ainoa apu sillä hetkellä oli
      Jämsä
      59
      712

    4. Mitä haluaisit kysyä tänään

      Kaivatultasi? Anna jokin tunniste itsestäni tai hänestä.
      Ikävä
      55
      670

    5. En välitä sinusta yhtään

      Olet pelkkä itsestään liikoja luuleva ämmä. Kierrän sinut kaukaa nyt ja aina. Olit mulle pelkkä lelu vaan.
      Ikävä
      44
      626

    6. Ei se nainen edes oo

      mitenkään nätti 🤣🤣🤣🤣🤣
      Ikävä
      62
      593

    7. Olen luovuttanut

      Välimme menivät niin pahasti solmuun, ettei niitä voi enää korjata. On aika jatkaa elämässä eteenpäin. Toivon sulle kaik
      Ikävä
      33
      593

    8. Ernest Lawson täräytti erikoisen heiton TTK-lehdistötilaisuudessa: " Onko tässä tarkoituksena...?"

      Ernest Lawson esitteli uudet TTK-tähtioppilaat ja opettajat torstaina 6.8. lehdistölle. Tulevalla kaudella on yksi hausk
      Kotimaiset julkkisjuorut
      7
      576

    9. Hyvä ihminen

      Koetko olevasi hyvä ihminen ja kohteletko toisia arvostavasti?
      Ikävä
      78
      486

    10. Nainen. Onko meissä

      Sinusta jotain samaa? Näköä tai luonteenpiirteitä? Utelias
      Ikävä
      37
      460
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt