طريقة عمل رسالة تسبيح او صلاة على النبى

[ahmed88872]

ارجو شرح عمل كود طريقة عمل رسالة تسبيح او صلاة على النبى كل 10دقائق على الاكسيل وتغلق اوتوماتيك

تم تعديل أغسطس 2, 2019 بواسطه ahmed88872

[Ali Mohamed Ali]

تفضل الكود داخل الملف

#If Win64 Then
    Private Declare PtrSafe Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As LongPtr, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#Else
    Private Declare Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As Long, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#End If
Sub btnMsgbox()
    Call MsgBoxTimeout(0, "اللهم صلى على سيدنا محمد", "منتدى أوفيسنا", vbInformation, 0, 4000)
Call Test
End Sub
Sub Test()
Application.OnTime Now + TimeValue("00:10:00"), "btnMsgbox"
End Sub

 

رسالة الصلاة على سيدنا محمد 2.xlsm

[ahmed88872]

جزاك الله كل خير

وبارك الله فيك