Notifications
Clear all

insira data e hora em seu userform  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
06/08/2009 8: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:

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:

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

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


ResponderCitar (Quote)
Compartilhar: