Excel - CRONOMETRO EXCCEL

   
Vista:

CRONOMETRO EXCCEL

Publicado por cesar (2 intervenciones) el 12/09/2010 02:32:56
Hola:

Quisiera saber si alguna sabe como modificar un archivo que tiene un cronometro en excel, pero solo en una fila y lo necesito en varias filas (unas 20 como en los cibers) y que trabajen independientemente cada cronometro.

El nombre del archivo excel es: StopWatchEx y tiene un codigo VB así:

Public stopMe As Boolean
Public resetMe As Boolean
Public myVal As Variant

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target.Value = myVal And Target.Value <> "" Then
'Changed
Dim startTime, finishTime, totalTime, timeRow
startTime = Timer
stopMe = False
resetMe = False

Target.Offset(, 1).Select
startMe:
DoEvents
timeRow = Target.Row
finishTime = Timer
totalTime = finishTime - startTime
Target.Offset(, 1).Value = Format(totalTime, "0.00") & " Seconds"
If resetMe = True Then
Target.Offset(, 1).Value = 0

stopMe = True
End If
If Not stopMe = True Then

GoTo startMe
End If
Cancel = True
End
Else
'Not Changed
stopMe = True
Cancel = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
myVal = Target.Value
End Sub

Por su ayuda, mil gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder