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

|