khairi ali قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 السلام عليكم أساتذي الكرام الرجاء المساعدة في تسمية النطاقات بحيث تكون مطاطية كما في الملف المرفق النطاقات.xlsx رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 جرب هذا الملف لعله يفى بالغرض نسخة من النطاقات-1.xlsm 3 رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 السلام عليك أخي وجيه الف الف مبروك الترقية بالنسبة للنطاقات لجميع المواد قمت بإضافة معلم في التربية الاسلامية دخل في نطاق التربية الاسلامية أول معلم في اللغة الانجليزية وهذا غير صحيح أريد كل تخصص لوحده رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 استاذ خير شكرا على كلماتك الطيبة بالنسبة للشيت هذا ما قد فهمته اللغة الانجليزية تكون فى نطاق واحد بالنسبة التربية الاسلامية تكون فى نطاق واحد وهكذا والله اعلم رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 اخي وجيه فعلا لكل مجموعة معلمين يدرسون في تخصص واحد يكونوا في نطاق واحد واريد عند إضافة أو حدف معلم لا يتغير هذا النطاق ( يعني يبفى نفس التخصص ) رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 هذا فعلا ما يتم ان اضفت مدرس لغة انجليزية يذهب الى اللغة الانجليزية وهكذا رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 بعد إذن الأستاذ / وجيه جرب هذا لعله يكون المطلوب وهو عبارة إنشاء قائمة منسدلة تعتمد على قائمة منسدلة أخرى النطاقات.xlsx 2 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 بارك الله فيكم استاذ احمد وجزاكم الله خير رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 مشكور أخي أحمد لكن اريد العمل في نفس الصفحة مثلا معلم لغة عربية أستلم الجدول في الفصل الثاني تتم إضافتها في الجدول ويدخل تلقائيا في نطاق اللغة العربية وهكذا لباقي المواد رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 لاحظوا الصورة لعلها توضح لكم المطلوب رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 يمكن عمل تصفية للمادة بدون تسمية أي نطاقات النطاقات(1).xlsx 1 رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 أستاذ احمد أشكرك جدا ولكنني أستعمل النطاقات في معادلات وملفات أخرى رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 السلام عليكم ورحمة الله تم عمل معادلات النطاقات المطاطية باستعمال الدالة OFFSET (بالفرنسية DECALER) على أساس أن قائمة معلمي كل مادة متسلسلة (الأسماء كلها تحت بعض)... أرجو أن تفي الغرض المطلوب... بن علية حاجي النطاقات.xlsx 3 رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 هذا هو المطلوب شكرا أخي بن علية رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 17, 2019 الكاتب مشاركة قام بنشر مايو 17, 2019 السلام عليكم صحة فطوركم جميعا استاذ بن علية عند القيام بتطبيق المعادلة على الشيت لم تعمل معي ارفق للك الملف لتطبيقها عليه وشكرا مقدما النطاقات (2).xlsx رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 السلام عليكم تجنبا لكثرة النطاقات بالتسمية حسب عدد المواد، ارتأيت أن أغير طريقة تحديد القوائم المنسدلة لمعلمي المواد بتسمية واحدة Profs_Mat اعتمادا على تسميتين Cellule (قائمة المواد من العمود Y) والتسمية Mat (اسم المادة المستعمل في البيانات من العمود Z) حسب اختيار المادة من الخلية E6 المرتبطة بالتسمية Cellule... بالنسبة لخلايا "أسماء المدرسين" في الجدول تم استبدال القوائم المنسدلة فيها بمعادلات بالدالة INDEX حتى يتم تغيير هذه الأسماء (أسماء المدرسين) تلقائيا حسب اختيار المادة من الخلية E6... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي النطاقات (2).xlsx 2 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 بارك الله فيكم استاذنا الفاضل رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 18, 2019 الكاتب مشاركة قام بنشر مايو 18, 2019 السلام عليكم أخي بن علية نفس المشكلة قائمة فعند إضافة معلم مثلا للتربية الاسلامية الامر عادي ولكن عند عرض معلمي اللغة العربية يبدأ عرض المعلمين من المعلم رقم 7 بدلا من المعلم 6 والمشكلة الاخرى هي أن شيت عرض الجدول به 10 معلمين فقط بينما هناك مواد بها أكثر من عشرة معلمين وشكرا مقدما رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 السلام عليكم ورحمة الله هذا الخطأ أكيد (عدم البداية من المعلم 6 في قائمة اللغة العربية) لأن اسم المادة لهذا المعلم في الخلية E11 من شيت "الجدول" غير محجوزة بصفة صحيحة حيث أنه تم إضافة "مسافة" (فراغ) في آخرها (تختلف عن اسم المادة في الخلايا الأخرى) ولهذا السبب تم إلغاء هذا الاسم من القائمة... يكفي حذف هذه المسافة الزائدة والمشكل يتم حله... والله أعلم بالنسبة لقائمة المعلمين التي تفوق 10 يكفي تغيير العدد 1 في الخلية B9 (العدد المساعد) إلى العدد 11 وبالتالي يتمدد الجدول من 11 إلى 20... وهكذا. إذا أردتَ وضعتُ لك كودا في الملف لطباعة كل الجداول لكل المواد دفعة واحدة (مع التغيير التلقائي للمواد والصفحات في حالة ما إذا تعدى عدد المعلمين العدد 10 في المادة الواحدة)... بن علية حاجي رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 18, 2019 الكاتب مشاركة قام بنشر مايو 18, 2019 لاحظ الصورة رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 السلام عليكم الظاهر أنك لم تراجع ردي بالكامل... المهم لقد تم تصحيح الخلل وإضافة كود لطباعة كل الجداول... بن علية حاجي النطاقات.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 18, 2019 مشاركة قام بنشر مايو 18, 2019 بالنسبة للسؤال في أول مشاركة جرب الملف المرفق اما بالنسبة للمشاركات الباقية استعمل المعادلات التي ادرجها لك الاستاذ بن علية الكود للملف Option Explicit Private Sub COMBO_MADDA_DropButtonClick() Application.ScreenUpdating = False Dim Srs As Worksheet Dim Sal As Worksheet Dim i%, Lr_Srs Dim comBo_dic As Object Set comBo_dic = CreateObject("scripting.dictionary") Set Srs = Sheets("source"): Set Sal = Sheets("salim") Lr_Srs = Srs.Cells(Rows.Count, 1).End(3).Row For i = 3 To Lr_Srs If Not comBo_dic.exists((Srs.Range("b" & i).Value)) Then comBo_dic.Add Srs.Range("b" & i).Value, "" End If Next COMBO_MADDA.List = Application.Transpose(comBo_dic.keys) fil_COMBO_PROF Application.ScreenUpdating = True End Sub Sub fil_COMBO_PROF() Dim k%: k = 3 Dim x%: x = 1 Range("M4:M100").ClearContents Dim Arr() If Sheets("salim").Cells(2, 3) = vbNullString Then Exit Sub Do Until Sheets("source").Cells(k, 2) = vbNullString If Sheets("source").Cells(k, 2) = Sheets("salim").Cells(2, 3) Then ReDim Preserve Arr(1 To x) Arr(x) = Sheets("source").Cells(k, 1) x = x + 1 End If k = k + 1 Loop COMBO_PROF.List = Application.Transpose(Arr) COMBO_PROF.Value = Arr(1) Range("M4").Resize(x - 1) = Application.Transpose(Arr) Erase Arr End Sub Nitakat.xlsm 1 رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 18, 2019 الكاتب مشاركة قام بنشر مايو 18, 2019 كل الشكر والتقدير لكل من مر على هذا الموضوع وساعدني في الاجابة عليه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان