[حل شده] بستن msgbox

[amirghadiri]

سلام خدمت همه عزیزان سایت هنگامی که شرط برقرار میشه یه مسیج باکس نمایش داده میشه که باید با کلیک پنجره را بست حالا اگر میشه بدون کلیک بصورت چند ثانیه ای نمایش داده بشه...
باز هم ممنون از پاسخ شما کاربران گرامی.

[generalsamad]

با سلام
از این کد میتونید استفاده کنید

Private Sub CommandButton1_Click()
 Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    AckTime = 3
    Select Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد", _
    AckTime, "close msg box in 3 seconds", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub 

[generalsamad]

یک فایل ضمیمه میکنم
در سلول a1 یک مقدار عددی صحیح وارد کنید زوج یا فرد بودن رو بصورت msgbox نشان خواهد

Private Sub CommandButton1_Click()
Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    AckTime = 3
    
    If Range("a1") Mod 2 = 1 Then
        Select Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد", _
    AckTime, "عدد فرد ميباشد", 0)
        Case 1, -1
            Exit Sub
    End Select
    Else
        Select Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد", _
    AckTime, "عدد زوج ميباشد", 0)
        Case 1, -1
            Exit Sub
    End Select
    End If
End Sub 

فایل ضمیمه گردید

[abootorab]

سلام خدمت همه عزیزان سایت هنگامی که شرط برقرار میشه یه مسیج باکس نمایش داده میشه که باید با کلیک پنجره را بست حالا اگر میشه بدون کلیک بصورت چند ثانیه ای نمایش داده بشه...
باز هم ممنون از پاسخ شما کاربران گرامی.

با درود
دوست عزیز بنده با استفاده از یک فرم و یک سری کد در واقع زیربرنامه ای به نام Payam_Hoshdar نوشتم که کافیه در یک رویداد و یا هر جای دیگه که خواستین از این زیربرنامه بصورت خیلی ساده استفاده کنید. فقط کافیه هر جا نیاز به پیام داشتین به عنوان مثال به شکل زیر استفاده کنید:

Payam_Hoshdar "This Message Auto close after 3 second" 

فایل نمونه رو مربوط به اکسل های 32 و 64 بیتی بصورت جداگانه ضمیمه کردم.
امیدوارم واستون مفید واقع بشه. اگر مشکلی یا سوالی بود در خدمتم.

[amirghadiri]

از استاد گرامی اقای ابوتراب متشکرم واقعآ بهترین راه حل ها را ارائه میدهند تا ما کاربران ساده از تجربیات انها بیاموزیم هر جواب مسئله پر از ترفندهای جدید و اموختنیست .
از خداوند متعال برای همه عزیزان کارکنان محترم و کاربران ارزوی همیشه پیروز و سربلند.