Excel VBA - Alerta

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba alerta beep alarme dispara dez vezes vba alerta beep alarme dispara dez vezes

    popular!
    Adicionado em: 10/02/2011
    Modificado em: 10/02/2011
    Tamanho: 26.02 KB
    Downloads: 1685

    Saberexcel - o site das macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), dispara um alarme após uns três minutos da execução do macro, para entendermos melhor os disparos usei a propriedade offset e no contador (Loop) direcionei para células na coluna P, a contagem dos beeps de alerta.
    Esse artigo tem finalidade didática, atendo a um pedido de um amigo do site, que pediu uma macro para essa finalidade.
    No final da execução do código pisca um shapes(autoforma) 10 vezes...


    'Exemplo de planilha faz parte do Módulo COMO FAZER - Programação Microsoft Excel VBA_IV
    Sub Alarme()
    [I8,K8,sbx].ClearContents
    Saber1.Shapes("sb").Visible = False
    Saber1.Shapes("sby").Visible = False
    Beep
    vInicio = Now() + TimeSerial(0, 0, 3.9)
    Application.Wait vInicio
    [P8].Select
    For i = 1 To 10
    vInicio = Now() + TimeSerial(0, 0, 0.8)
    Application.Wait vInicio

    Beep
    [I8].Value = i
    [I8].Offset(0, 2).Value = "[" & i & " ]º. Alarme"
    ActiveCell.Value = "[" & i & " ]º. Alarme"
    ActiveCell.Offset(0, -1).Value = "u" 'insere a seta, fonte wingdings
    ActiveCell.Offset(1, 0).Select

    Next i
    Saber1.Shapes("sb").Visible = True
    Saber1.Shapes("sby").Visible = True
    Piscar_Shapes "sb", 10 'pisca shapes (descançar) 10 vezes.
    End Sub


    Sub Piscar_Shapes(s, nb)
    n = 0
    Do While n < nb
    ActiveSheet.Shapes(s).Visible = False
    vFim = Timer + 0.2
    Do While Timer < vFim: DoEvents: Loop
    ActiveSheet.Shapes(s).Visible = True
    vFim = Timer + 0.4
    Do While Timer < vFim: DoEvents: Loop
    n = n + 1
    Loop
    End Sub




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

    Pesquisa Google SaberExcel

    Publicidade Google

    Publicidade

    Rastreamento Correios

    Digite o número do SEDEX conforme o exemplo:
    Correios do Brasil

    Assinatura SaberExcel

    Google Associados

    Depoimentos

    Visitantes SaberExcel

    Excel VBA Estudos®
    mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
    mod_vvisit_counterHoje4748
    mod_vvisit_counterOntem5649
    mod_vvisit_counterEsta Semana31357
    mod_vvisit_counterSemana passada30564
    mod_vvisit_counterEsse mês115914
    mod_vvisit_counterMês passado120411
    mod_vvisit_counterTodos10944295
    Aprenda MS Excel VBA

    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