اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الزباري

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    462

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    11

 نوع المحتوي 

كل منشورات العضو الزباري

  1. الزباري
    المهمة التالية: عند الضغط على + يتم فتح نموذج بحث عن الأصناف يتم من خلاله إدراج الصنف إلى الفاتورة.. بانتظار مشاركاتكم.
  2. الزباري
    إبراهيم ابوليله سنخصص المهمة الأخيرة على طلبك.. تحياتي.
  3. الزباري
    الإجابة في المرفق التالي: فاتورة ديناميكية 7.rar
  4. الزباري
    قمة الإبداع والديناميكية.. جزلك الله خيراً.
  5. الزباري
    تم التعديل بطريقة الأستاذ سليم حاصبيا sub total loop.rar وأتمنى أن يوافق صوابكم
  6. الزباري
    جاري التجربة وسنوافيكم بالنتيجة
  7. الزباري
    المهمة التالية: إضافة زر طباعة أسفل الأزرار الموجودة، فعند الضغط عليه يقوم بتحديد الفاتورة كنطاق للطباعة.
  8. الزباري
    أخي سليم حاولت أن أطبق الكود باستخدام for next إلا أنه واجهتني مشكلة التعرف على آخر السطر، حيث أنه يتغير عند إدراج سطر جديد، فمثلا لو كان لدينا جدول يتكون من 100 سطر فإن الكود يتوقف عند السطر 100، لكن فعلياً وبعد إضافة سطر المجموع وسطر العنوان فيجب أن يكون نهاية السطر هو 120. وتقبل تحياتي.
  9. الزباري
    أخي سليم حاصبيا عين الصواب، والصواب أنت.. أكواد ولا أروع. تحياتي
  10. الزباري
    أخي سعد عابد بارك الله فيك وأثابك من فضله
  11. الزباري
    منوّر يا أباحمزة تحياتي
  12. الزباري
    جلال الجمال_ابو أدهم وينور على قلبك تحياتي
  13. الزباري
    مشاركتي في نفس الموضوع تفضل
  14. الزباري
    أخواني في المنتدى.. محاولة بسيطة مني في تبسيط عمل الكود وجعله مرن مع خيار التراجع. إليكم المرفق: sub total loop.rar
  15. الزباري
    تبقى لنا مهمتين وننهي الدرس بإذن الله تعالى.. تابعونا
  16. الزباري
    المرفق: فاتورة ديناميكية 6.rar
  17. الزباري
    السلام عليكم ورحمة الله وبركاته اعذرونا على التأخير الشديد بسبب انشغالنا الشديد في الفترة الماضية. ولقد افتقدنا صديق البرمجة الأخ أبوحنين عسى أن يكون بصحة وعافية وفضل من الله. من خلال بحثي في وضع شروط لقاعدة بيانات كبيرة، وجدت أن أنسب الطرق وأسهلها هو التعامل مع خواص الزر دون التطرق إلى قاعدة البيانات، مما يجنبك التعامل مع كودات معقدة للتطابق مع الخلايا، فمثلا عند ترحيل أي فاتورة يتم تجميد الزر أو إعطائه لون آخر، فبدلاً من البحث عما إذا تم ترحيل الفاتورة أم لا يتم دراسة حالة الزر كمعيار للترحيل. في مثالنا هذا تم التعامل مع الخلية G1 كمرجع ، فعند الترحيل يتم إعطائها القيمة True وبذلك نضمن عدم تكرار الترحيل وكذلك إيقاف إضافة أصناف جديدة للفاتورة، وعند الضغط على زر فاتورة جديدة تتغير قيمة G1 إلى False ، ولا يمكن عمل فاتورة جديدة طالما أن الفاتورة فارغة.
  18. الزباري
    بارك الله فيك.. من أهم الدوال المفيدة
  19. الزباري
    جزاك الله خيراً.. معلومة مفيدة
  20. الزباري
    4- يمنع ترحيل فاتورة فارغة.
  21. الزباري
    تفضل يا أخي تحويل عملة.rar
  22. الزباري
    ما نستغنى عنك يا أبوحنين المهمة التالية:الآن حان وقت وضع بعض القيود.. عاوزين نضع القيود التالية: 1- يمنع إصدار فاتورة جديدة مالم يتم ترحيل الفاتورة. 2- يمنع إضافة صنف إلى الفاتورة بعد ترحيلها. 3- يمنع تكرار الفاتورة. وتقبلوا تحياتي.
  23. الزباري
    وهذا ملف على عجل فاتورة ديناميكية4.rar أخي أبوحنين.. ياليت تزودنا بالملف
  24. الزباري
    وقبل أن أنتقل إلى المهمة التالية أطلب من سيادتكم بأن نقسم الترحيل إلى شيتين (ورقتين): الأول كالتالي: والثاني كالتالي: والهدف من ذلك هو منع تكرار البيانات مما يساهم في تقليل حجم الملف ، بالإضافة إلى سهولة التعامل معه في عمل التقارير ، وحتى لا يؤدي إلى تداخل البيانات في حال وجود أخطاء غير متوقعة.
  25. الزباري
    بصراحة انت تحفة.. ربنا يديم نعمه عليك. أنا استخدمت الكود التالي لترحيل محتوى الفاتورة فقط: Dim i As Integer i = 1 Do i = i + 1 Loop Until Sheets("sheet2").Cells(i, 1).Value = "" Sheets("sheet1").Range("a9").Select Do Until ActiveCell.Value = "" Sheets("sheet1").Range(ActiveCell, ActiveCell.End(xlToRight)).Copy Sheets("sheet2").Cells(i, 1) ActiveCell.Offset(1, 0).Select i = i + 1 Loop
×
×
  • اضف...

Important Information

  I accept