Countdown in Userform

L

Legacy 98055

Guest

• Nov 22, 2003

• #2

See "Repaint"
It's a method of ms forms.

Tom

 

Upvote 0

parry

MrExcel MVP

Joined

Aug 20, 2002

Messages

3,355

• Nov 22, 2003

• #3

If you want something full on check out Ivan's site. Otherwise you could do something like this where TextBox1 is the number of seconds to coundown and it loops every second so the label is updated but when this runs you cant actually do anything in Excel so I wouldnt recommend this for 30 mins.

Code:

Private Sub cmdStart_Click()
Dim i As Integer
Select Case TextBox1.Value
Case ""
MsgBox "No value entered!"
Exit Sub
Case Else
For i = TextBox1.Value To 0 Step -1
Label2.Caption = i
Application.Wait (Now + TimeValue("0:00:01"))
'UserForm1.Repaint

Next i
End Select

MsgBox "Blast off!!"
End Sub

 

Upvote 0

S

Swamp Thing

Active Member

Joined

Aug 16, 2002

Messages

313

• Nov 22, 2003

• #4

Re: Countdown in Userform : Some thoughts

If you use a textbox for the time display, you won't need to repaint the form. (Only lock the textbox to prevent the user typing into it).

If you use a non-modal form, the user can continue working while the form is on. (But the timer will not operate while a cell is actually being edited).

 

Upvote 0

L

Legacy 98055

Guest

• Nov 22, 2003

• #5

If you use an API timer, the timer will continue to go even while Excel is in edit mode.

Tom

 

Upvote 0