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

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


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



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





عدم تكرارالمتشابه مع الجمع العدد

السلام عليكم ورحمة الله وبركاتة ... شكراquot; لكل الاساتذه الكرام المحترفين والقائمين على الموقع الاول بالحلول وتطوير ا ..



10-09-2018 10:42 مساء
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 220
الاعجاب : 1
 offline 

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

شكرا" لكل الاساتذه الكرام المحترفين والقائمين على الموقع الاول بالحلول وتطوير المختصر ... اكيد ابداع


... المطلوب (مايكرو ) عدم تكرار الاسم المتشابه + عدم تكرار المادة المتشابه مع جمع المادة المتشابه اينما كانت

شكرا" للجهود المبذولة

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  عدم تكرار.rar   تحميل rar مرات التحميل :(8)
الحجم :(7.549) KB







11-09-2018 12:11 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1009
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4400
الاعجاب : 189
 Online 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
أخى الكريم محمد لابد من تكرار الإسم فهناك مواد مختلفة لإسم واحد



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


11-09-2018 12:26 صباحا
مشاهدة مشاركة منفردة [2]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 220
الاعجاب : 1
 offline 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
المشاركة الأصلية كتبت بواسطة:ali mohamed ali
أخى الكريم محمد لابد من تكرار الإسم فهناك مواد مختلفة لإسم واحد


احسنت ... استاذ ali mohamed ali ... فعلا81





11-09-2018 12:28 صباحا
مشاهدة مشاركة منفردة [3]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 220
الاعجاب : 1
 offline 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
جزاكم الله خير
اغلب اعمالي المتعبه في الوظفية ... حقا فضل من الله وهذا المنتدى والاساتذه ساعدني كثير ... واختصر لي الوقت ... الدعاء لكم بالصحة والتوفيق ياطيبون





11-09-2018 12:29 صباحا
مشاهدة مشاركة منفردة [4]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1009
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4400
الاعجاب : 189
 Online 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
 
 
  عدم تكرار.rar   تحميل rar مرات التحميل :(6)
الحجم :(9.529) KB




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


11-09-2018 12:36 صباحا
مشاهدة مشاركة منفردة [5]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 220
الاعجاب : 1
 offline 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد





11-09-2018 12:50 صباحا
مشاهدة مشاركة منفردة [6]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1009
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4400
الاعجاب : 189
 Online 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
أخى الكريم موضوعك غير معقد وليس به أى معادلات كبيرة او معقدة لتساعد على بطىء الملف
فأعتقد انه لا داعى للكود فى هذه الحالة



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


11-09-2018 01:10 صباحا
مشاهدة مشاركة منفردة [7]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 220
الاعجاب : 1
 offline 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
صح ... ولكن انا سوف اضيف فرز ترتيب من الاعلى الى الاسفل واضع بعض اوامر مودل لجداول وايعازات هذا هو الي لازمني من استخدام مودل
احسنت .....استاذali





11-09-2018 09:14 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6422
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17674
الاعجاب : 425
 offline 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
بارك الله فيك أخي العزيز علي وجزاك الله خيراً
النتائج الخاصة بالمعادلات أعتقد أنها تحتاج لمراجعة .. 

عموماً جرب الكود التالي وراجع النتائج أخي الكريم محمد
Sub Test()
    Dim ws As Worksheet, dic As Object, a, s As String, i As Long, m As Long

    Set ws = ThisWorkbook.Sheets(1)
    Set dic = CreateObject("Scripting.Dictionary")
    a = ws.Range("B3:D" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value

    For i = LBound(a, 1) To UBound(a, 1)
        s = a(i, 2)
        If Not dic.Exists(s) Then dic(s) = Array(, , 0)
        dic(s) = Array(a(i, 1), a(i, 2), dic(s)(2) + a(i, 3))
    Next i

    Application.ScreenUpdating = False
        With ws
            .Range("F3:I1000").ClearContents
            .Range("G3").Resize(dic.Count, 3).Value = Application.Transpose(Application.Transpose(dic.items))
    
            m = Range("B" & Rows.Count).End(xlUp).Row
            If m > 2 Then
                Range("G2:I" & m).Sort Key1:=.Range("G2:G" & m), Order1:=xlAscending, Header:=xlYes
                With .Range("F3:F" & .Cells(Rows.Count, 7).End(xlUp).Row)
                    .Value = Evaluate("ROW(1:" & .Count & ")")
                End With
            End If
        End With
    Application.ScreenUpdating = True
End Sub





11-09-2018 11:56 صباحا
مشاهدة مشاركة منفردة [9]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 141
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 220
الاعجاب : 1
 offline 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
احسنت (( YasserKhalil )) ... تمام 100%
ولك مني الف تحية وتقدير ...8181 اللهم بحق نبينا محمد وال وصحبه ... يعطيك الصحة وطول العمر ويحفظ عائلتك واصدقاء من كل سوء يارب ...(( شكر المنعم واجب))8181





11-09-2018 01:15 مساء
مشاهدة مشاركة منفردة [10]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1009
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4400
الاعجاب : 189
 Online 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
jymz5G8W514Fk8Fشكرا لك استاذى ياسر تم ضبط المعادلة فى المشاركة رقم 4
جزاك الله كل خير كود رائع
 
 




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


11-09-2018 05:08 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6422
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17674
الاعجاب : 425
 offline 
look/images/icons/i1.gif عدم تكرارالمتشابه مع الجمع العدد
بارك الله فيك أخي الحبيب علي .. بحق ملفك وعملك بالمعادلات رائع رائع وممتاز
جزاك الله خير الجزاء
وأجمل ما في الموضوع هو التنوع في الحلول وهذا هو الأفضل دائماً حيث ذلك يثري المنتدى ويرتقي بمستوى الأعضاء

بارك الله فيك أخي الكريم محمد والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات







الكلمات الدلالية
تكرارالمتشابه ، الجمع ، العدد ،


 







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



الساعة الآن 01:44 مساء

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