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: Vazio
    Downloads: 2244

    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

    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