اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

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

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

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

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

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

تم عمل معادلات النطاقات المطاطية باستعمال الدالة 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