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
740
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
Kenellä oli ryppyinen paita, josta Halla-aho mielensä pahoitti?
Ei ollut Keskisarja, jonka paita vain repsotti housujen päällä puolittain. Muistatteko tapausta?393001Miksi Halla-aho on niin hyvin menestynyt - mutta punavihreä ei?
Hyvin näkee kuinka punavihreää ottaa pahasti päähän kun Virta on taas töppäillyt pahasti. Ja kun punavihreä ei pärjää, n342228Ruoan arvonlisävero menee käytännössä tukijussille
Ilman juomia elintarvikkeiden myynti vuonna 2025 oli reilut 15 miljardia euroa. Tuolla tasolla arvonlisävero pyörii pari482149Vihreät REPEÄMÄSSÄ oijoijoi....Virran sekoilut on liikaa
Jo ennestään vihreiden kannatus on suossa vaikka puolue istuu oppositiossa, nyt tuli Virran temppu kun häipyi tuosta vaa792009Ruotsissa uusi vakava ongelma: Vanhusten seksuaalinen hyväksikäyttö
palvelutaloissa ja kotihoidossa. Tämäkin on ihan puhtaasti väärän maahanmuuton vaikutusta, sillä tekijät ovat kaikki keh541726Työeläkkeiden maksaminen lopetettava ASAP.
"Vanhimmat sukupolvet ovat saaneet vastinetta eläkemaksuilleen moninkertaisesti nykyisiin ja tuleviin sukupolviin verr571469Poliisi tutkii keskiviikkoiltana Kiuruveden keskustassa tapahtunutta väkivallantekoa.
Itä-Suomen poliisi tutkii Kiuruveden keskustassa keskiviikkoiltana tapahtunutta epäiltyä väkivallantekoa. Tapaus on herä161442Mika Poutala salasi osallistumisensa Erikoisjoukkoihin
Poutala ryhtyi ministeriksi 13.6.2025 ja 5.8.2025 ilmoitettiin hänen olevan seuraavalla Erikoisjoukot-kaudella. http451279Siis HYI OLKOON! Ihmiset, eikö enää ole mitään rajaa?
https://www.iltalehti.fi/viihdeuutiset/a/4142eeb2-a589-4109-a5d0-e8f341df585c "Susanna Penttilän seksibussi kauhistutta1111186Puuma Martina iski nuoren miehen
Martina ja Hajji Muhis oikealta nimeltään Muhammad Abdilrasoon hempeilivät Tallinnassa. Hajji 28 vuotias ja Martina pian160915