Excel VBA - Horas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba horas boas vindas dependendo horario para usuario vba horas boas vindas dependendo horario para usuario

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 1261

    Saberexcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA , retorna uma mensagem de saudação ao usuário, se menor que 12horas, retorna Bom dia, se form menor ou igual a 18:00, Boa Tarde, senão Boa Noite, você poderá acrescentar mais uma opção para Boa Madrugada, usando a Função Elseif.


    Sub Saudacao_hora()
    Application.ScreenUpdating = True
    HoraAtual = Hour(Now())
    msgBoasVindas = Range("variavelboasvindas")
    If HoraAtual < 12 Then
    sbd = "um BOM DIA!"
    ElseIf HoraAtual <= 18 Then
    sbd = "uma BOA TARDE"
    Else
    sbd = "uma BOA NOITE"
    End If
    Beep
    MsgBox "Desejamos todo bem, tenha " & sbd & "." & Chr$(10) & Chr$(10) & msgBoasVindas, _
    vbOKOnly + vbInformation, "Bem vindo ao programa - Saberexcel "
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel



    vba horas insere horas coluna e quando digitar coluna c vba horas insere horas coluna e quando digitar coluna c

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 588

    Saberexcel - O site das Macros
    Esse Evento do Aplicativo Microsoft Excel VBA, insere a hora atual da modificação de uma determinada célula em uma determinada range, essa range é delimitada no próprio procedimento no Evento Change na folha de código da folha de planilha.
    Essa planilha faz parte das planilhas inteligentes dos Módulos COMO FAZER - Programação Microsoft Excel VBA - Saberexcel


    Private Sub Worksheet_Change(ByVal Lugar As Range)
    Dim limite_maximo_linha As Integer
    limite_maximo_linha = 30 ' altere aqui para limitar a última linha
    ' faz nada se mais de uma célula modificada ou se deu delete
    If Lugar.Cells.Count > 3 Or IsEmpty(Lugar) Then Exit Sub

    If Lugar.Column = 3 And Lugar.Row >= 2 And Lugar.Row <= limite_maximo_linha Then
    ' a condição(SE) IF confirma a modificação das células nos intervalos [C2:C30]
    '
    ' desativa eventos antes de um arquivo ser modificado com digitacao de forma que o evento Change não ocorre.
    Application.EnableEvents = False
    ' descloca duas células à direita (propriedade OffSet() para inserção da hora na linha correspondente
    Lugar.Offset(0, 2).Value = Now() 'ou Time() para horas apenas
    ' ativa novamente o evento Change (digitar na planilha)
    Application.EnableEvents = True
    End If
    End Sub



    Aprenda tudo sobre o Aplicativo Aplicativo Microsoft Excel VBA com Saberexcel






    Compre com segurança, garantia e ótimos preços nas lojas SubMarino

    Informática - Submarino.com.br

    vba horas mensagem saudacao de acordo horario computador vba horas mensagem saudacao de acordo horario computador

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 952

    Saberexcel - o site das Macros
    Esse procedimento do Aplicativo Microsoft Excel VBA, retorna uma mensagem de saudação dependendo do horário do computador, BOA MADRUGADA, BOM DIA, BOA TARDE E BOA NOITE. Neste exemplo usei para fins didáticos a saida da mensagem em uma Label(rótulo), no caption do Frame1(Quadro, Modura) e também na célula(C27), esses dados serão inseridos na ocorrencia do Evento Initialize do Objeto Userform.

    Private Sub UserForm_Activate()

    Dim vSaudacaoHora As Integer
    vSaudacaoHora = Hour(Now)

    Select Case vSaudacaoHora
    Case 1 To 5
    Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Label
    Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Frame1
    [C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno na célula(B27)
    Case 6 To 11
    Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
    Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
    [C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
    Case 12 To 17
    Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
    Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
    [C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
    Case 18 To 24
    Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
    Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
    [C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
    End Select

    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA



    Baixe o exemplo de planilha com o procedimento acima


    Publicidade:

    Compre com garantia, segurança e preços baixos na maior loja do país.
    Informática - Submarino.com.br

    Página 3 de 3

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA