Notifications
Clear all

Cronometro

22 Posts
3 Usuários
0 Reactions
3,465 Visualizações
(@renan1988)
Posts: 8
Active Member
Topic starter
 

Olá pessoa, gostaria de uma ajuda dos programadores de plantão..rs...

Bom, eu gostaria de fazer uma macro que, se a célula A1="1", o cronometro dispara, e se a célula A1="2", o cronometro PAUSA, porém se voltar a A1="1" ele retorna do último valor pausado.
Contudo, eu gostaria que a macro continuasse rodando caso esse cronometro esteja em "disparada" mesmo com o excel fechado (vinculando com o horário do computador eu sei que dá) porém, se eu vincular com o horário do computador eu não estou conseguindo pausa-lo (A1="2").

Enfim, espero a ajuda de vocês e tomara que eu me fiz entender.

Obrigado a todos,

Até mais...

 
Postado : 16/05/2014 2:24 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

use a pesquisa do fótum!!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/05/2014 2:27 pm
(@renan1988)
Posts: 8
Active Member
Topic starter
 

Boa tarde,

Como mencionei, há características da minha macro bem peculiares e não encontrei nenhuma que satisfizesse o que necessito.

No aguardo...

att..

 
Postado : 16/05/2014 3:16 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Por favor, monte seu arquivo modelo e deposite aqui.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/05/2014 6:50 am
(@renan1988)
Posts: 8
Active Member
Topic starter
 

Obrigado pela atenção Alexandre,

Bom, o arquivo está em anexo.

Como eu disse, o tempo (cronometro) está disparando e está vinculado com o relógio do computador, então por mais que eu consiga pausar o cronometro, quando ele voltar a contar, ele atualizará pro horário do relógio do computador e não pela continuação do horário pausado na célula.
Pra ficar mais fácil a compreensão, eu irei utilizar o cronometro em forma de número (e não horário) e esse número estará vinculado com a minha produção e atualizando-a segundo a segundo. Porém eu não trabalharei nos finais de semana e portanto gostaria de pausar a produção (cronometro).

Pelo que eu saiba, existe duas formas de se cronometrar no excel.

1- Vinculando com o horário do computador (pra mim não servirá da forma que eu utilizo, pois a produção continuará contando nos finais de semana)
2- Disparando o cronometro em uma célula especifica (porém quando o fechar o excel a macro deixará de executar e a produção ficará "pausada")

Contudo, eu acho que a forma ideal para esse macro seria vincular com o horário do computador, mas que ela consiga enxergar que não deva continuar cronometrando nos finais de semana, e que depois de pausada, consiga também voltar a cronometrar do tempo pausado.

Finalizando, o que eu quero talvez seja um pouco complexo demais para o excel, mas caso alguém consiga, ficarei muito grato!

Obrigado desde já...

 
Postado : 19/05/2014 1:40 am
(@edcronos)
Posts: 1006
Noble Member
 

eu não sei trabalhar com horas no excel,
mas adicionando uma coluna de tempo de pausa para ser subtraído do tempo total
uma macro pra entrar em pausa e outra para sair da pausa recalculando essa coluna
creio que algo como

Sub Sai_pausa()
If Cells(4, 25) = "" Then Exit Sub
If Cells(4, 25) <> "" Then Cells(4, 25) = Now - Cells(4, 25)
End Sub

Sub pausa()
If Cells(4, 25) = "" Then Cells(4, 25) = Now
If Cells(4, 25) <> "" Then Cells(4, 25) = Cells(4, 25) + (Now - Cells(4, 25))
End Sub

pela planilha as formulas com horas deve ser mais facil para vc do que para mim
pelo menos é uma dica.
até

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 19/05/2014 6:00 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue um modelo de cronometro em um formulário.
Após inicio, clicando em parar, pausa a contagem, clicando novamente em inicio retoma do momento interrompido.
Porem somente funciona com a planilha e Excel abertos.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/05/2014 6:30 am
(@renan1988)
Posts: 8
Active Member
Topic starter
 

Edcronos e Reinaldo, obrigado pela resposta!

Edcronos, o problema de disparar o cronometro em uma célula para subtrair do cronometro da outra célula será o próximo fim de semana. Eu já tinha pensado nessa possibilidade, pois ele dispararia as 00:00:00 do sábado e pausaria as 00:00:00 da segunda-feira. Porém esse cronometro pausado ficará estático e a célula cronometrando terá ele como subtração, chegando no próximo final de semana ele zeraria e começaria a contar novamente, perdendo as 48 horas do final de semana passado.

Reinaldo, em relação a esse tipo de cronometro, como eu disse em minha resposta anterior, eu não posso me dar ao luxo de o excel, por algum motivo qualquer, fechar e eu perder todo o controle da minha produção.

 
Postado : 19/05/2014 1:51 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Então voce deve "recorrer" a algo que não dependa do Excel, mas sim do sistema operacional. Talvez algum executável desenvolvido em "C", ou outra linguagem

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/05/2014 2:05 pm
(@edcronos)
Posts: 1006
Noble Member
 

não entendi muito bem oq vc quis dizer, não entendo de horas de excel

mas oq pensei é o seguinte

dia hora de inicio=dia5 10hora da manha

dia hora da pausa=dia6 10hora da manha
dia hora da retomo=dia7 10hora da manha
total de pausa=1dia

dia hora termino= dia10 10horas

total de dias levados =10-5-1=4
claro que teria que reformular a planilha para separar dias e horas mas iria ficar praticamente a mesma coisa

as pausas se somariam
if Cells(4, 25) <> "" Then Cells(4, 25) = Cells(4, 25) + (Now - Cells(4, 25))
se já tiver uma pausa somar pausa gravada com (tempo atual - pausa)

não sei como funciona os comando de tempo então não posso ajudar muito

até.

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 19/05/2014 3:35 pm
(@edcronos)
Posts: 1006
Noble Member
 

ou poderia manter 2 registros de pausa

pausa 1
coluna GG = hoje
sai da pausa
coluna GH =tempo da pausa
coluna GG =""

pausa 2
coluna GG = hoje
sai da pausa
coluna GH =pausa antiga GH + tempo da pausa 2
coluna GG =""

tempo total = tempo decorrido - tempo de pausa de GH

se eu entendi tem algumas maneiras de se fazer
isso se tiver como somar e subtrair tempo , se não tiver como com vba,
se faz no excel com uma celula de apoio com formula
ou simplesmente não entendi oq vc quer

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 19/05/2014 3:51 pm
(@renan1988)
Posts: 8
Active Member
Topic starter
 

Bom, eu consegui utilizar a sua macro Edcronos, o único problema dela é que se eu tiver 40 máquinas à produzir, terei que montar 40 macros. Mas já é de grande valia essa macro, muito obrigado!

Até mais!

 
Postado : 19/05/2014 4:51 pm
(@edcronos)
Posts: 1006
Noble Member
 

se for dada pausa ao mesmo tempo, uma unica macro com ativação em toda a coluna
um botão para ativar a pausa e um para tirar da pausa.
oq eu postei era somente um exemplo por não saber sua real necessidade, e por não saber trabalhar com tempo em excel.

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 19/05/2014 5:58 pm
(@renan1988)
Posts: 8
Active Member
Topic starter
 

Quando eu acho que encontrei a solução para os meus problemas, aparece mais complicações...rs...

Mesmo que for dado pausa ao mesmo tempo, toda as máquinas da minha produção terão que começar ao mesmo tempo, caso contrário, uma máquina vai subtrair mais tempo do que a outra (caso comece a contar posteriormente).

O meu problema agora, é que eu terei que SEMPRE "startar" a macro manualmente e bem no horário especifico da minha produção (que no caso será de madrugada). Poderia deixar o Excel aberto e programado executar a macro, porém não acho que seja o ideal.

Enquanto isso, vou pensando aqui e pesquisando... kkkkk

Obrigado pelas respostas!

Até mais!

 
Postado : 19/05/2014 9:57 pm
(@edcronos)
Posts: 1006
Noble Member
 

cara, vc está complicando pq quer.
não precisa começar as produções ao mesmo tempo nem manualmente.

a mesma função que inicia e para o cronometro pode iniciar e parar a pausa.
o tempo da pausa vai ser subtraído de cada tempo de produção,
é matemática simples

1ª data de inicio dia 5
2ª data de inicio dia 8
tempo decorrido 3 dias

tempo de pausa 2 dias
tempo decorrido depois da pausa 5 dias

dia 18--->> 18-5-2= 11 dias de produção do 1º evento
dia 18--->> 18-8-2= 8 dias de produção do segundo evento

o tempo das produções não vão parar nem nas pausas ...
o tempo de pausa vão ser somadas umas as outra,
mas individualmente para cada produção.

se já tem 40 dias decorridos do contador e 10 dias de pausa
uma produção "nº5" que começar no dia 40 e levar 10 dias e tiver mais 2 dias de pausa...

data inicio contador 1
tenpo de pausa das outras produções10
data inicio produção nº5 40
tempo pausa nº5 2dias
tempo decorrido depois da produção 10
tempo total do contador 50

tempo total das outras produções 50-10-2=38
tempo total da produção nº5 50-40-2=8dias

repare na macro:

Sub pausar()
If Cells(4, 25) = "" Then Cells(4, 25) = Now <<<<se a produção for nova a pausa vai contar a parti dali.
If Cells(4, 25) <> "" Then Cells(4, 25) = Cells(4, 25) + (Now - Cells(4, 25))<<<<se a produção já tiver uma pausa, a pausa antiga vai ser somada com a nova pausa
End Sub

Sub Sair_ da_pausa()
If Cells(4, 25) = "" Then Exit Sub <<<<se a produção foi iniciada depois que entrou em pausa, não faz nada
If Cells(4, 25) <> "" Then Cells(4, 25) = Now - Cells(4, 25)<<<se a produção já tiver uma pausa vai ser somada
End Sub

fora isso basta fazer os ajustes e colocar uma coluna de controle de inicio de produção, ou usar a coluna do lado
tipo : a macro verificar a celula do lado antes de aplicar a pausa
If Cells(4, 25) = "" AND Cells(4, 24) <> "" Then
tem outra maneira mais simples mas deu preguiça de pensar :(

desculpe, mas é simples questão de logica "não que eu tenha muita :P"
fora isso poste sua planilha já ajustada com o tamanho real para tentar refazer as macro de acordo
só não vou prometer nada pq estou meio "muito" enrolado .

até

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 20/05/2014 2:27 am
Página 1 / 2