تسمية النطاقات

[khairi ali]

السلام عليكم 

أساتذي الكرام الرجاء المساعدة في تسمية النطاقات بحيث تكون مطاطية كما في الملف المرفق

النطاقات.xlsx

[وجيه شرف الدين]

جرب هذا الملف لعله يفى بالغرض

نسخة من النطاقات-1.xlsm

[khairi ali]

السلام عليك أخي وجيه 

الف الف مبروك الترقية 

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

[وجيه شرف الدين]

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

[khairi ali]

اخي وجيه فعلا لكل مجموعة معلمين يدرسون في تخصص واحد يكونوا في نطاق واحد واريد عند إضافة  أو حدف معلم لا يتغير هذا النطاق ( يعني يبفى نفس التخصص )

[وجيه شرف الدين]

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

[احمد بدره]

بعد إذن الأستاذ / وجيه

جرب هذا لعله يكون المطلوب  وهو عبارة إنشاء قائمة منسدلة تعتمد على قائمة منسدلة أخرى

النطاقات.xlsx

[وجيه شرف الدين]

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

[khairi ali]

مشكور أخي أحمد لكن اريد العمل في نفس الصفحة مثلا معلم لغة عربية أستلم الجدول في الفصل الثاني تتم إضافتها في الجدول ويدخل تلقائيا في نطاق اللغة العربية وهكذا لباقي المواد

[khairi ali]

لاحظوا الصورة  لعلها توضح لكم المطلوب

[احمد بدره]

يمكن عمل تصفية للمادة بدون تسمية أي نطاقات

 

النطاقات(1).xlsx

[khairi ali]

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

[بن علية حاجي]

السلام عليكم ورحمة الله

تم عمل معادلات النطاقات المطاطية باستعمال الدالة OFFSET (بالفرنسية DECALER) على أساس أن قائمة معلمي كل مادة متسلسلة (الأسماء كلها تحت بعض)... أرجو أن تفي الغرض المطلوب...

بن علية حاجي

النطاقات.xlsx

[khairi ali]

هذا هو المطلوب شكرا أخي بن علية 

[khairi ali]

السلام عليكم 

صحة فطوركم جميعا

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

النطاقات (2).xlsx

[بن علية حاجي]

السلام عليكم

تجنبا لكثرة النطاقات بالتسمية حسب عدد المواد، ارتأيت أن أغير طريقة تحديد القوائم المنسدلة لمعلمي المواد بتسمية واحدة Profs_Mat اعتمادا على تسميتين Cellule (قائمة المواد من العمود Y) والتسمية Mat (اسم المادة المستعمل في البيانات من العمود Z) حسب اختيار المادة من الخلية E6 المرتبطة بالتسمية Cellule... بالنسبة لخلايا "أسماء المدرسين" في الجدول تم استبدال القوائم المنسدلة فيها بمعادلات بالدالة INDEX حتى يتم تغيير هذه الأسماء (أسماء المدرسين) تلقائيا حسب اختيار المادة من الخلية E6... أرجو أن تفي هذه التعديلات الغرض المطلوب...

بن علية حاجي

النطاقات (2).xlsx

[وجيه شرف الدين]

بارك الله فيكم استاذنا الفاضل

[khairi ali]

السلام عليكم 

أخي بن علية نفس المشكلة قائمة فعند إضافة معلم مثلا للتربية الاسلامية الامر عادي ولكن عند عرض معلمي اللغة العربية يبدأ عرض المعلمين من المعلم رقم 7 بدلا من المعلم 6

والمشكلة الاخرى هي أن شيت عرض الجدول به 10 معلمين فقط بينما هناك مواد بها أكثر من عشرة معلمين 

وشكرا مقدما 

[بن علية حاجي]

السلام عليكم ورحمة الله

هذا الخطأ أكيد (عدم البداية من المعلم 6 في قائمة اللغة العربية) لأن اسم المادة لهذا المعلم في الخلية E11 من شيت "الجدول" غير محجوزة بصفة صحيحة حيث أنه تم إضافة "مسافة" (فراغ) في آخرها (تختلف عن اسم المادة في الخلايا الأخرى) ولهذا السبب تم إلغاء هذا الاسم من القائمة... يكفي حذف هذه المسافة الزائدة والمشكل يتم حله... والله أعلم

بالنسبة لقائمة المعلمين التي تفوق 10 يكفي تغيير العدد 1 في الخلية B9 (العدد المساعد) إلى العدد 11 وبالتالي يتمدد الجدول من 11 إلى 20... وهكذا.

إذا أردتَ وضعتُ لك كودا في الملف لطباعة كل الجداول لكل المواد دفعة واحدة (مع التغيير التلقائي للمواد والصفحات في حالة ما إذا تعدى عدد المعلمين العدد 10 في المادة الواحدة)...

بن علية حاجي

[khairi ali]

لاحظ الصورة 

[بن علية حاجي]

السلام عليكم

الظاهر أنك لم تراجع ردي بالكامل... المهم لقد تم تصحيح الخلل وإضافة كود لطباعة كل الجداول...

بن علية حاجي

النطاقات.xlsm

[سليم حاصبيا]

 بالنسبة للسؤال في أول مشاركة  جرب  الملف المرفق

اما بالنسبة للمشاركات الباقية استعمل المعادلات التي ادرجها لك الاستاذ بن علية

الكود للملف

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

[khairi ali]

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