Bom dia nikaway

Seja bem-vindo(a) ao fórum!

Como você é novato(a) no fórum, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Quanto a tua dúvida, não pega bem para você postar a mesma dúvida em vários fóruns, sem aguardar a resposta pelo menos 12 horas.
Eu mesmo não respondo tópicos postados em vários fóruns, como o teu, pois isso faz com que percamos tempo em responder algo que já pode ter sido respondido em outro fórum.
Além disso, como a pessoa já obteve resposta, não retorna mais para fechar o tópico, prejudicando a organização do fórum.
Fóruns você também postou:
http://www.hardware.com.br/comunidade/a ... itorio.74/
http://forum.clubedohardware.com.br/for ... ft-office/

[]s

Patropi - Moderador

Mas eu volto pra fechar o tópico, como estou precisando fazer isso urgente tive que publicar em mais de um fórum para ver se conseguia resposta.

Estou precisando fazer isso urgente.

Aproveitando um código de uma planilha do colega Patropi, veja se é isto :

Deixei o tempo em segundos, mas é só ajustar nos "CASE"
Cronometro

[]s

Opa, que bom, gostei é isso mesmo que eu queria!

Só mais algumas dúvidas pra concluir e fechar o tópico com sucesso...

É a primeira vez que estou mexendo em planilhas do Excel, por isso
terá algumas dúvidas bem bobas, mas vou executar cada procedimento
até terminar, porque finalizar essa planilha é muito importante pra mim...
Estou precisando com urgência... Por isso desculpem qualquer coisa...

1. Como eu faço para tocar um áudio quando der 25min?
2. Depois tocar um outro diferente áudio quando der 30 min?
3. Como fazer essa mensagem de "Fim do tempo" aparecer só quando der 30 min?
4. Como colocar esse cronômetro na outra planilha que eu já tenho?

Conforme eu citei, para alterar o tempo tem de ajustar nos Case, ou seja :
Para 25 min altere a linha :
Case "00:00:10" para Case "00:25:00"

e 30 min altere :
Case "00:00:15" para Case "00:30:00"

O som eu deixei para tocar um "beep", mas se quer adicionar um outro tipo de som, veja que se for uma musica longa ela vai ficar tocando e o cronometro continuará marcando, então procure algum som pequeno (curto).
Para tocar som do tipo "wav" você pode utilizar a dica que indiquei no tópico viewtopic.php?f=10&t=11523.
Lembrando que o arquivo de som definido tem de estar no mesmo diretorio da planilha.

[]s

Oi, eu exportei a macro da planilha de cronômetro que você me mandou, e importei dentro da minha planilha de estudos.

Eu tenho os meus próprios botões de "Play", "Pause" e "Stop" dentro dessa minha planilha.

Abribui as macros de "Reset_Clock", "Start_Clock" "Play_Clock"" para cada botão.

Mas, aquele local onde começam a correr os números "00:00:00" como atribuo ele?

E outra coisa... Quando eu cliquei em Play, deu esse erro do printscreen, o que quer dizer?

Ah... O nome da guia da minha planilha é "Plano de estudos" e eu coloquei lá substituindo o "Plan1"
e mesmo assim deu o mesmo erro....

Opa, atualizando o tópico...

Eu consegui fazer o botão de "Play" e "Pause" funcionarem... Porém o botão de "Reset" está sem funcionar...
Quando clico nele, dá essa mensagem:

"Erro de Sintaxe do depurador"

Sub Reset_Clock()
dteStopped = 0
dteStart = 0
dteElapsed = 0
'Label1 = "00:00:00"
Worksheets("Planilha de Estudos).Label1.Caption = "00:00:00"
boolResetPressed = True
End Sub

Está faltando fechar as aspas no nome da aba :

Worksheets("Planilha de Estudos").Label1.Caption = "00:00:00"

Era isso mesmo! Obg, deu certo!

Ah, e na planilha tem 00:00:00
como eu faço para mostrar apenas segundos e minutos?
00:00

Eu quero que toque um som.wav diferente a cada 25min e a cada 30min da planilha com cronômetro.
Como eu posso adaptar aquele código para esse caso?

Select Case sdta

Antes de mais nada, não entendi seus Case, você está repetindo os horários e com isto só irão ser obedecidos os dois primeiros criterios e o 10º.

Quanto a tocar som, se viu o tópico que indiquei, lá tem a rotina, era só adaptar, apesar que como disse anteriormente, dependendo do tamanho do som pode não funcionar conforme pretende, de qualquer forma segue o ajuste, só tem de ter os sons no mesmo diretorio do arquivo e ajustar os nomes dos arquivos de som em cada case :

Coloque estas linhas no inicio do Modulo :

Private Declare Function PlaySound Lib "winmm.dll" _
           Alias "PlaySoundA" (ByVal lpszName As String, _
           ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
    Dim dteStart As Date, dteFinish As Date
    Dim dteStopped As Date, dteElapsed As Date
    Dim boolStopPressed As Boolean, boolResetPressed As Boolean

E nos Cases :

Select Case sdta

    Case "00:25:00"
        'TOCAR SOM1.WAV AQUI
        MsgBox "25 minutos completados com sucesso!"
        
        WAVFile = "SOM1.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
        
    Case "00:30:00"
        'TOCAR SOM2.WAV AQUI
        MsgBox "5 minutos se passaram já..."
        
        WAVFile = "SOM2.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    
    Case "00:25:00"
        'TOCAR SOM3.WAV AQUI
        MsgBox "Mais 25 minutos se passaram..."
        
        WAVFile = "SOM3.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    Case "00:30:00"
        'TOCAR SOM4.WAV AQUI
        MsgBox "5 minutos se passaram já..."
        
        WAVFile = "SOM4.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    Case "00:25:00"
        'TOCAR SOM5.WAV AQUI
        MsgBox "Mais 25 minutos se passaram..."
           
        WAVFile = "SOM5.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    Case "00:30:00"
        'TOCAR SOM6.WAV AQUI
        MsgBox "5 minutos se passaram já..."
        
        WAVFile = "SOM6.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    Case "00:25:00"
        'TOCAR SOM7.WAV AQUI
        MsgBox "Mais 25 minutos se passaram..."
        
        WAVFile = "SOM7.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    Case "00:30:00"
        'TOCAR SOM8.WAV AQUI
        'MsgBox "5 minutos se passaram já..."
        
        WAVFile = "SOM8.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    Case "00:25:00"
        'TOCAR SOM9.WAV AQUI
        MsgBox "Mais 25 minutos se passaram..."
        
        WAVFile = "SOM9.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
    Case "00:55:00"
        'TOCAR SOM10.WAV AQUI
        MsgBox "30 minutos se passaram já..."
        
        WAVFile = "SOM10.wav"
        WAVFile = ThisWorkbook.Path & "" & WAVFile
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
End Select

Oi, mas mesmo assim deu certinho aqui, quero agradecer mais uma vez!

Eu gostaria de saber como deixar apenas a hora e os minutos nesse cronômetro? 00:00
quero tirar os "00" dos segundos do cronômetro...

Para alterar o formato de exibição, faça o seguinte :

1 ) Clique na Aba Desenvolvedor, e clique em Modo Design
2 ) Clique com o botão direito no label e selecione Propriedades e em Caption altere para "00:00""

3 ) Nas rotinas altere todas as referencias "00:00:00" para "00:00"

4 ) Na Rotina Sub Start_Clock() faça os seguintes ajustes :
Acrescente a linha no inicio da rotina :
Dim MyStr

depois, apos esta linha :
dteElapsed = dteFinish - dteStart + dteStopped
Coloque esta :
MyStr = Format(dteElapsed, "hh:mm") ' Returns "01:00"

Apos isto altere esta linha:
Worksheets("Plan1").Label1.Caption = MyStr

e o select Case para esta :
Select Case MyStr

Se em vez de utilizar o label na planiha da forma que fiz neste primeiro exemplo, você pode jogar o resultado para uma celula e fica mais fácil a formatação.

[]s

Eu tentei fazer a alteração aqui mas não deu... Quando dei play não apareceu os minutos a se passarem mesmo esperando bastante... Mas, pensando bem vou deixar aparecendo os segundos mesmo, pensando bem fica melhor assim. Agradeço bastante sua ajuda, tem sido excelente, e com ela estou finalmente terminando a planilha, sou bem iniciante, mas estou conseguindo finalizar bem com sua ajuda.

Só quero saber agora como marcar a hora atual na célula ao lado ao clicar em um "botão", hora que não é atualizada automaticamente com o excel...

Nesse estilo aqui:

Como é um código VBA que possa marcar a hora atual diversas vezes em 2 colunas em uma mesma planilha,
dessa forma aqui...

Onde a pessoa clica em um botão de "►" (play) e marca a hora ao lado da célula onde está esse botão, clica em um botão de "▀" (stop) e marca ao lado do botão a hora atual de novo (sem atualizações automáticas).

E ao lado, na terceira célula, dá automaticamente o tempo estimado que demorou entre a hora de início e a de termino da atividade. Assim como mostra abaixo, vou repetir esses botões aí de "Play" e de "Stop" em cada células para facilitar:

Acredito que só falta isso para finalizar com sucesso e concluir o tópico.