Ahmed1111

5 ساعات مضت, بن علية حاجي said:

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

حل بكود بسيط مع نطاقات بالتسمية...

xxzz (3).xlsm 19.79 kB · 6 downloads

الاخ الفاضل بن علية حاجي جزاك الله خيرا ابدعت وخير ما فعلت هذه الطرقة فعاله اعطت المطلوب  وكاما انوه للاخوة المطلعين سبب طلب هذا المهمه وهو لدي كشف حركات عملاء يحتوي على300الاف صف وعندما ابحث عن كشف عميل مخصص ذلك اجبر الحلقة التكرارية for r ان تقوم بالحث من الصف رقم 1 الى 300 الاف وهذا يثقل ويسبب بطى في سرعة الاستجابة وقد يخرج ملف الاكسل ويغلق ولكن بهذه الطريق التي تم التعاون مع الاستاذ الاخ الفاضل بن علية حاجي جزه الله خير   استطعت ان اجعل حلقة تكررية r تبدا من الصف الذي هو مطابق ومن ثم ينطلق r تلقائي الى الصف التالي  والمطابق وبهذا قللت من جهد ومدى الحلقة التكرر  هذا ما حبيت ان اطلعكم ولكم جزيل الاحترام

2 ساعات مضت, بن علية حاجي said:

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

وهذا حل آخر (مع الحل السابق) باستعمال الدالة SUMPRODUCT...

الاخ بن علية حاجي الله يعطيك العافيه طريقتك جدا ممتازة ولكني اريدها تعمل في كود vba بنفس تركيب الدالة match او الدالة SUMPRODUCT  علما باني استطيع عملها بطرق مختلفه مثل الحلقة التكراريه for r  ولكن تهمني ان اجدها بدالة match او الدالة SUMPRODUCT في كود vba  ويفضل ان يكون الكود vba بدالةmatch  وشكرا جزيلا 

xxzz (2).xlsm 19.96 kB · 2 downloads

6 ساعات مضت, mn20 said:

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

نسخة الأوفس لدي 2013 لذلك ارفق لكم تجربتي من خلال الدالة Match ، بدمج العمودين (A,B) المطلوب البحث فيهما في عمود واحد (D) ثم تطبيق الدالة Match , وكذلك الكود.

جرب لعلها تفيد.

xxzz.xlsm 20.49 kB · 3 downloads

كتب الله اجرك اخي العزيز محاولة ممتازة ولكن لدي الرغبة ان اعملها دون اي عمود مساعد انما هذا الملف عبارة عن عينه (مثل) والهدف منها ابعد من ذلك  شكرا جزيلا

اخي ابراهيم هل يمكن فعل هذا المعادلة في كود vba نفس المعادلة match بشرطين

السلام عليكم ورحمة الله الاخوة الاعزاء مبرمجين لغة vba اكسل اتمنى افادتي بهذا الكود حيث ان صيغة الكود اذا تم كتابتها في معادلة عاديه تعمل بشكل ممتاز ولكني اريدها ان تعمل في كود vba البسيط وجزاكم الله خير

عند تنفيذ هذا الكود يعطيني err وعند كتابته بشكل معادلة عادية يعمل  اريد احد  الكودين a او b ان يعمل 

Sub nn()
With Sheets("aass")
a = Application.WorksheetFunction.Match(.Range("f2") & .Range("g2"), .Range("a1:a10000") & .Range("b1:b10000"), 0)
b = Application.WorksheetFunction.Match(1, ((.Range("a1:a100") = .Range("f2")) *( .Range("b1:b100") = .Range("g2"))), 1)
 MsgBox a
 MsgBox a
End With
End Sub

xxzz.xlsm