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



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





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

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



10-09-2018 10:42 مساء
محمد النيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 86
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 146
الاعجاب : 54
 offline 

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

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


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

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

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


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





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

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


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


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


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

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




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

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




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


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


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


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

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




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

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


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


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

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




11-09-2018 09:14 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 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

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




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

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




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


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


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


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

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

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






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


 







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



الساعة الآن 10:42 مساء

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