أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




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





طلب معادلة بحث فى جدول حصص

السلام عليكم ورحمة الله وبركاته الطلب من خبراء المعادلات : أولا عندى جدول حصص فى شيت Table 1- فى شيت Classes ..



19-09-2018 11:56 صباحا
مختار حسين محمود
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-09-2018
رقم العضوية : 7828
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 4-9-1975
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
الاعجاب : 12
 offline 

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

 الطلب من خبراء المعادلات  :

أولا عندى جدول حصص فى شيت Table

1- فى  شيت Classes        مطلوب معادلة بحث عن  جدول الفصل        ( ملحوظة : اسم الفصل متغير فى الورقة بغير خلية اخرى) .

2 - فى  شيت Teachers    مطلوب معادلة بحث عن  جدول المعلم        ( ملحوظة : اسم المعلم متغير فى الورقة بغير خلية اخرى) .

الملحوظة المهمة فى الطلب الثانى :

ان المدرس أحيانا يدرس مادة منفردا  أو احيانا مشتركا مع مدرس أو مدرسين آخرين كما فى حصص المجالات مثلا

مثال  السبت الحصة الاولى    فى فصل .....      عربى        مختار

        السبت الحصة الثانية     فى فصل ......      عربى        مختار

        السبت الحصة الثالثة     فى فصل ......     مجالات    مختار + سيد + محمود

        السبت الحصة الرابعة    فى فصل ......     مجالات    مختار + سيد + محمود

كيف احصل بالمعادلات ( معادلات اكسل أو  udf )  على جدول كل مدرس على حده  . لأنى جربت الاكواد واجهتنى بعض المشاكل خاصة مع كبر عدد الفصول

ملف التطبيق :

 

 
 
  test 1.rar   تحميل rar مرات التحميل :(29)
الحجم :(62.784) KB


أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،





20-09-2018 08:20 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1289
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7813
الاعجاب : 2223
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
وعليكم السلام ورحمة الله وبركاته أستاذ مختار
أولا تم حذف الرابط المرفق فيمنع استخدام الروابط الخارجيه لاى غرض
وبالنسبة لطلبك لم افهم ما القصد بمعادلة بحث عن الجدول
قم بارفاق ملف بمثال توضيحي أى بوضع نتائج متوقعه بالمطلوب
ليتضح الامر لى وللزملاء الافاضل

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد، الصقر،




20-09-2018 09:57 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
وعليكم السلام أخي العزيز مختار
نورت المنتدى بتواجدك بيننا ..

حاول تركز على جزئية واحدة مع شرحها بالتفصيل لأن الموضوع يحتاج لمزيد من التوضيح ..
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،




21-09-2018 10:01 مساء
مشاهدة مشاركة منفردة [3]
مختار حسين محمود
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-09-2018
رقم العضوية : 7828
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 4-9-1975
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
الاعجاب : 12
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص

أشكرك أخى ياسر واخى اسلام
الملف مرفق بالفعل فى المشاركة الاولى blink
من خلال الجدول العام للمدرسة بنطلع جداول لكل فصل جدول ولكل مدرس جدول
لو تفتكر أخى ياسر فى عام 2016 حضرتك عملت 2 كود لترحيل الحصص
احدهما لتعبئة جدوال الفصول والثانى لتعبئة جداول المدرسين .
الاكواد جميلة جدا واكثر من رائعة مع عدد قليل من الفصول
لكن لما عدد الفصول وصل ل 30 فصل كود تعبئة جداول المدرسين خصوصا يعمل لكن بدون نتائج تظهر فى جداول المدرسين.
لذلك لجأت الى المعادلات .
النقطة المهمة أوى عندى : الطلب الثانى
طبعا أغلب الحصص بيدرسها مدرس واحد
وفى حصص مشتركة بين 3 مدرسين زى حصص المجالات ( زراعى وصناعى واقتصاد ) بيدرسها محمد + محمود +احمد  مثلا
الحصص دى سوف تظهر فى جدول محمد وجدول محمود وجدول احمد عشان كل واحد منهم يروح على الفصل وياخد مجموعته
المطلوب : تعبئة جداول الفصول وجداول المدرسين بالبيانات من الجدول العام للمدرسة باستخدام المعادلات
ومننساش أن الحصص المشتركة تكتب فى الجدول العام  مثلا هكذا
                                                 فصل 1/1       
                                اليوم            الحصة     المادة          المعلم
                                السبت         1            مجالات        محمد + محمود + احمد
                                                 2           مجالات         محمد + محمود + احمد
الحصص العادية هتظهر فى جدول المدرس المسند اليه الحصص دى فقط
والمطلوب أن تظهر الحصص المشتركة زى حصص  المجالات  فى الـ 3 جداول   جدول محمد و محمود و احمد
لان لكل واحد فيهم جدول خاص به . برجاء مراجعة الملف
yes  لعلى أكون واضح أكتر ان شاء الله .

 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




22-09-2018 07:47 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
أخي الحبيب مختار
تفضل الكود التالي عله يفي بالغرض ..
عملت على ورقة العمل المسماة Classes .. جرب الكود التالي
Sub UpdateClasses()
    Dim ws As Worksheet, sh As Worksheet, i As Long, r As Long, x, a, e

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Table")
        Set sh = ThisWorkbook.Worksheets("Classes")
        ReDim b(1 To 2, 1 To 7)
    
        For Each e In Array("E3|6", "E23|26", "E43|46")
            r = Val(Split(e, "|")(1))
            x = Application.Match(sh.Range(CStr(Split(e, "|")(0))).Value, ws.Rows(4), 0)
    
            If Not IsError(x) Then
                For i = 9 To 50 Step 7
                    a = ws.Range(ws.Cells(i, x), ws.Cells(i + 6, x + 1)).Value
                    b = TransposeArray(a)
                    sh.Range("C" & r).Resize(UBound(b, 1), UBound(b, 2)).Value = b
                    r = r + 2
                    Erase a: Erase b
                Next i
            End If
        Next e
    Application.ScreenUpdating = True
End Sub

Function TransposeArray(arr As Variant) As Variant
    Dim i As Long, j As Long

    ReDim temp(1 To UBound(arr, 2), 1 To UBound(arr, 1))

    For i = 1 To UBound(temp, 1)
        For j = 1 To UBound(temp, 2)
            temp(i, j) = arr(j, i)
        Next j
    Next i

    TransposeArray = temp
End Function

أثارت هذه المشاركة إعجاب: الصقر، ali mohamed ali، مختار حسين محمود، Eslam Abdullah،




22-09-2018 12:46 مساء
مشاهدة مشاركة منفردة [5]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 644
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3204
الاعجاب : 1028
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
كود رائع وممتاز وادى الغرض فى هذه الصفحة بارك الله فيك وجزاك الله كل خير

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


22-09-2018 03:39 مساء
مشاهدة مشاركة منفردة [6]
مختار حسين محمود
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-09-2018
رقم العضوية : 7828
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 4-9-1975
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
الاعجاب : 12
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
أولا أشكرك أخى ياسر على الكود الرائع ده
وعلى فكره أسرع من كود   2016    ده لو كنت فاكر

ثانيا بعد اذنكم ولو فيها ...... أنا عايز النتائج دى تكون بالمعادلات زى vlookup  مثلا 
بمجرد تغيير اسماء الفصول بالـ Spinner    يحصل  vlookup  للفصل الجديد .
أعتقد أن المسألة فى هذه الحالة أسهل وأوضح .

ثالثا بعد اذنكم ولو فيها ...... برضه أنا عايز نفس الشىء  يطبق على شيت Teachers
كود   -  معادلات  أو ما تجود به قرائحكم 

النقطة المهمة التى أدور حولها الآن  الحصص المشتركة  بين 2   او   3 مدرسين

المطلوب ترحيل الحصة المنفردة لصاحبها فقط  أما الحصة المشتركة ترحل الى جدول كل مدرس

أشكرك أخى ياسر مرة أخرى على تعاونك مع الجميع  وتحياتى للجميع

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




22-09-2018 07:21 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
بارك الله فيك أخي العزيز مختار

بالنسبة للمعادلات أجد الموضوع فيه بعض الصعوبة كما أنني أفضل التعامل مع الأكواد في مثل هذه الحالات حتى لا يثقل التعامل مع الملف

الأفضل أن يتم طرح موضوع لكل طلب .. وأنت تعرف جيداً مثل هذه الأمور .. حتى يكون الموضوع أكثر إفادة 
تقبل تحياتي

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




24-09-2018 01:40 مساء
مشاهدة مشاركة منفردة [8]
مختار حسين محمود
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-09-2018
رقم العضوية : 7828
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 4-9-1975
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
الاعجاب : 12
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
أولا شكرا لك على ما تقدمه لنا أخى الفاضل ياسر من   مساعدات ناجزة .وعلى ذوقك وطيب نفسك
أدرك جيدا أن موضوع المعادلات صعب خاصة مع النقطة بتاعت الحصص المشتركة
معلش أنا طماع شويه اليومين دول .......  
ممكن كود ترحيل لحصص المدرسين يكون خفيف وسريع والحلقات التكرارية تكون محدودة قدر الامكان.
لك كل التحية والتقدير  يا     فارس الأكواد    ده لقبك الجديد 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




24-09-2018 07:12 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
تسلم أخي الحبيب مختار
الدراسة بدأت والوقت يكاد يكون منعدم بالنسبة لي وإن لم يتدخل أحد الأخوة فسأحاول إن شاء الله في أقرب وقت ممكن ..
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: Eslam Abdullah، مختار حسين محمود،




25-09-2018 01:13 مساء
مشاهدة مشاركة منفردة [10]
مختار حسين محمود
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-09-2018
رقم العضوية : 7828
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 4-9-1975
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
الاعجاب : 12
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
ربنا يبارك لنا فيك .
أنا مقدر مجهودك وتعبك لأنى أنا مثلك تمام مش ملاحق .
بس يا ريت تخليها فى الحسبان لأنى فى الفترة اللى بعدت فيها عن الـ vba نسيت حاجات كتير .
تضحك عليه لو قلت لك نسيت ازاى اعمل data validation قعدت 5 دقايق على ما افتكرت .....  يا رب سلم .
تقبل منى وافر التحية والاعزاز والتقدير

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




25-09-2018 10:36 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
أخي العزيز مختار جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub UpdateTeachers()
    Dim ws As Worksheet, sh As Worksheet, r As Long, c As Long, m As Long, n As Long, e

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Table")
        Set sh = ThisWorkbook.Worksheets("Teachers")
        
        For Each e In Array("E3|6", "E23|26", "E43|46")
            m = Val(Split(e, "|")(1))
            sh.Range("C" & m & ":I" & m + 11).ClearContents
    
            For c = 34 To 52 Step 2
                For r = 9 To 50
                    If InStr(ws.Cells(r, c).Value, sh.Range(CStr(Split(e, "|")(0))).Value) Then
                        n = 2 * ((r - 9) \ 7) + m
                        sh.Cells(n, ws.Cells(r, 2).Value + 2).Value = "'" & ws.Cells(8, c).Value
                        sh.Cells(n + 1, ws.Cells(r, 2).Value + 2).Value = ws.Cells(r, c - 1).Value
                    End If
                Next r
            Next c
        Next e
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، أحمد يوسف، Eslam Abdullah، مختار حسين محمود،




25-09-2018 11:07 مساء
مشاهدة مشاركة منفردة [12]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 644
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3204
الاعجاب : 1028
 offline 
look/images/icons/i1.gif طلب معادلة بحث فى جدول حصص
ابداع والله كود ممتاز زادك الله من العلم استاذ ياسر وجزاك الله كل خير وجعله فى ميزان حسناتك
والأن اكتملت كل طلباتك استاذى مختار مع المبدع والمتألق دائما الأستاذ ياسر له منا كل المحبة والإحترام

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
أبجدية الأسماء بمعادلة صفيف Eslam Abdullah
11 646 abdulwahed catran
معادلة لجلب الأحداث بمعلومية 3 متغيرات ali mohamed ali
6 234 fady_dd
معادلة تفقيط الأرقام بالحروف الى اللغة العربية ali mohamed ali
13 850 samostar77
تعديل معادلة داخل الكود لإيجاد قيمة خلية ما مهند محسن
9 95 Eslam Abdullah
معادلة الاكسل التى يمكن من خلالها جمع مجموعة متفرقة اومتصلة من الخلايا مع احتواء اي منها على حرف ول ahmed hashem
5 134 YasserKhalil

الكلمات الدلالية
معادلة ، جدول ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:58 مساء

أعلن هنا
أعلن هنا
أعلن هنا