أ / محمد صالح

بارك الله لك أستاذ سعيد كلامك يؤكد كلامي ولا تعارض بينهما حيث يشجع كلاهما الإنسان على الاجتهاد والعمل والبحث والتعلم مهما كانت معرفته وأذكر حمة تقول: من قال: قد علمت. فقد جهل. ولا يتكبر أحدنا على سؤال الآخرين فمفتاح العلم السؤال ................... أرجو أن يكون الأخ زاكي بوشلاغم صاحب السؤال قد استفاد من هذه النقاشات الرائعة وتوصل لما يريد كل عام والجميع بخير وسعادة

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

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

يوجد فرق بين 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

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

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