Terve,
Exelillä tehdyssä ohjelmassani on "peukaloidenpyöritysrivi" eli rivi joka ei tee mitään muuta kuin odottaa tietyn ajan. Rivi on seuraavanlainen:
Application.Wait Now TimeValue("0:00:01")
Kyseinen rivi saa ohjelman odottamaan yhden sekunnin, mutta entäpä jos haluan ohjelman odottavan vaikkapa vain puoli sekuntia, onnistuuko se?
-Pasi-
Exelillä tehdyssä ohjelmassani on "peukaloidenpyöritysrivi" eli rivi joka ei tee mitään muuta kuin odottaa tietyn ajan. Rivi on seuraavanlainen:
Application.Wait Now TimeValue("0:00:01")
Kyseinen rivi saa ohjelman odottamaan yhden sekunnin, mutta entäpä jos haluan ohjelman odottavan vaikkapa vain puoli sekuntia, onnistuuko se?
-Pasi-
Vastaukset 7
Vanhimmat
Yritin sellaista että jakais sen sekunnin kahdella, mutta ei onnistu, tekee molemmat samaan aikaan.
Sub Makro1()
[A1] = 1
Application.Wait Now TimeValue("0:00:01") / 2
[A10] = 1
End Sub
Tämä kyllä onnistuu, tekee toisen viiden sekunnin kuluttua.
Sub Makro1()
[A1] = 1
Application.Wait Now TimeValue("0:00:10") / 2
[A10] = 1
End Sub
Ilmeisesti TimeValue ei ymmärrä sekuntia pienempää aikaa
Kiitos kuitenkin yrityksestä!
Yksi ratkaisu ongelmaan olisi tehdä silmukka, joka ei tee mitään:
Alku = Timer
Do While Timer < Alku 0.5
Loop
Edellä oleva koodi suorittaa tyhjää silmukkaa puolen sekunnin ajan. Esimerkissä "Alku" on single-tyyppinen muuttuja.
Timer-funktio palauttaa keskiyöstä kuluneen ajan sekunnin sadasosan tarkkuudella. Siispä yllä oleva koodi ei toimi oikein, jos vuorokausi vaihtuu juuri silmukan suorituksen aikana.
- Mika
Joo, tuota täytyykin kokeilla. Aika sattumaa olisi jos koodin suoritus sattuisi juuri puolen yön aikaan ja vieläpä sekunnin sadasosan tarkkuudella ja sitä paitsi ei ole niin älyttömän paha juttu vaikka tuollainen sattuma tulisikin.
Kiitos!
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
ja koodissa sitten käytät
sleep 500
1000 millisekuntia=1 s
Juuri tuollaista koodia etsinkin, yksinkertaista ja "helppokäyttöistä". Harmi vain että Excel ilmoitti selkeästi:
"Käännösvirhe: Vakioita, kiinteämittaisia merkkijonoja, taulukoita ja Declare-lausekkeita ei voi käyttää objektimoduulien Public-jäseninä"
En vielä kokeillut toimiiko koodi jos se on jossakin modulissa, nyt yritin laittaa sitä UserFormin koodiin. Pärjään kyllä tuolla Loop-koodillakin.
Kiitos ja kumarrus!
-Pasi-
Joo ei toimi jos Public muuttuja lomakkeella, joten
moduuliin...
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
ja lomakkeella voit sitten käyttää esim.
sleep 500