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
satunnaisluku
aika
6
686
Vastaukset
- 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") 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 SubMystistä - 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ä.
Luetuimmat keskustelut
Sanna Marin teki sen, mihin muut eivät pystyneet - sote kerralla maaliin
Yli 15 vuotta Suomessa vatvottu sote-uudistus meni lopulta läpi Sanna Marinin hallituksen aikana. Edeltävät hallitukset8710556Pikkupersu osoitti olevansa hieman yksinkertainen
"Heikosti älykkyystesteissä pärjänneistä lapsista tulee muita todennäköisemmin ennakkoluuloisia ja konservatiivisia", uu1418814Marinin hallitus hyväksyi soten (105-77) vuonna 2021
vastaan äänesti Kok, persut, KD, Liike Nyt. Nyt on sitten käynyt niin kuin on käynyt. Pääkirjoitus: Sanna Marin jätti906087Jos on heikkolahjainen ja laiska koulupudokas, niin silloin äänestää vasemmistopuolueita
näin tämä on käytännössä aina mennyt. Jos ei älyä ole paljon suotu, niin ei silloin inssiksi opiskella, vaan päädytään624317Enää viisi yötä Sannan kirjaan
Ihan täpinöissään tässä odotellaan. Vaikea pysytellä aloillaan, kun koko ajan tekisi mieli jo kirjakauppaan rynnätä, mut574245Kannattaako suomalaisen duunarin enää äänestää vasemmistopuolueita
sillä eivät ne tunnu kovasti ajavan suomi-duunarin etuja. Jos katsotaan Vasemmistoliittoa, niin sehän on ihan feministi814093Sanna-kulttilaiset hehkuttaa edelleen Marinia, vaikka esim. Sote oli susi jo syntyessään
mutta kulttilaiset eivät ole järjen jättiläisiä, ja sanoihin Lasse Lehtinenkin, että Suomessa on pohjoismaiden tyhmimmät503729Professori: Maahanmuuttajien rikollisuutta hyssytellään - hävytöntä
Kriminologi Jukka Savolaisen mukaan ikä ja vaikeat olosuhteet eivät riitä selitykseksi. – Tutkitun tiedon valossa sanoi683207Marin teki sen mihin muut eivät pystyneet, vei susi-Soten maaliin
ja sitten hävittyjen vaalien jälkeen lähtikin vastuuta pakoon...... "Professori: sote-uudistus on täysi susi. Sosiaali73127IL - 100 000 potentiaalista sotilasta pakeni Ukrainasta!
"Ukrainasta nuorten miesten joukkopako Liki 100 000 asevelvollisuusikäistä miestä on poistunut Ukrainasta parin viime k702985