Macro para crear una ventana emergente con temporizador

0

 


Código:


Sub MensajeTemporizado()

Dim Msg As Integer

Msg = CreateObject("wscript.shell").Popup("Este mensaje se cerrara en 3 segundos", 3, "Aprendiendo eXcel", 4 + 48)

if Msg = 1 then 

msgbox "Pulse SI"

elseif Msg = 7 then

msgbox "Pulse NO"

elseIf Msg = -1 Then 

MsgBox "Han pasado 3 segundos"


'Aqui, escribirar el código de tu macro o la llamaras (Call)


end if

End Sub


TIPO DE BOTÓN

0   Show OK button

1   Show OK and Cancel button

2   Show Abort, Retry and ignore button

3   Show Yes, No and Cancel Button

4   Show Yes and No button

5   Show Retry and Cancel button


TIPO DE ICONO

6 Show "Stop Mark" icon

32 Show "Question Mark" icon

48 Show "Exclamatión Mark" icon

64 Show "Information Mark" icon


BOTÓN ELEGIDO

1   OK Button

2   Cancel button

3   Abort Button

4   Retry Button

5   Ignore Button

6   Yes Button

7   No Button

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel