عبدالله بشير عبدالله

الف مبارك اخينا حسين مامون نسأل الله ان ان تكون نبراسا بهذا المنتدي

اخي العزيز ملفي به تعديلات لا تتناسب ملفك ولكن يمكنك مشاهدة الموضوع الاصلي من المنتدي وصاحبه عبدالله باقشير https://www.officena.net/ib/topic/33013-برنامج-الجدول-المدرسي-الاصدار-الثاني/ في نفس الصفحة يوجد ملفان الاول بدون خطة اتوماتيكية والثاني في منتصف الصفحة بالخطة الالكترونية وهذا هو المرفق وجربته ويشتغل لدي بالويندز 7 اوفيس 2010 برنامج الجدول المدرسي الاصدار الثاني4.rar

لدي نفس البرنامج وعمل على ويندوز7 بدون مشاكل جربت برنامجك على جهازي وفعلا بعض الاكواد لا تعمل لا اعتقد ان المشكلة في نوع الويندوز

اخي العزيز لو ارفقت ملفك لاختصرنا الكثير من الوقت, ولكن ربما لديك مكتبة مفقودة اتبع الخطوات اذهب الى محرر الاكواد ثم Tool ثم referance اذا وجدت في القائمة جملة بدايتها missing الغ علامة الصح من امامها ثم حفظ الملف وافتحه وجرب

النقل البري (1).xlsm كلمة السر 123

وعليكم السلام محاولة ربما تحقق طلبك النقل البري.xlsm

فم بتعطيل كافة وحدات الماكرو او ارفق الملف بالمنتدى ليقوم الاعضاء بالمساعدة

الفاضل ياسر خليل ابو البراء اهلا بعودتك استاذنا الكبير في منتدانا اوفيسنا

اخي الفاضل هل جربت حل السيد العيدروس تطبيق حل العيدروس في ملف ww.xlsm

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

السلام عليكم جدول لم ارى افضل منه الى الان للعلامة عبدالله باقشير https://www.officena.net/ib/topic/33013-برنامج-الجدول-المدرسي-الاصدار-الثاني/

السلام عليكم برنامج جاهز من المنتدى لم ارى افضل منه حيث يقوم بعمل :- جدول كل فصل او كل الفصول جدول كل مادة او كل المواد جدول كل مدرس او كل المدرسين الجدول الكلي ادعو الله ان يكون حسنات مضاعفة في ميزان صاحب البرنامج العلامة عبدالله باقشير https://www.officena.net/ib/topic/30490-برنامج-الجداول-المدرسية/

الاقتباس ليس له علاقة بالموضوع وفيك بارك الله تحياتي

اخي الفاضل ملف الاستاذ سليم الاصلي يعمل جيدا وليس به اي مشكلة وكانت الصفحة الرئيسية ليس بها معادلات ملفك الحالي الصفحة الرئيسية اضفت انت اليها معادلات صفيف وغيرها الكود قام بنسخ البيانات من الصفحة الرئيسية بالمعادلات ورحلهاالى صفحةsalim طبعا المعادلات مرتبطة بخلايا منها اسم المؤسسة وغيرها لذلك لن تجد اي بيانات في صفحة سليم هذا تفسيري والله اعلم ولكن محاولة منى حتى يقوم الاستاذ سليم بالتعديل المناسب Classeur3.xls

حفظك الله اخي الكريم علي

السلام عليكم الدالة التي تلبى طلبك هي Function Salim_Split_Name(N_name, n) للسيد والاستاذ سليم حاصبيا والذي تعلمنا منه وما زلنا نتعلم منه وفقه الله Fuction_split_Part_name.xlsm

اعتقد ان معلومتك تحتاج تصحيح فامكانيات 2016 ارقي واكبر من امكانيات 2010 فامكانياته تشغل جميع الاصدارات السابقة 2003 او 2007 او 2010 او 2013 بشرط ان نظام تشغيل الويندوز واحد اما 32 بت لكليهما او 64 بث

الامر بدون ملف يبقى تكهنات ولكن اعتقد ان المشكلة ليس في الاوفيس 2010 او 2016

وعليكم السلام ورحمة الله وبركاته ربما يكون سبب عمل الملف على جهاز ولم يعمل على جهاز اخر سببه اختلاف نظام التشغيل ربما يكون احدهما نظام 32 بث والاخر 64 بت تأكد من الجهازين المختلفين لهما نفس النظام 32 بت او 64 بت ويمكنك معرفة ذلك بالنقر بالزر الايمن للفارة على جهاز الكمبيوتر تظهر لك قائمة اختر خصائص تظهر لك معلومات الجهاز ومن ضمنها نظام التشغيل وقم بهذا الامر للجهازين المختلفين اذا كان هناك اختلاف فاعتقد انه السبب وتوجد اظافة للكود تجعله يعمل على النظامين لا اعلمها بالتحديد ولكن جرب هذه الاظافة #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long #End If تحياتي

اخي العزيز لو ارفقت ملفا موضحا فيه طلبك سيكون التفاعل اكبر ولكن جرب الملف التالي وبه توزيع الطلبة حسب العدد الذي ترغبه من ابداعات عبدالله باقشير توزيع الفصول باختيار النوع وبتساوي الدرجات.xls

جرب الملف زر طباعة الكل اي تعديلات انا جاهز ان شاء الله تحياتي التصفية حسب اسم المركز.xlsm

هل المؤسسات 3000 تختلف في الاسم ام ان هناك تكرار في الاسم

الفكرة موجودة ولكن عمل كود للفكرة شئ اخر فكرة الكود امر باخد اول مؤسسة في العمود a ثم وضعها في القائمة المنسدلة ثم الفلترة ثم الطباعة وهكذا تتكرر مع جميع المؤسسات في العمود على كل حال لم افقد الامل ساحاول في الامر من جديد كم عدد المؤسسات تقريبا ؟

اخي العزيز عذرا لم اتمكن من عمل طلبك لعدم معرفتي بالامر كل ما عملته هو ان تختار من الفائمة اسم المؤسسة تم اضغط زر تصفية مع طباعة التصفية حسب اسم المركز.xlsm

اخي العزيز حفظك الله حمل الملف مرة اخري لان الترقيم في صفحة التصفية ال 22 فقط التصفية حسب اسم المركز.xlsm