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

722

Äänestä

    Vastaukset

    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. Kansalla on oikeus tietää miksi persut pettävät

      Koko kulunut hallituskausi on kysytty persuilta, minkä vuoksi he ovat pettäneet käytännössä jokaisen vaalilupauksen, ain
      Maailman menoa
      112
      7787

    2. Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava

      valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak
      Maailman menoa
      131
      3133

    3. Minkälaisen viestin

      Laittaisit ikävöinnin kohteelle, jos rohkenisit?
      Ikävä
      161
      2015

    4. Kansalla on oikeus tietää mikä on SDP:n talousohjelma jolla maan talous

      saadaan nousuun? Miksi puolue piilottelee sitä, vai eikö sitä ole? Tähän asti olemme vaan saaneet kuulla hallituksen ha
      Maailman menoa
      80
      1769

    5. Ammattiliitto 900 euroa/vuosi - Työttömyyskassa 72 euroa/vuosi

      Ammattiliitosta eroamalla voi säästää jopa 800 euroa vuodessa. Mitä enemmän tienaat, sitä enemmän maksat liitolle. Esim
      Maailman menoa
      146
      1642

    6. Miten voit olla niin tyhmä

      että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle
      Tunteet
      180
      1587

    7. Missä vaiheessa

      Päätit irl luovuttaa minun suhteeni?
      Ikävä
      133
      1234

    8. Millaisena uskot

      Kaivattusi kokevan tunteensa?
      Ikävä
      80
      914

    9. Kyriake=Kirkko

      Kirkko, Kyriake Kirkko-sana tulee kreikankielen sanasta Kyriake=Herran omat, Kristuksen omaksi kastettujen suuri joukko
      Kaste
      58
      854

    10. Mitä haluat eniten

      Kaivattusi kanssa?
      Ikävä
      53
      804
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt