satunnaisluku

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.

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 :(

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")

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

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.