Dicas  Excel Macros VBA   

inserir um relógio na statusbar
Pergunta 49:
Gostaria se possível, inserir um relógio na range (B6), com start(inicio) e stop com contador de segundos, não precisa formatação, mostrando um texto na statusbar  é possível??

Resposta 49:
é possível sim, aqui esta a macro que faz exatamente isto

Option Explicit
Const DateAndTimeCell As String = "B9"
Const tex As String = "www.saberexcel.com"
Dim OK As Boolean
'
Sub StartUpdate()
Range(DateAndTimeCell).NumberFormat = "dd.mm.yyyy hh:mm:ss"
OK = True
Update
End Sub
'
Sub Update()
Dim StatBarMsgString As String
If Application.International(xlCountrySetting) = 47 Then
StatBarMsgString = "Gjeldende dato og tid: "
Else
StatBarMsgString = "Corrente data e hora : "
End If
If OK Then
' perform
Range(DateAndTimeCell).Formula = Now
Application.StatusBar = StatBarMsgString & Format(Now, "d.m.yyyy hh:mm:ss ") & tex
Application.OnTime Now + TimeValue("00:00:01"), "Update", , True
Else
' clean up
Range(DateAndTimeCell).Formula = ""
Application.StatusBar = False
End If
End Sub