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

729

Ää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. Lopetin kokonaan ravintoloissa ruokailun ja juomisen

      Ravintoloissa hinnat ovat aivan naurettava korkealla. Alkoholin juomisessa ravintoloissa ei ole senkään vertaa järkeä.
      Maailman menoa
      171
      2596

    2. Omakotitalossa väkivaltaa ounasrinteellä

      Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin
      Rovaniemi
      22
      2254

    3. kukaan ei pakota kasteeseen..

      Kommentointi estetty, joten kommentoin tähän.Kukaan ei pakota pakkokasteesta puhuvaa kastamaan lastansa.Noloa edes ehdot
      Kaste
      400
      1065

    4. Mari Rantanen eroa! Lausunnot vapun pahoinpitelystä ovat järkyttäviä!

      Poliisiministerin, eli sisäministeri Mari Rantasen on syytä erota!
      Maailman menoa
      151
      943

    5. Anabaptismin kirous

      Uudestikastetut lahkolaiset joutuvat valheen kierteeseen. He joutuvat herjaamaan lapsena saamaanssa kastetta nimeen Isä
      Kaste
      391
      877

    6. Kai odotan että

      Juokset vielä perässäni
      Ikävä
      67
      868

    7. Mitä ikävöit eniten

      kaivatussasi? 🫶
      Ikävä
      57
      759

    8. Kerrohan T miehelle yksi syy

      Miksi hänen tulisi kaivata sinua?
      Ikävä
      101
      732

    9. Rakas, haluan sut niin hulluna kuin olet, tiedän jo sun pakkomielteet ja muut jutut, ihana naiseni

      Kunhan et minun takia satuta itseäsi tai muita, minulla nyt ole niin väliä. Rakas mä ymmärrän ja näen kaiken, sun suure
      Ikävä
      48
      684

    10. Euroviisuhuitelua

      En ole koko viisuista kiinnostunut enkä aio edes katsoa kisoja. Ihmetyttää tämä vouhkaaminen laulaja pariskunnasta joka
      80 plus
      34
      672
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt