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

أهلا بك أخى عسى ألا تترك هنا وتبقى معنا بهذا المنتدى

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

مرحبا ضع الشرط قبل الكود if sheets(1).range("a1")="kemas" then exit sub ثم نفس الكود

استخدم هذا الكود Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "The 'Save As' function has been disabled." Cancel = True End Sub طبعا بعد إجراء كل التغييرات و حفظ الملف على الصورة التى تريدها تبدأ فى وضع الكود فى كائن thisworkbook الحدث BeforeSave و إلا لن تتمكن أنت أيضا من الحفظ

عظيم جدا اربط الحقلين فى حقل ثالث

أما أنا فقد استخدمت التنسيق فى مربع نص للبحث فلا تأثير لمحتواه على الجدول

الله الله الله ما أجمل هذا وفقكم الله

سؤال مهم و نادر

نشكرك أخانا على هذه الإبداعات

ابسط يا عم معادلة و فديو مرة واحدة

شبه قاعدة فى دالة if عند تفحص قيم متتالية ابدأ بتفحص الأكبر لأن الأصغر يضم كل ما هو فوقه ولو فهمت المطلوب لعدلت لك صيغة المعادلة

السلام عليكم وفقكم الله لكل خير والنشرة جميلة و منسقة و مركزة

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

حسب فهمى للمطلوب فى المشاركة الأولى فى الخلية الأولى و التى تليها =INT($B$1/$B$2) و الخلية الثالثة يكون فيها الزيادة =B1-(D3+D4) فلينظر السائل ما يناسبه تقسيم عدد-kemas.rar

أكرمك الله أخى ياسر كل عام أنتم بخير

أخى شاهد الفديو

ممتاز أستاذ ياسر شكرا لك

أين الملف؟

الله الله إبداع و تتميز زادك الله علما لو أنشأت موضوعا يطول لمدة شهر لتشرح فيه هذه الأكواد لما كان كثيرا أفادكم الله

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

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

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

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

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

ربما نتمكن من مساعدتك إذا أرفقت الملف