Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
timer
i want to create a self re-setting countdown timer inside an excel cell i think it is possible but dont know how to get started, ( i'm ver green with computers), i really need step by step instructions fro point a ( logging on) to point z (viewing the timer in action). i anyone can help me, i will be delighted.....thank yo -- dada ----------------------------------------------------------------------- dadad's Profile: http://www.excelforum.com/member.php...fo&userid=1671 View this thread: http://www.excelforum.com/showthread.php?threadid=31917 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
timer
You've picked a pretty advanced point to start --- programming isn't exactly
beginner's "stuff". What is your level of experience with Excel proper? Can you handle event macros? On Sun, 21 Nov 2004 12:42:55 -0600, dadad wrote: i want to create a self re-setting countdown timer inside an excel cell, i think it is possible but dont know how to get started, ( i'm verg green with computers), i really need step by step instructions from point a ( logging on) to point z (viewing the timer in action). if anyone can help me, i will be delighted.....thank you |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
timer
Hi Dadad:
This stuff isn't rocket science but as Myrna points out a little background is handy and timers are usually put in procedeures that you time. But ask and you shall receive: Put a command button on the worksheet. i.e. click the command button on the toolbar and draw it on the sheet then click it and paste the following code between Private Sub CommandButton1_Click() and End Sub and wala your a programmer I hope his wets your appetite a little, it's a lot of fun. Good Luck TK Private Sub CommandButton1_Click() Dim lngStart As Double Dim lngStop As Double Dim lngTime As Double lngStart = Timer ' code here............. Dim Count Do While Count < 10000 Count = Count + 1 Range("M2") = Count Loop With Worksheets("Sheet1").Cells(2, 14) .Value = Count .Font.ColorIndex = 3 .Font.Bold = True .Name = "Arial" End With lngStop = Timer lngTime = (lngStop - lngStart) MsgBox ("That Took " & Format(lngTime, "##.000") _ & " Seconds"), vbInformation, "Good Luck TK" End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
timer
thanks a lot, it looks good. im going to try it now....thanks again -- dada ----------------------------------------------------------------------- dadad's Profile: http://www.excelforum.com/member.php...fo&userid=1671 View this thread: http://www.excelforum.com/showthread.php?threadid=31917 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
timer
thanks again TK ive tried your code and it works perfect, however it it not exactly what i need. i want a timer which will show minutes and seconds, it needs to have a pause conrol and a stop control, it also needs to restart itself on reaching zero. also can it be done in such a way that it does not freeze the worksheet while it is running ?.........thanks again -- dadad ------------------------------------------------------------------------ dadad's Profile: http://www.excelforum.com/member.php...o&userid=16712 View this thread: http://www.excelforum.com/showthread...hreadid=319178 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
timer
dadad wrote:
i want to create a self re-setting countdown timer inside an excel cell, i think it is possible but dont know how to get started, ( i'm verg green with computers), i really need step by step instructions from point a ( logging on) to point z (viewing the timer in action). if anyone can help me, i will be delighted.....thank you Get to the Visual Basic Editor (Alt+F11) View the Project Explorer (Ctl+R) (From here you can get anywhere) Select the desired workbook Insert a Module (will be Module1) Paste the following code in Module1: Sub zOnTimeSub1() ' Dim i% i = Val(Sheets("Sheet1").Cells(1, 1)) If i = 0 Then Sheets("Sheet1").Cells(1, 1).Interior.ColorIndex = 6 Sheets("Sheet1").Cells(1, 1).Value = 30 ElseIf i = 1 Then Beep Sheets("Sheet1").Cells(1, 1).Interior.ColorIndex = 3 Sheets("Sheet1").Cells(1, 1).Value = 0 Else Sheets("Sheet1").Cells(1, 1).Value = i - 1 End If Application.OnTime Now() + TimeValue("00:00:01"), _ "zOnTimeSub1" End Sub Paste the following code into Sheet1 (code): Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address = "$A$1" And _ Target.Interior.ColorIndex = xlColorIndexNone Then Cells(1, 1).Interior.ColorIndex = 6 Cells(1, 1).Value = 30 Application.OnTime Now() + TimeValue("00:00:01"), _ "zOnTimeSub1" End If End Sub De-select A1 Select A1 ----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeeds.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= East/West-Coast Server Farms - Total Privacy via Encryption =--- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Timer | Excel Worksheet Functions | |||
Stopping a Timer / Running a timer simultaneously on Excel | Excel Discussion (Misc queries) | |||
Timer | Excel Programming | |||
API TIMER | Excel Programming | |||
Timer | Excel Programming |