Excel VBA - Horas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba usf label retorna saudacao horario Excel planilha vba usf label retorna saudacao horario

    popular!
    Adicionado em: 12/02/2012
    Modificado em: 12/02/2012
    Tamanho: 85.77 KB
    Downloads: 784

    Escola SaberExcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções

    Esse procedimento do Microsoft Excel VBA(Visual Basic Application) retorna um objeto Label(Rótulo) uma saduação dependendo do Horario atual:
    Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

    Private Sub UserForm_Initialize()
    On Error Resume Next
    lbAGORA.Caption = "Escola Saberexcel VBA Estudos - [Agora:... " & Format(Now(), "dddd - dd-mmm-yyyy hh:mm:ss") & " ]"

    Select Case Time
    Case Is < TimeValue("12:00:00"): Me.lbSAUDACAOHORA.Caption = "Bom Dia Amigo, " & Application.UserName & "!" _
    & vbCrLf & "Desejo-lhe todo bem!"
    Case Is >= TimeValue("19:00:00"): Me.lbSAUDACAOHORA.Caption = "Boa Noite, Amigo " & Application.UserName & "!" _
    & vbCrLf & "Desejo-lhe todo bem!"
    Case Else: Me.lbSAUDACAOHORA.Caption = "Boa Tarde, Amigo " & Application.UserName & "!" & "" _
    & vbCrLf & "Seja Bem vindo, Bons Estudos!!!!"
    End Select

    End Sub

    Private Sub lbSAUDACAOHORA_Click()
    Unload Me
    End Sub

    Private Sub UserForm_Click()
    Unload Me
    End Sub


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




    Excel planilha vba wkf contse total ocorrencia intervalo horas Excel planilha vba wkf contse total ocorrencia intervalo horas

    popular!
    Adicionado em: 04/10/2011
    Modificado em: 04/10/2011
    Tamanho: 27.82 KB
    Downloads: 821

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

    'Site...:
    http://www.microsoftexcel.com.br
    'E_mail.:
    contato@microsoftexcel.com.br   Excel planilha vba wkf contse total ocorrencia intervalo horas
    '......................................'

    Option Explicit

    Public Sub contar_ocorrencia_horas_intervalos()
    Dim wks As Worksheet
    Dim vContador As Long

    Set wks = ActiveSheet
    limpar
    'mensagem estática para o tempo de 9 às 10 horas:
    MsgBox "De : [ 9 ] até [10] : " & (WorksheetFunction.CountIf(wks.Columns(2), ">=09:00:00") - _
    WorksheetFunction.CountIf(wks.Columns(2), ">=10:00:00")) & " Ocorrencias"

    'Com um loop de 24 horas.
    'cada hora a contagem de ocorrências na coluna B e para fazer o teste
    'mude o horario mas preservando o formato

    For vContador = 0 To 23
    wks.Cells(vContador + 2, 4) = "De : [ " & vContador & " ] até [" & vContador + 1 & " ]"

    wks.Cells(vContador + 2, 5) = _
    (WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador & ":00:00") - _
    WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador + 1 & ":00:00"))
    wks.Cells(vContador + 2, 6).Value = "Ocorrencias"

    Next vContador

    Set wks = Nothing
    End Sub

    Sub limpar()
    [D2:F25].ClearContents
    End Sub

    Sub ver_shapes()
    Saber1.Shapes("sb").Visible = True
    End Sub

    Sub oc()
    Saber1.Shapes("sb").Visible = False
    End Sub

    Sub visualizar_modulo_vbe()
    Dim resposta As String
    resposta = MsgBox("Deseja visualizar as macros no módulo VBE", vbYesNo, "Saberexcel - o site das macros")
    If resposta = 6 Then
    Application.Goto reference:="contar_ocorrencia_horas_intervalos"
    End If
    End Sub




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




     

    Excel vba planilha tempo executa macro a cada cinco segundos Excel vba planilha tempo executa macro a cada cinco segundos

    popular!
    Adicionado em: 24/09/2011
    Modificado em: 24/09/2011
    Tamanho: 32.58 KB
    Downloads: 1077

    Saberexcel - o site de quem precisa Aprender Lidar Macros Microsoft Excel VBA


    Option Explicit

    Public Iniciar_Tempo As Variant 'programção do horário
    Public Const vIntervaloSegundos = 5 '5 segundos
    Public Const vMensagem = "Pequena_Mensagem" 'nome da macro a ser executada

    Sub Repetir_Mensagem()
    'Programação do horário mantém + 5 segundos
    Iniciar_Tempo = TimeValue(Now + TimeSerial(0, 0, vIntervaloSegundos))
    Application.OnTime Iniciar_Tempo, vMensagem
    End Sub

    Sub Parar_mensagem()
    On Error Resume Next
    Application.OnTime Iniciar_Tempo, vMensagem, , False
    End Sub

    Sub Pequena_Mensagem()
    Dim sbx
    'mensagem será gravada na coluna(b) e (D) - intenção didática
    [B65000].End(xlUp).Offset(1, 0).Value = Iniciar_Tempo
    [B65000].End(xlUp).Offset(0, 2).Value = "Hora de Aprender VBA(Saberexcel)"

    sbx = MsgBox("Se escolher 'NÃO', a mensagem continua !" & vbLf _
    & "Quer parar a mensagem ?", _
    vbQuestion + vbYesNo + vbDefaultButton2, _
    "Escola Saberexcel VBA Treinamentos - Horários")

    If sbx = 7 Then
    'continuar a repetir a mensagem

    Repetir_Mensagem
    Else
    'parar a programação de repetição da mensagem
    Parar_mensagem
    End If

    End Sub

    Sub limpar_teste()
    Saber1.[b2:d40].ClearContents
    End Sub


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




    vba horas adiciona nova planilha com nome formato dia horas vba horas adiciona nova planilha com nome formato dia horas

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: 15.31 KB
    Downloads: 592

    Saberexcel - o site das macros
    Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha
    personalizada com o nome formatado com data e hora atual

    Sub Adicionar_planilha_com_dia_hora()

    Dim Resposta As VbMsgBoxResult
    Dim sht As Worksheet
    Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
    , vbQuestion + vbYesNoCancel)
    If Resposta = vbYes Then
    Set sht = Worksheets.Add
    sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
    ElseIf Resposta = vbNo Then
    Worksheets.Add
    Else
    Exit Sub
    End If
    MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
    End Sub


    Aplicativo Microsoft Excel VBA --(SaberExcel)--



    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: 19.43 KB
    Downloads: 985

    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



    Página 1 de 3

    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