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

719

Ää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. Ranskan vasemmistojohtaja: "Kyllä, meneillään on suuri väestönvaihto!"

      Ranskan vasemmistojohtaja Jean-Luc Mélenchon järkytti myöntämällä avoimesti sen, mitä tiedotusvälineet ovat pitkään pitä
      Maailman menoa
      64
      2233

    2. Valion maitotehtaalla kapina

      Ilmastonmuutoksesta, eläinten hyvinvoinnista ja ympäristön saastumisesta huolestuneet eläinkapinalliset estävät panssa
      Maailman menoa
      50
      2184

    3. SDP haluaa tappaa maaseudun - bensan hinta mahdollisimman korkealle

      Maaseudulla auto on välttämätön asia, ja lähes kaikilla on bensa-autot. Kuinka tyhmä pitää olla jos äänestää demareita?
      Maailman menoa
      162
      2015

    4. Päivän Riikka: polttoöljyn hinta räjähti

      Näyttää tuo putinismi ilmenevän persuissa myös Suomen yrittäjien kampittamisena. Polttoöljy on se katalyytti, joka pitää
      Maailman menoa
      17
      1791

    5. Helsingin yllä valopalloja

      https://www.iltalehti.fi/kotimaa/a/1508be00-28c9-4156-83dc-0be5e7aa3066 "Helsingin taivaalla lensi lauantaina puolen yön
      Sinkut
      85
      1151

    6. Kovasti on hävittäjiä ilmassa. Nytkö se alkoi?

      Onko nyt sota ?? `Vai harjoituksiako vain? Hävittäjät pörrää kovasti.
      Kouvola
      74
      1080

    7. HÄLYYTYS!!

      Ukraina se hyökkää jo Suomen maaperälle. https://www.iltalehti.fi/kotimaa/a/645b83ce-e074-4f00-8b99-245d01b38a36
      NATO
      292
      961

    8. Jumalauta! Ukraina hyökkää jo Suomeenkin!

      Ukrainan drooneja tullut Suomeen ainakin kolme, ehkä enemmäkin! Syvälle Suomeen! Nyt on klovnipressa hukkapätkä mennyt T
      Maailman menoa
      320
      899

    9. Helsingin yllä lensi yöllä jotain outoa puolen yön aikaan valopalloja

      Poliisi on saanut tapauksesta yhden havaintoilmoituksen. Valopalloja oli noin parikymmentä ILtalehdessä on video tapah
      Maailman menoa
      98
      845

    10. Mitä kaikkia vikoja

      On kaivatussasi?
      Ikävä
      56
      817
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt