استفسار وطلب تعديل على كود " فاصل زمنى بين الاومر"

[عاشق الاكسيل]

السلام عليكم ورحمه الله وبركاته

الكود ده بيعمل فاصل زمنى بين الاوامر لكن فيه مشكلة ان لو اتضاف كزر مش بيتنفذ ... بيتنفذ بس اول امر وبعد كده كل الاوامر مرة واحدة

Label2.Visible = True
Application.Wait (Now + TimeValue("0:00:02"))
Label3.Visible = True

يعنى لو اتضاف بالطريقة دى يشتغل تمام

Private Sub UserForm_Click()
CommandButton1.Enabled = False
Label2.Visible = True
Application.Wait (Now + TimeValue("0:00:02"))
Label3.Visible = True
End sub

لكن لو اتضاف كزر مش بيتنفذ بطريقة صحيحة

Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
Label2.Visible = True
Application.Wait (Now + TimeValue("0:00:02"))
Label3.Visible = True
End Sub

 

[عاشق الاكسيل]

المشكلة فين ؟؟

 

[shreif mohamed]

  الكود يعمل  بصورة طبيعية هل يمكن اضافة الملف الخاص بك  حتي يتثني لنا المساعدة 

 

[عاشق الاكسيل]

2 ساعات مضت, shreif mohamed said:

  الكود يعمل  بصورة طبيعية هل يمكن اضافة الملف الخاص بك  حتي يتثني لنا المساعدة 

 

الكود بيعمل لكن فى حالة عمله كـ " زر Button "  لا يعمل

Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
Label2.Visible = True
Application.Wait (Now + TimeValue("0:00:02"))
Label3.Visible = True
End Sub

لو جربت واشتغل معاك ياريت تضيف الملف

تم تعديل أبريل 7, 2018 بواسطه عاشق الاكسيل
وضع كود الزر

[shreif mohamed]

تفضل

example.xlsm