insertar un cronometro en excel

javier

unread,

Dec 30, 2004, 7:51:01 AM12/30/04

to

necesito insertar un cronometro en una celda de excel para despues hacer
operaciones con el tiempo marcado por ese cronometro.
Alguien sabe como hacerlo?

Camilo Bathory

unread,

Dec 30, 2004, 3:42:40 PM12/30/04

to

Prueba con este codigo... y se lo asignas a un boton.
Al presionar la priera vez el boton ubica el tiempo de
partida en la celda A1 y por cada vez que vuelvas a
presionar el boton toma parciales. También le adicione
dos columnas Parcial (Comparativo entre el ultimo y
penultimo tiempo) y Rank (Comparativo del ultimo tiempo y
el primero).

Option Explicit

Public BOF, COF, EOF As Long
Public BOC, COC, EOC As Long

Sub Cronometro()
BOF = 1 'Fila de Tiempo Partida
EOF = 65536 'Ultima Fila de Excel

BOC = 1 'Columna de Tiempos
COC = 2 'Columna de Parciales
EOC = 3 'Columna de Rank

If Cells(BOF, BOC).Value = "" Then
Cells(BOF, BOC).Value = Now()
Cells(BOF, BOC).NumberFormat = "h:mm:ss"
Cells(BOF, COC).Value = "Parciales"
Cells(BOF, EOC).Value = "Rank"
Else
EOF = Range(Cells(BOF, BOC), Cells(EOF, BOC).End
(xlUp)).Rows.Count
Cells(EOF + 1, BOC).Value = Now()
Cells(EOF + 1, BOC).NumberFormat = "h:mm:ss"
Cells(EOF + 1, COC).FormulaR1C1 = "=R" + Trim(Str(EOF
+ 1)) + "C" + Trim(Str(BOC)) + "-R" + Trim(Str(EOF))
+ "C" + Trim(Str(BOC))
Cells(EOF + 1, COC).NumberFormat = "[h]:mm:ss"
Cells(EOF + 1, EOC).FormulaR1C1 = "=R" + Trim(Str(EOF
+ 1)) + "C" + Trim(Str(BOC)) + "-R" + Trim(Str(BOF))
+ "C" + Trim(Str(BOC))
Cells(EOF + 1, EOC).NumberFormat = "[h]:mm:ss"
End If
End Sub

Saludos \m/

>-----Mensaje original-----

>.
>

Luis

unread,

Dec 31, 2004, 5:48:56 PM12/31/04

to

Javier, la hoja que puedes descargar del siguiente vinculo te muestra un
ejemplo de un cronómetro en excel:

http://www11.brinkster.com/luism0/AyudaForo.htm

Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"javier" <jav...@discussions.microsoft.com> escribió en el mensaje
news:D9AE6050-174A-4B8E...@microsoft.com...

> necesito insertar un cronometro en una celda de excel para despues hacer
> operaciones con el tiempo marcado por ese cronometro.
> Alguien sabe como hacerlo?
>

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.822 / Virus Database: 560 - Release Date: 22/12/2004

Willi@m

unread,

Dec 31, 2004, 7:47:39 PM12/31/04

to

Javier, con este código insertas un cronómetro en la celda $A$1, mira para
ver si te sirve, o mira el adjunto, chao.
Willi@m

Option Explicit
Public dHoraDeInicio As Date

Sub CRONOMETRO()
'
' Macro creada el 31/12/2004 por William Posada C.
'
With Range("$A$1")
.Value = TimeValue("00:00:00")
.NumberFormat = "dd - hh:mm:ss"
.EntireColumn.AutoFit
End With
dHoraDeInicio = Now()
SET_CR
End Sub

Sub SET_CR()
'
' Macro creada el 31/12/2004 por William Posada C.
'
Range("$A$1").Value = (Now() - dHoraDeInicio)
Application.OnTime Now + TimeValue("00:00:1"), "SET_CR"
End Sub

"javier" <jav...@discussions.microsoft.com> escribió en el mensaje
news:D9AE6050-174A-4B8E...@microsoft.com...

Raúl Z.

unread,

Jan 4, 2005, 3:37:03 PM1/4/05

to

HOLA CAMILO,
Me interesó mucho este código pero puedo moverlo en columnas solamente
No se como hacerlo para q esté en x ej. a28 o en c 14
Para la columna sé q si cambio el valor de BOC,COC y EOC lo logro pero no en
las filas.
Espero haber sido claro.
Gracias

Raúl Z.

"Camilo Bathory" escribió:

KL

unread,

Jan 4, 2005, 3:59:03 PM1/4/05

to

Raul,

En tanto vuelve Camilo, prueba sustituir las siguientes lineas:

BOF = 1 'Fila de Tiempo Partida

por

BOF = 28 'Fila de Tiempo Partida

y

EOF = Range(Cells(BOF, BOC), Cells(EOF, BOC).End _
(xlUp)).Rows.Count

por

EOF = Cells(EOF, BOC).End(xlUp).Row

Saludos,
KL

"Raul Z." <Ra...@discussions.microsoft.com> wrote in message
news:53D8D959-DDE1-4E58...@microsoft.com...
> HOLA CAMILO,
> Me intereso mucho este codigo pero puedo moverlo en columnas solamente
> No se como hacerlo para q este en x ej. a28 o en c 14
> Para la columna se q si cambio el valor de BOC,COC y EOC lo logro pero no

> en
> las filas.
> Espero haber sido claro.
> Gracias
>

> Raul Z.
>
> "Camilo Bathory" escribio:

>
>> Prueba con este codigo... y se lo asignas a un boton.
>> Al presionar la priera vez el boton ubica el tiempo de
>> partida en la celda A1 y por cada vez que vuelvas a

>> presionar el boton toma parciales. Tambien le adicione

Raúl Z.

unread,

Jan 4, 2005, 4:37:10 PM1/4/05

to

Gracias K.L.
Anduvo perfectamente.

Raúl Z.

"KL" escribió: