أ / محمد صالح

يوجد فرق بين thisworkbook و workbook الخطوات بالتفصيل انسخ الكود افتح محرر فيجوال بيسك بالضغط على alt+f11 في أعلى يسار المحرر نجد thisworkbook اضغط مزدوجا عليه الصق الكود عدل نص الرسالة إلى ما تريد

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

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

طريقة العمل في 2013 هي نفسها في 2010 بنسخ الكود السابق ووضعه في this workbook في محرر vba

تجديد للاستفادة الجماعية

المطلوب الأول واضح لذا تفضل هذا الحل 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

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

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

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

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

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