عبد الفتاح كيرة

نعم أستاذ بارك الله فيك الخاصية evaluate تقوم بتقييم أى معادلة يعنى لو عندك معادلة شغالة بدون مشاكل فى الشيت يمكنك تقييمها من خلال الكود باستخدام evaluate و تقييمها معناه حسابها و إرجاع قيمتها النهائية " القيمة و ليس المعادلة كما شاهدت فى ملفك بشرط ألا تزيد حروفها على 255 حرفا أيضا لا نضع علامة "=" معها هكذا Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))" و هذه الخاصية مشابهة لخاصية calculate

بارك الله فيك أستاذنا خبور و كل عام أنتم بخير

لقد سألت عن عظيم

اللهم يسر أمورهم و انصرهم

أخى راجع المشاركة http://www.officena.net/ib/index.php?showtopic=19472 و http://www.officena.net/ib/index.php?showtopic=34743&view=findpost&p=182634

جزاك الله خيرا أخانا أبا عبد الله وكل عام أنتم بخير

الأخ يحيى حسين جعلتنا نحب معادلات الصفيف ممكن الحل بهذه المعادلة و هى تنتج الأرقام مرتبة من الأصغر للأكبر =IFERROR(SMALL(IF(MID(A3:A15;1;3)="333";A3:A15);ROW(A3));"") جزاك الله خيرا الأخ عبد الله المجرب جارى دراسة الكود المدرج من قبل حضرتكم أعتقد أن المطلوب حذف الخلايا البادئة ب 333 وليس 3 فقط قمت بتعديل السطر If Mid(Cells(i, 1), 1, 3) <> "333" Then كل عام أنتم بخير

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

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

نسيت أفول جزى الله الأستاذ خبور عنا خيرا هو من علمنا هذه الحيلة

أخى العزيز ياسر الحافظ لقد عثرنا - بفضل الله - أثناء إجابة السائل على كنز عظيم يمكننا من وضع أى معادلة فى الكود ويتم تنفيذها بدون أن تظهر فى الشيت كل عام أنت بخير أخى ياسر و أهل سوريا جميعا الأخ السائل عدنا للأكواد هذا كود ينفذ المطلوب قبل أن تتغير قيمة الخلية فى العمود p يتم الجمع فى العمود x خذ الملف استخدام 2sumproduct , sumif فى الكود.rar

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

أخى الفاضل لقد استعجلت فى النظر للملف أنت طلبت إخفاء المعادلة فى x5 و هذا تم كما طلبت فى ملفى الأول لو تفضلت و راجعت الملف أما الخلية x8 فلم أتعرض لها فمعادلتها مختلفة عموما تم عمل نفس الشىء مع الخلية x8 تفضل استخدام sumproduct , sumif فى الكود.rar

وفقكم الله لكل خير وكل عام أنتم بخير

السلام عليكم للإضافة مع جزيل الشكر لأخينا الأستاذ هشام هذا المطلوب بسطر واحد من الكود وبدون أن تظهر المعادلة أصلا فى الخلية درة غالية لكن ما تغلى عليكم كل عام أنتم بخير أخى ضع السطر التالى فى حدث نقر الزر Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))") كما يمكنك استخدام دالة sum هكذا Range("x5") = Application.Evaluate("SUM((P5:P1500=p5)*T5:T1500)") المرفق formulas2code-kemas.rar

سؤال جميل وإجابة أجمل شكرا لكم

عليكم السلام أحمد فريد لا أدرى ماذا يدور بخلدك عموما حولت الكود الخاص بك إلى وظيفة Private Function mypro(c1 As ComboBox, c2 As ComboBox) Dim a As Integer Dim b As Integer If c1.Value = 1 Then a = 20 End If If c1.Value = 2 Then نناديها من خلال زر الأمر و نحتاج لعملها إلى تحديد اسم مربعى التحرير هكذا Private Sub CommandButton1_Click() mypro ComboBox1, ComboBox2 End Sub لكن الاستفادة من ذلك هى أن تنادى الوظيفة باستخدام مربعات تحرير و سرد مختلفة تعينها أنت فانظر ماذا تريد Parameters-kemas.rar

شكرا لك أخى و هذا رابط مباشر لتحميل الكتاب

نعم صدقت لكن غالب أعمدة الأسماء التى نستخدمها تكون بالفعل موبتثة(مؤيجدة ) تصاعديا ككشوف أسماء الطلاب شكرا للمعلومة سيدى هام يجب وضع القيم في lookup_vector في ترتيب تصاعدي. على سبيل المثال، 2, -1, 0, 1, 2 أو A-Z أو FALSE, TRUE. في حالة عدم القيام بذلك قد لا تعطيك LOOKUP القيمة الصحيحة.

جميل جدا التقط مشغل المنتدى الرابط الصوتى

السلام عليكم كل عام أنتم بخير لسماع التلاوة http://kemas.posterous.com/62898280 و للتحميل http://posterous.com/getfile/files.posterous.com/kemas/OVmj5ihhxoELBJ2MAcYsoYcn6jYQelZDmkXX5nqKNcefcMWkKy3cZzvBhssh/_-.mp3

أخى الحبيب هشام ممنون لك وشكرا لردك كل عام أنت بخير

أهلا بالحبيب خبور و الله علا مؤشر الموضوع بتشريفكم له إن شاء الله منور دائما حفظكم الله و رعاكم وكل عام أنتم بخير

السلام عليكم من المعروف أن دالة vlookup تبحث فى العمود الأيمن من مدى معين وتعيد الناتج من نفس العمود أو من عمود تال للعمود الأول فمثلا لو عندنا العمود الأول فيه الرقم المسلسل 1 2 3 4 و العمود الثانى به الأسماء بالترتيب Hesham Khbour Hosamy Yahya Abdullah Kemas Mtaher Tareq Yahiawe Fox فبالبحث فى العمود الأول عن الرقم 6 نعيد الاسم رقم 6 من العمود التالى و هو Kemas و هذه هى المعادلة =VLOOKUP(F6;A2:B11;2) هذه طريقة لعكس اتجاه البحث يعنى نبحث فى عمود الاسم الأيسر ونرجع الناتج من العمود الأيمن نبحث عن kemas و نرجع الرقم 6 و هذا عن طريق دالة lookup هذه هى المعادلة =LOOKUP(E6;Mynames;A2:A11) أحببت أن أنقل لكم الطريقة لعل أحدا يريدها الملف المرفق عكس اتجاه دالة vlookup.rar

اللهم بلغنا رمضان لم يسأل النبى - صلى الله عليه و سلم - ربه طول العمر إلا فى هذا الموضع كل عام أنتم بخير