اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ملف أكسل لا يفتح بسبب خطأ في كود الفورم


إذهب إلى أفضل إجابة Solved by أحمد يوسف,

الردود الموصى بها

السلام عليكم إخوتي 

أنا شغال على ملف أكسل ينفتح على فورم ، قمت بإضافات للفورم و الظاهر أنيي أخطأت في الكود لذلك أصبح الملف لا يفتح فهل من طريقة لإصلاح الخلل و إعادة فتح الملف و شكرا مسبقا...

الملف يفتح على فورم به التاريخ بالميلادي و الهجري أضفت له التوقيت و أدخلت الكود التالي:

Do

Label12.caption=time

DoEvents

Loop                 ربما الكود به خطأ

417394589_-Copie.xlsm

رابط هذا التعليق
شارك

امسح الكود  الخاص  بك  وجرب  هذا  الشيء في  موديول  اليوزرفورم

Option Explicit

Dim stopLoop As Boolean

Private Sub UserForm_Activate()
    Do
        Label12.Caption =  Format(Now, "hh:mm:ss")
        DoEvents
    Loop Until stopLoop
End Sub

Private Sub UserForm_Terminate()
    stopLoop = True
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

أحسنت استاذ عبد الفتاح فالملف يعمل بكل كفاءة وشوف بنفسك مجاهد2013 وهذه صورة بعد فتح الملف للتأكيد وبكده يجب غلق المشاركة

Untitled.png

1402041816_-Copie.rar

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information