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

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


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





مقارنة قيم و تطابقها في الصف

السلام عليكم ورحمة الله وبركاتة كود VBA وظيفتة تطابق في قيم الصفوف في عامود A بعامود G يعني اية هحاول ابسط الفكرة على ..



21-04-2020 09:37 مساء
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم ورحمة الله وبركاتة 
كود VBA وظيفتة تطابق في قيم الصفوف في عامود A بعامود G يعني اية  هحاول ابسط الفكرة على قد مقدر 

عامود A عبارة عن كود صنف و عامود B اسم الصنف و عامود  C سعر البيع العادي
و في داتا بأصناف معينة  جاهزة في ملف اخر  بكود الصنف و سعر العرض و ليس سعر البيع  و كمية العرض 
و طبعا بدل ما ابحث و اكتب صنف صنف  و هياخد وقت ومجهود كبير  عشان اكتب سعر العرض و كمية العرض  قصاد الصنف الي تبعة في الصف
و عامود D و E و F هما دول الداتا الي بتيجي من ادارة المشتريات جاهزة كدة و عشوائية اصناف معينة يتعمل ليها عرض ف انا اخت ال 3 اعمدة دول كوبي  و باسط في الملف المارد تطابق القيم 
و الكود يتم التنفيذ تطابق هذة القيم في عامود G و H و I 
المطلوب 
ان الكود بياخد وقت كبير جدا  في معالجة تطابق القيم هل في طريقة تحسين الكود يبقا اسرع من كدة عشان في داتا عروض ب 1000 صنف 
و من اصل داتا قرب ال 100 الف صنف .
ومحتاج شريط تحميل يعني يوزر فورم يظهر و شريط تحميل يتحرك اثناء المعالجة و ينتهى 100% لما يكتمل المعالجة 
دة عشان اعرف ان معالجة القيم يستغرق وقت اد اية وان الجهاز بيفضل مهنج لحد ما تنفيذ المايكرو دة يخلص 
و هضع ملف فيها المثال المذكور 
يارب اكون وضحت الفكرة عشان فعلا معقدة بعض الشيئ  لو في اي توضيح انا تحت امركم 
 
 
  مقارنة.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(73.297) KB


22-04-2020 12:27 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مقارنة قيم و تطابقها في الصف
وعليكم السلام
لم أفهم المطلوب بشكل جيد ..هل يمكنك وضع شكل النتائج المتوقعة ..؟ أو صورة لشكل المتوقع بعد تنفيذ الكود؟

22-04-2020 12:41 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مقارنة قيم و تطابقها في الصف
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, b, v, rng As Range, i As Long, j As Long
    
    a = Range("D1:F" & Cells(Rows.Count, 4).End(xlUp).Row).Value
    ReDim b(1 To UBound(a, 1) + 1000, 1 To UBound(a, 2))
    
    For i = LBound(a) To UBound(a)
        v = Application.Match(a(i, 1), Columns(1), 0)
        If Not IsError(v) Then
            For j = LBound(a, 2) To UBound(a, 2)
                b(v, j) = a(i, j)
            Next j
            If rng Is Nothing Then Set rng = Cells(v, 7).Resize(, 3) Else Set rng = Union(rng, Cells(v, 7).Resize(, 3))
        End If
    Next i
    
    Range("G1").Resize(UBound(b, 1), UBound(b, 2)).Value = b
    If Not rng Is Nothing Then rng.Interior.ColorIndex = 27
End Sub

22-04-2020 02:55 صباحا
مشاهدة مشاركة منفردة [3]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif مقارنة قيم و تطابقها في الصف
اشكرك جدا يا استاد ياسر ربنا يجازيك كل خير يارب و يجعلة في ميزان حسناتك
الكود طلقة جدا حتى لو وصل اخر صف في الاكسيل لو وقت محدد ايضا و هى 2 ثانية فقط الف شكر 

22-04-2020 10:28 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif مقارنة قيم و تطابقها في الصف
الحمد لله .. هذا من فضل ربي ، ولا فضل لي
الحمد لله الذي بنعمته تتم الصالحات




الكلمات الدلالية
مقارنة ، تطابقها ، الصف ،


 










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

الساعة الآن 12:03 صباحا