بوحماد

ممكن شباب مساعدة فى هذا الكود لاننى قمت كما فى الشرح ولم يعمل Private Sub Workbook_Open() 'Dim MyPath As String ' MyPath = "F:\" ' If ThisWorkbook.Path <> MyPath Then ' Application.DisplayAlerts = False ' ThisWorkbook.Close ' End If 'Dim MyFlName As String ' MyFlName = "ÍÑßÉ ÇáÈíÚ.xls" ' If ThisWorkbook.Name <> MyFlName Then ' Application.DisplayAlerts = False ' ThisWorkbook.Close ' End If End Sub Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Dim lReply As Long ' If SaveAsUI = True Then 'lReply = MsgBox("ÚÝæÇð áÇíãßäß ÍÝÙ åÐÇ ÇáãáÝ ÈÅÓã ÌÏíÏ .. åá ÊÑíÏ ÍÝÙ ÇáãáÝ ÈÅÓãå ÇáÍÇáí ¿", vbQuestion + vbOKCancel) ' Cancel = (lReply = vbCancel) ' If Cancel = False Then Me.Save ' Cancel = True ' End If End Sub

نزلت الملف وعدلت اسمة وكذلك موقع الملف بدلا من F وضعت فى H وكذلك اى غير فى الكود F - H والاسم بدلا من حركة البيع - البيع ولكن عندى فتح الملف يقفل

بارك الله فيك

up

بارك الله فيك

هذة الصور التى تظهر عندى ناخذ f11

عندما تاخذا f11 تظهر كل قائمة على حداء

كيف ارجع شكل vba الى الشكل الافتراضى لان بعض القوئم تم تحريكها

مشكوررررررررررررر

مشكوررررررررررررررر

مشكور خبيرنا بن علية طبعا هذا هو المطلوب لاكن ياريت تشرح لى الطريقة او حتى اقوم بعمل شهادة اخرى لان يوجد لديا عدد 8 شتات اخرى انا فى نتظر ردك تحياتى وارحم الله ولديك

للرفع

مشكور استاذنا عبدالله المجرب على ردك السريع لكن حولة بهذا الطريقة وبى دالة vlookup وكذلك lookup ولكن لم تفلح معى وذلك لان الشيت الدرجات الطالب هى بالصف وليس بالعمود ممكن تشوف المرفق هل فية امكنية لعمل شهادة او لا تحياتى

للرفع

السلام عليكم مطلوب دمج الشهادة مع الشيت مع شرح طريقة الدمج اذا امكن تجريب1.rar

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

=VALUE(MID(TEXT(SUM(D3:D6);"0000");0.2;3)) ممكن المعادلة تكون بلطلريقة هذة

الشكر للجميع عندى استفسار عند عندما يكون الرقم اى الادراهم خنتان يظهر الرقم 23 الصحيح 023 وفى حالة لايةجد ارقم اى دراهم الصح ثلا ث اصفار 000 فى خانة الدراهم وفى حالة رقم واحد يكون هكذا 003 ارجو منكم تعديل المعادلة

مشكوررررررررررررررررر

بارك الله فبك

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

مشكور استاذنا khhanna على راد المعادلة فيها نقص تقريبا عندما تيحق الشرط فى الخلية br15 التى فيها عدد مواد الرسوب مثلا ناجح تساوى صفر تظهر يبقى للاعادة انت جرب ناجح

عندى شيت بع بعض الشروط المركبة فى المعادلة وهى 1- الطالب المستجد عندة شرطان هما أ- الراسب فى اقل من ثلاث مواد له دور تكميلى ب- الراسب اكثر من ثلاث مواد يبقى للاعادة 2- الطالب المعيد حتى لو رسب فى جميع المود لة دور تكميلى مثلا فى الخلية c1 عدد المواد الرسوب وفى الخلية c5 حالة الطالب ام مستجد او معيد حاولة ان لاكن ماضبط معى علما قمت بوضع مشاركة فى هذا الربط http://www.officena.net/ib/index.php?showtopic=41095

البقاء والدوام الله

وين اعضاء وخبراء المنتدى