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

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


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





فصل البنون عن البنات من جدول مجمع إلى جداول منفردة

السلام عليكم ورحمة الله وبركاته: اساتذتي الكرام في هذا المنتدى الرائع أٌشهد الله أنكم لا تبخلون علينا بمعلومة أو اقتراح ..


موضوع مغلق

الصفحة 1 من 5 < 1 2 3 4 5 > الأخيرة »


04-11-2021 03:00 مساء
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

السلام عليكم ورحمة الله وبركاته:
اساتذتي الكرام في هذا المنتدى الرائع أٌشهد الله أنكم لا تبخلون علينا بمعلومة أو اقتراح وهذا ما يدفعنا لعرض مواضيعنا عليكم شاكرين لكم حسن الصنيع ونسأل الله أن يجعل ما تقدموه في ميزان حسناتكم اللهم آمين.
الملف المرفق : 
محتاج كود لفصل البنون بالبيانات الخاصة بهم من هذا الجدول إلى هذا الجدول وكذلك البنات بنفس الطريقة وحبذا لو كان ذلك بطريقة اوتوماتيكية بدون أزرار وإن كان مناسباً لطريقة جلب البيانات أيضا بتحويل الزر إلى عملية اوتوماتيكية بمجرد كتابة اسم الصف (وإن كان هناك اقتراح من الخبراء بشأن الملف يرجى طرحه فأنا أقوم بتحويل برنامج قمت بتصميمه بالدوال إلى الأكواد ولعدم خبرتي بالأكواد قمت بالطرح)  جزاكم الله خيراً.
 
 
  Search.xlsm   تحميل xlsm مرات التحميل :(21)
الحجم :(815.474) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
لا أدري الفائدة من المعادلات الموجودة في الأعمدة O و U .. هذا جعل الكود معقد بعض الشيء
عموماً لأنك تهت مني وأنا بدأت أتوه منك فجرب الكود النهائي دا عشان معنديش حيل أكمل على نفس الأسلوب
Sub Test_YasserKhalil()
    Dim a, aBoys, aBoysA, aGirls, aGirlsA, ws As Worksheet, sh As Worksheet, sGrade As String, i As Long, m As Long, n As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Data")
        Set sh = ThisWorkbook.Worksheets("Search")
        a = ws.Range("A2:K" & ws.Cells(Rows.Count, "K").End(xlUp).Row).Value
        sGrade = sh.Range("C2").Value
        With sh
            .Range("M10:N" & Rows.Count).ClearContents
            .Range("P10:T" & Rows.Count).ClearContents
            .Range("V10:X" & Rows.Count).ClearContents
        End With
        ReDim aBoys(1 To UBound(a, 1), 1 To 2)
        ReDim aBoysA(1 To UBound(a, 1), 1 To 3)
        ReDim aGirls(1 To UBound(a, 1), 1 To 2)
        ReDim aGirlsA(1 To UBound(a, 1), 1 To 3)
        For i = LBound(a) To UBound(a)
            If a(i, 9) = "ذكر" And a(i, 11) = sGrade Then
                m = m + 1
                aBoys(m, 1) = m: aBoys(m, 2) = a(i, 3)
                aBoysA(m, 1) = a(i, 4): aBoysA(m, 2) = a(i, 7):: aBoysA(m, 3) = a(i, 5)
            ElseIf a(i, 9) = "انثى" And a(i, 11) = sGrade Then
                n = n + 1
                aGirls(n, 1) = n: aGirls(n, 2) = a(i, 3)
                aGirlsA(n, 1) = a(i, 4): aGirlsA(n, 2) = a(i, 7):: aGirlsA(n, 3) = a(i, 5)
            End If
        Next i
        sh.Range("M10").Resize(UBound(aBoys, 1), UBound(aBoys, 2)).Value = aBoys
        sh.Range("P10").Resize(UBound(aBoysA, 1), UBound(aBoysA, 2)).Value = aBoysA
        sh.Range("S10").Resize(UBound(aGirls, 1), UBound(aGirls, 2)).Value = aGirls
        sh.Range("V10").Resize(UBound(aGirlsA, 1), UBound(aGirlsA, 2)).Value = aGirlsA
    Application.ScreenUpdating = True
End Sub


ويا ريت تدرس الكود كويس جداً ..
ملحوظة بس قلت لك عليها وبردو مصمم تعملها .. مينفعش تعبر عن حاجتين بنفس المتغير
طالما استخدمت متغير عشان تعبر عن حاجة معينة خلاص شوف لك متغير تاني لما تيجي تتكلم عن حاجة تانية
لأن في الكود اللي إنت وضعته في الآخر استخدمت المتغير a مرة للتعبير عن المصفوفة الخاصة بالبيانات ورجعت في السطر اللي وراه علطول استخدمته عشان يخزن شرط الصف ودا ضايقني أوي أوي .. وخصوصاً إني نبهتك قبل كدا إن مينفعش يكون هناك متغير واحد لأكتر من حاجة
عرض الإجابة




04-11-2021 08:04 مساء
مشاهدة مشاركة منفردة [1]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif فصل البنون عن البنات من جدول مجمع إلى جداول منفردة
استاذنا الاستاذ حسونة جزاكم الله خيراً على تفاعلك، وعلى مد يد العون: الموضوع غير مكرر الموضوع السابق والذي أشرت إليه كان بخصوص الفرز، (مع العلم أن الكود الذي أرسلته في هذا الشأن لم يضبط معي في حقيقة الأمر ويعطي رسالة خطأ لا أعلم ما سببها) أما الموضوع الحالي فهو بخصوص استدعاء بيانات من ورقة العمل Data إلى ورقة العمل Search وقد استخدمت كودين من هذا المنتدى العظيم احسبهما لاستاذنا الكبير الاستاذ ياسر خليل، ومطلبي هو أن يتم وضع البيانات الخاصة بالبنين في الجدول الأول ثم وضع البيانات الخاصة بالبنات في العمود الثاني، أنا مستخدم في ذلك الدوال لكنها تثقل من عمل البرنامج الذي أعمل عليه فأحببت أن يكون ذلك بالأكواد لتخفيف ثقل الملف والسرعة في العمل

04-11-2021 08:30 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif فصل البنون عن البنات من جدول مجمع إلى جداول منفردة
وعليكم السلام أخي العزيز علي
بدايةً التصميم سيء للغاية وهذا ما يجعل الملف ثقيل في التعامل معه
أمر آخر لا أدري ما الهدف من عملية الفصل للبيانات !! تكرار البيانات بهذا الشكل غير مفيد بشكل كبير ويمكن معالجة أمور كهذه في أي تقارير مطلوبة فيما بعد 
أمر آخر لا أدري ما الفائدة من استخدام المعادلات في النطاق الذي سيوضع فيه النتائج .. أنت أدرى بالملف والعمل أكثر مني ، لكن أنصحك بتغيير طريقة العمل
عموماً جرب الكود التالي عله يفي بالغرض
Sub Test_YasserKhalil()
    Dim a, aBoys, aBoysA, aGirls, aGirlsA, ws As Worksheet, i As Long, m As Long, n As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Search")
        a = ws.Range("A6:G" & ws.Cells(Rows.Count, "C").End(xlUp).Row).Value
        ReDim aBoys(1 To UBound(a, 1), 1 To 2)
        ReDim aBoysA(1 To UBound(a, 1), 1 To 3)
        ReDim aGirls(1 To UBound(a, 1), 1 To 2)
        ReDim aGirlsA(1 To UBound(a, 1), 1 To 3)
        For i = LBound(a) To UBound(a)
            If a(i, 6) = "ذكر" Then
                m = m + 1
                aBoys(m, 1) = m: aBoys(m, 2) = a(i, 3)
                aBoysA(m, 1) = a(i, 4): aBoysA(m, 2) = a(i, 7):: aBoysA(m, 3) = a(i, 5)
            ElseIf a(i, 6) = "انثى" Then
                n = n + 1
                aGirls(n, 1) = n: aGirls(n, 2) = a(i, 3)
                aGirlsA(n, 1) = a(i, 4): aGirlsA(n, 2) = a(i, 7):: aGirlsA(n, 3) = a(i, 5)
            End If
        Next i
        ws.Range("M10").Resize(UBound(aBoys, 1), UBound(aBoys, 2)).Value = aBoys
        ws.Range("P10").Resize(UBound(aBoysA, 1), UBound(aBoysA, 2)).Value = aBoysA
        ws.Range("S10").Resize(UBound(aGirls, 1), UBound(aGirls, 2)).Value = aGirls
        ws.Range("V10").Resize(UBound(aGirlsA, 1), UBound(aGirlsA, 2)).Value = aGirlsA
    Application.ScreenUpdating = True
End Sub

04-11-2021 09:08 مساء
مشاهدة مشاركة منفردة [3]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif فصل البنون عن البنات من جدول مجمع إلى جداول منفردة
استاذنا العلامة الفهامة الاستاذ ياسر جزاكم الله خيراً على النصائح الغالية والمفيدة.... لذلك أنا ذكرت في بداية كلامي أنني أحتاج إلى المشورة وابداء الآراء في أي موضوع أطرحه بخصوص هذا المشروع ... والملف تحت طوع أي مشورة أو فكرة في شأنه ونحن نتعلم منكم (أنا أعمل في مدرسة بها 3000 طالب) ولا يخفى على أي مصري الآن ما نعانيه في موضوع ادخال البيانات والمتطلبات التي لا تنتهي كون أن الوزارة فرضت الدخول في التكنولوجيا بشكل كبير بدون أي تدريبات أو بدون استعداد أو متخصصين فنحن بجانب عملنا الأساسي يسند إلينا الأعمال الإدارية مما يجعلنا غير متفرغين حتى لبيوتنا نسأل الله السلامة
 

04-11-2021 09:17 مساء
مشاهدة مشاركة منفردة [4]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif فصل البنون عن البنات من جدول مجمع إلى جداول منفردة
الكود ممتاز استاذنا، وماذا لو استثنينا جدول البيانات الموجود أقصى يمين الشيت وأتينا بالبيانات مباشرة من شيت data هل يمكن ذلك، أنا أعلم أني اثقل في طلباتي لكن أحتاج إلى اقتراحاتكم

04-11-2021 09:38 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif فصل البنون عن البنات من جدول مجمع إلى جداول منفردة
نعم يمكن ذلك بسهولة
ولكن أفضل دراسة الكود الحالي لتعرف كيف يعمل الكود بحيث تتمكن من التعديل عليه

التعديل سيكون في مصفوفة البيانات الأساسية a .. وستعدل أرقام الأعمدة داخل المصفوفة لتأخذ البيانات التي تهمك فقط
الكود ليس بصعب على الإطلاق ، حاول التركيز فيه وتتبع الكود باستخدام F8 لتنفذ الكود خطوة بخطوة 

04-11-2021 09:45 مساء
مشاهدة مشاركة منفردة [6]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif فصل البنون عن البنات من جدول مجمع إلى جداول منفردة
جزاكم الله خيرا استاذنا وشكرا لك على سعة صدرك .... وهل سيكون مصدر البيانات المطلوب الحصول عليها هو نفسه الخلية C2


الصفحة 1 من 5 < 1 2 3 4 5 > الأخيرة »


الكلمات الدلالية
البنون ، البنات ، جدول ، مجمع ، جداول ، منفردة ،


 










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

الساعة الآن 09:02 صباحا