insira data e hora em seu userform

Tem alguma dica para o uso do Excel? Algum atalho especial? Algum macete? Aqui é o lugar para você compartilhar!

insira data e hora em seu userform

Mensagempor hicardo » Qui Ago 06, 2009 11:23 am

Esta dica é para que gostaria de inserir a data e a hora em seu projeto!!!

(primeiro crie um label no seu userform)

depois coloque em um módulo o seguinte código:

Código: Selecionar todos
Global onOff As Boolean

Sub MostrarFormulário()
UserForm1.Show
End Sub

Sub MostrarHoras()
On Error Resume Next
'colocação da data e horas devidamente formatadas
UserForm1.Label1.Caption = Format(Now, "DD-mm-yyyy - hh:mm:ss  ")

'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


em seu userform (no active) coloque:

Código: Selecionar todos
Private Sub UserForm_Activate()
onOff = True
'inicia o ciclo de a cada segundo actualizar as horas no formulário
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
End Sub
hicardo
 

{ SO_SELECT }

Voltar para Dicas & Macetes

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 4 visitantes