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. kolme tunnistetta kaivatustasi

      Anna kolme tunnistetta kaivatussasi!
      Ikävä
      79
      1571

    2. Kai mua vähän

      Masentaa tämä kaikki. Tämä koko meidän välinen juttu on niin vaikea… Voitaisiinko molemmat lopettaa tilanteen ruokkimine
      Ikävä
      139
      1233

    3. Onko karhukanta jo liian iso? Lenkkeilijä kohtasi kontion juoksulenkillä

      Rantasalmella lenkkeilijä kohtasi karhun. Kylällä karhun näkeminen on ollut tosi harvinaista. Onko karhukanta jo liian i
      Maailman menoa
      123
      940

    4. Vanhat konkarit ulos Elämäni biisistä - Yle selittelee

      Elämäni biisi starttaa taas tänä syksynä. Mukana on ripaus uutta, mutta poissa on iso osa vanhaa... Poissa ovat Markku
      Tv-sarjat
      29
      843

    5. S-ryhmän Israel-boikotti liiketalouden opintojen tapausesimerkkinä

      Tätä S-ryhmän Israel-boikottitapausta käsitellään jo kauppakorkeakoulujen ja johtamiskorkeakoulujen esimerkeissä. Se ant
      Maailman menoa
      31
      797

    6. Oot upea nainen, älä vähättele ittees

      Ja tietojeni mukaan 2 muuta on susta kiinnostuneit mun lisäks. 👀
      Ikävä
      41
      748

    7. Mitä tehdä kun rakastan yhtä ja olen rakastunut toiseen

      Kamala tilanne. Voinko pitää molemmat? 😁
      Ikävä
      68
      670

    8. KP-Sesongilla ongelmia?

      Tarvitsen luotettavaa katonpuhdistajaa ja kuulin, että KP-Sesonki Oy tekee hommat edullisesti ja asiakkaan tarpeet huomi
      Ylöjärvi
      14
      654

    9. Mitä vit,,tua!

      Mikä hiivatin kommunistien teltta oli kirsikan nurkalla, olivat vähällä jäädä telttoinensa auton alle kun olivat sen kul
      Suomussalmi
      29
      646

    10. Hyvä Kukkola! toitte tänne taas jotain uutta

      Niin sitä pitää! Kehittää oikeasti tarjontaa. Nyt on maut kohdillaan! Käykäähän herkuttelemassa wingseillä ja siipiweikk
      Haapavesi
      69
      620
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt