مشكلة Formula Array

[Mohammed Farid]

السلام عليكم إخوانى الكرام

عندى معادلة صفيف تعمل جيدا معى ولكن عند تنفيذها بالكود تظهر لى رسالة خطأ وهى :

Unable to set the FormulaArray property of the Range class

حاولت  تجزئة المعادلة نظرا لأن هذه الرسالة تظهر نتيجة كثرة عدد أحرف المعادلة ولكن ظهرت لى نفس الرسالة

ها هى المعادلة

=IF(COUNTIFS(A13:A51;">="&$D$3;A13:A51;"<" & $E$3;C13:C51;$E$5)>0;IF($D$5="آخر إذن";MAX(IF(A13:A51>=$D$3;IF(A13:A51<$E$3;IF(C13:C51=$E$5;A13:A51))));MIN(IF(A13:A51>=$D$3;IF(A13:A51<$E$3;IF(C13:C51=$E$5;A13:A51)))));"لا يوجد")

 

[عبد الله بولنوار]

لو ترفق الملف افضل

[Mohammed Farid]

شكرا لردك أخ عبد الله أرفقت مثال بسيط للتوضيح

Formula Array.rar

[ياسر خليل أبو البراء]

الأخ الفاضل محمد فريد

تفضل الملف المرفق >> ولا تنسى أن تختار المشاركة كأفضل إجابة إذا أعجبك الحل

Sub Test()
Range("I10") = Evaluate("=IF(COUNTIFS(A13:A51,"">=""&$D$3,A13:A51,""<"" & $E$3,C13:C51,$E$5)>0,IF($D$5=""آخر إذن"",MAX(IF(A13:A51>=$D$3,IF(A13:A51<$E$3,IF(C13:C51=$E$5,A13:A51)))),MIN(IF(A13:A51>=$D$3,IF(A13:A51<$E$3,IF(C13:C51=$E$5,A13:A51))))),""لا يوجد"")")
End Sub

تقبل تحياتي

Formula Array.rar

تم تعديل مارس 29, 2015 بواسطه YasserKhalil

[Mohammed Farid]

شكرا أخى العزيز ياسر خليل كود رائع

إذا سمحت هل يمكن  تحويله إلى دالة

[ياسر خليل أبو البراء]

هي بالفعل دالة ..لما تريد تحويلها إلى دالة وهي دالة بالفعل (ودنك منين يا جحا ..متزعلش دا بس مثل مشهور)

إذا عرف السبب بطل العجب

وأعتقد أن الحصول على النتيجة بدون معادلات الصفيف أفضل وأخف في التعامل وووو كثير من المميزات !!

إذا كانت مشكلتك في الضغط على زر أمر فيمكن عمل الكود في حدث تغيير ورقة العمل بحيث عندما تختار من قوائمك المنسدلة يتم تنفيذ الكود

تم تعديل مارس 29, 2015 بواسطه YasserKhalil

[ياسر خليل أبو البراء]

تفضل الملف المرفق

Formula Array.rar

[ياسر خليل أبو البراء]

الأخ محمد فريد لاحظت شيء غريب أول مرة أشوفه بالمنتدى ..تقييمك سالب واحد (إنت واخد كارت أصفر ولا ايه الحكاية)

[Mohammed Farid]

شكرا اخى الكريم أخ ياسر

بالنسب لسبب طلب تحويل الكود إلى معادلة انا عندى كروت صنف سوف أضع فيها هذا الكود ولكن الكروت تختلف فى حجمها فبعضها يصل إلى آلاف الاسطر

انا عندى كود أحدد به بداية ونهاية كل كارت

كنت أريد معادلة يمكن أن يتم تحويلها إلى كود بحيث أقوم بعد ذلك بنسخها إلى كل الكروت عن طريق الكود وبعد ذلك تبقى معادلة فى الكارت بحيث إذا اذداد حجمه المعادلة تقوم بضبط نفسها تلقائيا

بالنسبة للتقييم لا أعلم عنه شيء

شكرا لك أخى الكريم