Saberexcel - o site das macros Insira os seguintes objetos no módulo VBA (Visual Basic Application) '1 - Userform '1 - Label1
'Estas macros mostram horas através de um userform, horas continuas Relógio digital 2010-07-20 21:26:19
Os procedimentos são inseridos nos modulos comuns e nas folhas de códigos do Objeto Userform
EM UM MÓDULO COMUM INSIRA OS SEGUINTES CÓDIGOS:
Global onOff As Boolean
'termina o ciclo de atualização por 'encerramento do formulário
Sub ver_formulario() UserForm1.Show End Sub
Sub MostrarHoras() On Error Resume Next 'colocação da data e horas devidamente formatadas UserForm1.Caption = "Agora :" & Format(Now, "dddd dd-mm-yyyy hh:mm:ss") UserForm1.Label1.Caption = "Agora :" & Format(Now, "dddd dd-mm-yyyy hh:mm:ss") UserForm1.Frame1.Caption = "Agora :" & Format(Now, "dddd dd-mm-yyyy hh:mm:ss") UserForm1.Frame1.ForeColor = &HFF0000 UserForm1.Label1.ForeColor = &HFFFFFF UserForm1.Label1.BackColor = &HFF&
'só é executado se o formulário estiver activo If onOff = True Then Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras" Else Application.OnTime 0, "" End If End Sub
Sub Auto_Open() On Error Resume Next UserForm1.Show End Sub ' Sub Fecha_userform() On Error Resume Next UserForm1.Hide End Sub
NO MÓDULO DA FOLHA DE CÓDIGO DO OBJETO USERFORM INSIRA OS SEGUINTES CÓDIGOS:
'...........................................................' Private Sub UserForm_Terminate() onOff = False End Sub '...........................................................' Private Sub UserForm_Activate()onOff = True ' variável declarada como global as boolean 'inicia o ciclo de a cada segundo actualizar as horas no formulário Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras" End Sub '...........................................................'
Aprenda microsoft Excel VBA
|