طلب تصحيح كود في ملف العلامة عبد الله باقشير

[زياد عبد الجليل]

السلام عليكم

لدي ملف للعلامة عبد الله باقشير به فورم مرن يصلح لاي قاعدة بيانات يعمل بشكل جيد على جهازي لكن عندما نقلت الملف الى جهاز اخر ضهرة رسالة خطأ في الكود التالي مع العلم ان الجهازين بهم نفس الخصائص 32 بيت و اكسيل 2007

Private Function kh_TestType(Rng As Range, Optional iT As Boolean = False) As Boolean
If Not Rng.Comment Is Nothing Then
    MyList = Trim(Replace(Rng.Comment.Text, Chr(10), ""))
    MyList = Replace(MyList, " ", "")
    If TypeName(Evaluate(MyList)) = "Range" Then
        kh_TestType = True
    End If
End If
End Function

صورة الخطأ بالملف المرفق ولكم مني جزيل الشكر

 

ملف الاستاذ عبد الله باقشير.rar

[djeddi70]

يا أخي الاستاذ عبد الله باقشير ماهر جدا في الاكسل و صعب أن يقع في الخطأ.

 

مع مشروع VBA     يتم تعطيل كل عناصر تحكم ActiveX ويظهر شريط الرسائل. انقر فوق تمكين المحتوى لتمكين عناصر التحكم.

اتبع الارشادات على الرابط:

https://support.office.com/ar-sa/article/تمكين-إعدادات-activex-أو-تعطيلها-في-مستندات-office-f1303e08-a3f8-41c5-a17e-b0b8898743ed

و الله الموفق

 

[زياد عبد الجليل]

شكرا لك استاذ جدي انا اعلم ان الاستاذ باقشير متفوق و متمكن في الاكسيل لكن للاسف حدث معي الخطأ عند نقل الملف الى جهاز  أخر سأجرب التعليمات و أرد عليك ان شاء الله