Ahmed1111 قام بنشر ديسمبر 27, 2022 مشاركة قام بنشر ديسمبر 27, 2022 السلام عليكم ورحمة الله الاخوة الاعزاء مبرمجين لغة 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 رابط هذا التعليق شارك More sharing options...
mn20 قام بنشر ديسمبر 28, 2022 مشاركة قام بنشر ديسمبر 28, 2022 وعليكم السلام ورحمة الله وبركاته نسخة الأوفس لدي 2013 لذلك ارفق لكم تجربتي من خلال الدالة Match ، بدمج العمودين (A,B) المطلوب البحث فيهما في عمود واحد (D) ثم تطبيق الدالة Match , وكذلك الكود. جرب لعلها تفيد. xxzz.xlsm رابط هذا التعليق شارك More sharing options...
Ahmed1111 قام بنشر ديسمبر 28, 2022 الكاتب مشاركة قام بنشر ديسمبر 28, 2022 6 ساعات مضت, mn20 said: وعليكم السلام ورحمة الله وبركاته نسخة الأوفس لدي 2013 لذلك ارفق لكم تجربتي من خلال الدالة Match ، بدمج العمودين (A,B) المطلوب البحث فيهما في عمود واحد (D) ثم تطبيق الدالة Match , وكذلك الكود. جرب لعلها تفيد. xxzz.xlsm 20.49 kB · 3 downloads كتب الله اجرك اخي العزيز محاولة ممتازة ولكن لدي الرغبة ان اعملها دون اي عمود مساعد انما هذا الملف عبارة عن عينه (مثل) والهدف منها ابعد من ذلك شكرا جزيلا رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 30, 2022 مشاركة قام بنشر ديسمبر 30, 2022 السلام عليكم ورحمة الله بمعادلة صفيف تم عمل المطلوب في الدالة MATCH... دون اللجوء لعمود مساعد... xxzz (1).xlsm 2 1 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 30, 2022 مشاركة قام بنشر ديسمبر 30, 2022 السلام عليكم ورحمة الله وهذا حل آخر (مع الحل السابق) باستعمال الدالة SUMPRODUCT... xxzz (2).xlsm 2 1 رابط هذا التعليق شارك More sharing options...
Ahmed1111 قام بنشر ديسمبر 30, 2022 الكاتب مشاركة قام بنشر ديسمبر 30, 2022 (معدل) 2 ساعات مضت, بن علية حاجي said: السلام عليكم ورحمة الله وهذا حل آخر (مع الحل السابق) باستعمال الدالة SUMPRODUCT... الاخ بن علية حاجي الله يعطيك العافيه طريقتك جدا ممتازة ولكني اريدها تعمل في كود vba بنفس تركيب الدالة match او الدالة SUMPRODUCT علما باني استطيع عملها بطرق مختلفه مثل الحلقة التكراريه for r ولكن تهمني ان اجدها بدالة match او الدالة SUMPRODUCT في كود vba ويفضل ان يكون الكود vba بدالةmatch وشكرا جزيلا xxzz (2).xlsm 19.96 kB · 2 downloads تم تعديل ديسمبر 30, 2022 بواسطه Ahmed1111 رابط هذا التعليق شارك More sharing options...
أفضل إجابة بن علية حاجي قام بنشر ديسمبر 31, 2022 أفضل إجابة مشاركة قام بنشر ديسمبر 31, 2022 السلام عليكم ورحمة الله حل بكود بسيط مع نطاقات بالتسمية... xxzz (3).xlsm 4 1 رابط هذا التعليق شارك More sharing options...
Ahmed1111 قام بنشر ديسمبر 31, 2022 الكاتب مشاركة قام بنشر ديسمبر 31, 2022 5 ساعات مضت, بن علية حاجي said: السلام عليكم ورحمة الله حل بكود بسيط مع نطاقات بالتسمية... xxzz (3).xlsm 19.79 kB · 6 downloads الاخ الفاضل بن علية حاجي جزاك الله خيرا ابدعت وخير ما فعلت هذه الطرقة فعاله اعطت المطلوب وكاما انوه للاخوة المطلعين سبب طلب هذا المهمه وهو لدي كشف حركات عملاء يحتوي على300الاف صف وعندما ابحث عن كشف عميل مخصص ذلك اجبر الحلقة التكرارية for r ان تقوم بالحث من الصف رقم 1 الى 300 الاف وهذا يثقل ويسبب بطى في سرعة الاستجابة وقد يخرج ملف الاكسل ويغلق ولكن بهذه الطريق التي تم التعاون مع الاستاذ الاخ الفاضل بن علية حاجي جزه الله خير استطعت ان اجعل حلقة تكررية r تبدا من الصف الذي هو مطابق ومن ثم ينطلق r تلقائي الى الصف التالي والمطابق وبهذا قللت من جهد ومدى الحلقة التكرر هذا ما حبيت ان اطلعكم ولكم جزيل الاحترام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.