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.
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


0