none
boa vindas RRS feed

  • Pergunta

  • Eu tenho um modulo assim para abrir o formulário vba

    Sub AUTO_OPEN()
    UserForm1.Show

    End Sub

    como eu faço para colocar nesse modulo através de uma label  a mensagem de Bom Dia,Boa Tarde e Boa Noite no canto do formulário ao abrir o formulário.

    Também como adicionar a data e hora  usando também uma label usando este modulo para abriri este formilario.

    Sem mas,

    Elso

    segunda-feira, 10 de fevereiro de 2014 15:12

Respostas

  • Crie um rótulo (Label) nas posições que quiser, e no módulo do formulário, insira o código a seguir:

    Private Sub UserForm_Initialize()
      Dim str As String
      
      Select Case Hour(Now)
        Case Is < 12
          str = "Bom dia!"
        Case 12 To 17
          str = "Boa tarde!"
        Case Else
          str = "Boa noite!"
      End Select
        
      Me.Label1.Caption = str
    End Sub

    Para mostrar a data e a hora, use:

    Me.Label2.Caption = Format(Now, "hh:mm:ss")


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 11 de fevereiro de 2014 20:39
    Moderador