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: 1769

    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


    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