أ / محمد صالح

المطلوب الأول واضح لذا تفضل هذا الحل mas_أقساط.rar

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

الملف موجود به كود رسالة فعلا Private Sub Workbook_Open() MsgBox "من إعداد بوشلاغم زاكي مقتصد متوسطة طالب عبد الله **بئر الشهداء** " _ & vbNewLine & "" & vbNewLine & "مع تحياتي و احترامي للأخ مخناش جمال " _ & vbNewLine & "" & vbNewLine & "" _ , vbMsgBoxRight, "مقتصد متوسطة طالب عبد الله" End Sub

إجابة نظرية مثل السؤال ممكن يكون السبب فواصل الصفحات أو ممكن ترفق ملفك لفحصه أو مثال منه

جرب هذا المرفق على العمود b كله وبأبسط كود ممكن ملحوظة: الكود مذكور في المشاركة السابقة No_writing in column b.rar

جزاك الله خيرا أستاذ سليم ولكن أعتقد أن السؤال عكس الكود فإذا كانتa1=1 لا يقبل التعديل علىb1 وتعود لقيمتها السابقة وإذا كانت a1 أي قيمة أخرى لا يتم تنفيذ شيء أو يقبل التعديل علىb1 لذا أقترح تعديل الكود إلى Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 2 And [a1] = 1 Then Application.Undo Application.EnableEvents = True End Sub الباقي على صاحب السؤال

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

شكرا جزيلا لمروركم الكريم أحبتي في الله ولكلماتكم الرقيقة

ما شاء الله إبداعات لا تنتهي موفقين إن شاء الله

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

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

وإياكم أستاذ ناصر الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله

بعد إذن حبيبنا الغالي أبا البراء وعلى نفس طريقة الكود السابق فقط يمكن تعديله إلى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 7 Then If Target.Column >= 89 And Target.Column <= 100 Then Application.EnableEvents = False Cells(Target.Row, "CT").Value = "" Cells(Target.Row, "CT").Value = Cells(Target.Row, "CV").Value - Int(Cells(Target.Row, "CV").Value) Application.EnableEvents = True End If End If End Sub وفقنا الله جميعا لكل ما يحب ويرضى

لإثراء الموضوع وكما طلب الأخ صاحب السؤال الأستاذ كعبلاوي هذه صورة توضح الخطوات بدقة في أوفيس 2003 وما قبله بداية من إظهار شريط الأدوات forms بالضغط كلك يمين RC على أي شريط أدوات وفقنا الله وإياكم لكل ما يحب ويرضى

لا يوجد ماكرو اسمه go to في الملف إلا إذا كنت تقصد طريقة عمل زر زيادة ونقصان رقم الجلوس ملحوظة أخيرة لم يعد أحد يستخدم أوفيس 2003 ويظل يحرم نفسه من الكثير من السرعة والدقة في إنجاز المهام بأوفيس أحدث مثل 2007 2010 2013 2016

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

ربما يفيد المهتمين بترجمة الأسماء أو ترجمة النصوص عموما هذا الفيديو وفقنا الله جميعا للخير

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

شكرا لمرورك الكريم أستاذ أحمد الفضل لله العلي العظيم

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

في هذه الحالة يلزمك زيادة عمود نوع الطلبية نقدي أو تقسيط يختار من خلال القائمة وفي عمود السعر نستخدم دالة if =if(c1="نقدي", formula 1, formula 2) حيث المعادلة الأولى هي معادلة السعر النقدي والمعادلة الثانية هي معادلة سعر التقسيط والخلية c1 هي الخلية التي بها نوع الطلبية الذي تمت زيادته

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

المشكلة كما قال أستاذ ياسر تخص تحديث دوت نت فريم وورك وأنصح باستخدام نسخة ويندوز أحدث حيث أن شركة ميكروسوفت قد أوقفت الدعم والتحديثات لنسخة اكس بي التي صدرت في ١٩٩٨ وصدر بعدها Vista 7 8 8.1 10 وأكرر جميع هذه الحلول لمشكلة واحدة ويلزمني منها أيسرها وأسرعها في التنفيذ وليس مجرد حصر لكل الحلول وفقنا الله جميعا لكل ما يحب ويرضى

أعتقد يجب قبل الدخول لشاشة الكود مع السطر الأصفر تظهر رسالة مثل هذه رجاء تصويرها للتعامل مع الخطأ

وفقنا الله جميعا لكل ما يحب ويرضى