اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

بن علية حاجي

النطاقات.xlsx

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

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

بن علية حاجي

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

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم 

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

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

وشكرا مقدما 

رابط هذا التعليق
شارك

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

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

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

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

بن علية حاجي

رابط هذا التعليق
شارك

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

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

الكود للملف

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information