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

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


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



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





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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

ملف التطبيق :

 

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







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





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

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





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

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

 





22-09-2018 07:47 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6449
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17730
الاعجاب : 450
 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





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



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


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

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

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

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

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

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





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

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

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





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





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





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





25-09-2018 10:36 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6449
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17730
الاعجاب : 450
 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





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



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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعده فى ايجاد معادلة او كود sobhy30003
2 48 sobhy30003
تصحيح معادلة ayoub2007
2 92 ayoub2007
مطلوب تصحيح معادلة الارتباط التشعبي لخلية يظهر الاسم في الخلية وهو متغير ابوعلي الحبيب
10 163 ابوعلي الحبيب
عمل معادلة If Abo Sohaib
0 80 Abo Sohaib
كيفية تفعيل معادلة lookUp مع Combo Box Abo Sohaib
1 112 Abo Sohaib

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


 







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



الساعة الآن 07:25 مساء

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