Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
time delay
i would like to make a counter in a text field which count automatically from
1 to 100 when load how can i make a time delay of 0.5sec between each count?? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
time delay
Try this
Insert into a new Module Sub Every5Secs() Application.OnTime Now + TimeValue("00:00:05"), "add1" End Sub Sub add1() UserForm1.TextBox1 = UserForm1.TextBox1 + 1 If UserForm1.TextBox1 = 100 Then MsgBox "That's 100" Exit Sub End If Call Every5Secs End Sub Create a userform with one textbox leave the names at default insert this code Private Sub UserForm_Initialize() Call Every5Secs TextBox1 = 1 End Sub Then run the form Hope this is of some help S KT wrote: i would like to make a counter in a text field which count automatically from 1 to 100 when load how can i make a time delay of 0.5sec between each count?? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
time delay
I wish you luck. I have been trying to find a way to get less than one
second delay for a long time. I am not sure it is possible in VBA. "KT" wrote: i would like to make a counter in a text field which count automatically from 1 to 100 when load how can i make a time delay of 0.5sec between each count?? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
time delay
There is a reason i own glasses doh!!!!
sorry didin't see that decimal point in the original post. not sure how to get a time less than a second sorry S KT wrote: i would like to make a counter in a text field which count automatically from 1 to 100 when load how can i make a time delay of 0.5sec between each count?? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
time delay
Hi back again, was feeling bad about not reading your post correctly
the first time round. I had a search through the groups and have come up with this, which probably won't solve your problem but it may help you figure out what to do... After trying a few different methods I came across a snippet posted by Ray McCoppin back in April of this year, which is a fantastic little bit of code that I shall be keeping in mind myself. I couldn't get this to work on a userform but it seems to work just fine on a worksheet. Create a userform with a command button on it then add this code Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub CommandButton1_Click() [A2] = Time 'show start time Call sleepy End Sub Private Sub Add1() [A1] = [A1] + 1 If [A1] = 100 Then [A3] = Time 'show finish time Exit Sub Else Call sleepy End If End Sub Private Sub UserForm_Initialize() [A1] = 1 'number to start count End Sub Private Sub sleepy() Sleep 500 'set amount of milliseconds delay here Call Add1 End Sub By my count if you count 1 to 100 with a half second between each count it should take you 50 seconds (shouldn't it?? LoL) well this will do just that. I hope it helps you out and again I'm sorry for not reading your post properly the first time round. S |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
time delay | Excel Programming | |||
Time delay function | Excel Programming | |||
Time Delay in VBA | Excel Programming | |||
Copy/Time Delay | Excel Programming | |||
Time Delay | Excel Programming |