الزباري

شاكرين مرورك أ.جلال

السلام عليكم ورحمة الله وبركاته،

تأخرنا كثيرا بالرد عليكم وذلك بسبب انشغالنا في تلك الفترة، وكذلك بسبب تعقيدات الكود إلى أن حققنا مرادنا.. 

تفضلوا المرفق عسى أن ينال إعجابكم

فاتورة ديناميكية 8ب.rar

المهمة التالية: 

عند الضغط على  +

يتم فتح نموذج بحث عن الأصناف يتم من خلاله إدراج الصنف إلى الفاتورة..

بانتظار مشاركاتكم.

إبراهيم ابوليله سنخصص المهمة الأخيرة على طلبك.. تحياتي.

الإجابة في المرفق التالي:

فاتورة ديناميكية 7.rar

قمة الإبداع والديناميكية.. جزلك الله خيراً.

تم التعديل بطريقة الأستاذ سليم حاصبيا

sub total loop.rar

وأتمنى أن يوافق صوابكم

جاري التجربة وسنوافيكم بالنتيجة

المهمة التالية: إضافة زر طباعة أسفل الأزرار الموجودة، فعند الضغط عليه يقوم بتحديد الفاتورة كنطاق للطباعة.

1 ساعه مضت, سليم حاصبيا said:

For i = rowdiv To lastRow Step rowdiv
 'اكتب هنا الكود المناسب
Next

 

اخي الزباري

لماذا المرور على كل العامود خلية خلية في حين يمكنك استعمال هذه For Netx في الكود

 

 

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

Sub salim_way()
On Error Resume Next
lastRow = Range("b1").End(xlDown).Row
Range("a2:a" & lastRow).SpecialCells(4).EntireRow.Delete
Range("c2:c" & lastRow).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End Sub

ارجو تقبل هذه الملاحظات و ذلك من اجل كود اسرع و متكامل

وخدمة للاخرين حيث بمكن ان يكون هناك بيانات كبيرة مما يوفر الوقت

أخي سليم

حاولت أن أطبق الكود باستخدام for next

إلا أنه واجهتني مشكلة التعرف على آخر السطر، حيث أنه يتغير عند إدراج سطر جديد، فمثلا لو كان لدينا جدول يتكون من 100 سطر فإن الكود يتوقف عند السطر 100، لكن فعلياً وبعد إضافة سطر المجموع وسطر العنوان فيجب أن يكون نهاية السطر هو 120.

وتقبل تحياتي.

أخي سليم حاصبيا

عين الصواب، والصواب أنت.. أكواد ولا أروع.

تحياتي

أخي سعد عابد

بارك الله فيك وأثابك من فضله

منوّر يا أباحمزة

تحياتي

جلال الجمال_ابو أدهم

وينور على قلبك

تحياتي

مشاركتي في نفس الموضوع تفضل

أخواني في المنتدى..

محاولة بسيطة مني في تبسيط عمل الكود وجعله مرن مع خيار التراجع.

إليكم المرفق:

sub total loop.rar

تبقى لنا مهمتين وننهي الدرس بإذن الله تعالى.. تابعونا

المرفق:

فاتورة ديناميكية 6.rar

السلام عليكم ورحمة الله وبركاته

اعذرونا على التأخير الشديد بسبب انشغالنا الشديد في الفترة الماضية.

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

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

في مثالنا هذا تم التعامل مع الخلية G1 كمرجع ، فعند الترحيل يتم إعطائها القيمة True وبذلك نضمن عدم تكرار الترحيل وكذلك إيقاف إضافة أصناف جديدة للفاتورة، وعند الضغط على زر فاتورة جديدة تتغير قيمة G1 إلى False ، ولا يمكن عمل فاتورة جديدة طالما أن الفاتورة فارغة.

بارك الله فيك.. من أهم الدوال المفيدة

جزاك الله خيراً.. معلومة مفيدة

4- يمنع ترحيل فاتورة فارغة.

تفضل يا أخي

تحويل عملة.rar

ما نستغنى عنك يا أبوحنين

المهمة التالية:الآن حان وقت وضع بعض القيود.. عاوزين نضع القيود التالية:

1- يمنع إصدار فاتورة جديدة مالم يتم ترحيل الفاتورة.

2- يمنع إضافة صنف إلى الفاتورة بعد ترحيلها.

3- يمنع تكرار  الفاتورة.

وتقبلوا تحياتي.

وهذا ملف على عجل

فاتورة ديناميكية4.rar

أخي أبوحنين.. ياليت تزودنا بالملف