أ / محمد صالح

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

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

فكرة رائعة أستاذ سعيد وهروب جميل من 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 وأكرر جميع هذه الحلول لمشكلة واحدة ويلزمني منها أيسرها وأسرعها في التنفيذ وليس مجرد حصر لكل الحلول وفقنا الله جميعا لكل ما يحب ويرضى

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

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

كدا أسهل وكنت أرجو أن تحاول فيها أولا إنما العلم بالتعلم والمحاولة والخطأ جرب تغيير الكود لهذا Sub addkasr() c = Cells(Rows.Count, "AR").End(xlUp).Row Range("an8:an" & c).ClearContents For n = 8 To c Range("an" & n) = Range("ar" & n) Next MsgBox "ok" End Sub

الخلية D5 هي الخاصة بالسعر بها هذه المعادلة =IF(B5="","",VLOOKUP(B5,'اسم المادة والسعر'!$B$2:$C$999,2,0)) وهي تحضر ناتج البحث من العمود الثاني C وهو الخاص بسعر القسط ولجلب سعر النقد الموجود في العمود d =IF(B5="","",VLOOKUP(B5,'اسم المادة والسعر'!$B$2:$D$999,3,0)) أرجو أن يكون هذا هو المطلوب

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

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

بعد إذن أخي وحبيبي في الله الأستاذ سليم حاصبيا جرب هذا المرفق أخي الكريم بكود بسيط يمكن أن يؤدي الغرض Sub addkasr() c = Cells(Rows.Count, "A").End(xlUp).Row Range("h2:h" & c).ClearContents For n = 2 To c Range("h" & n) = Range("j" & n) - Int(Range("j" & n)) Next MsgBox "ok" End Sub mas_كسرالقرش.rar

يمكنك كتابة الاختيارات في عمود ثم تقف في الخلية المطلوب عمل قائمة بها ثم من تبويب data (بيانات ) نختار data validation (التحقق من الصحة) ثم من القائمة الأولى نختار list (قائمة) وفي الخاصية source (المصدر) نختار النطاق ثم نضغط على ok موافق لتكون هكذا

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

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