اذهب الي المحتوي
أوفيسنا

نموذج فاتورة على الفورم (هدية لجميع الاعضاء)


الردود الموصى بها

بسم الله الرحمان الرحيم

السلام عليكم

اعلم اعلم ان غيابي طال عنكم احبتي في الله

هي الظروف ومشاغل الحياة التي تمنعني عنكم

لاكن دائما و ابدا لن اعود بعد غيابي و انا فارغ اليدين

لا اطيل عليكم

اقدم لكم اليوم نموذج فاتورة بسيط مصمم على الاكسل

؟؟؟؟ ماذا يوجد الكثير من النماذج في المنتدى

نعم يوجد لا كن هذا النموذج مختلف جدا عما الفتوموه

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

ماذا ستستفيد من هذا البرنامج غير استعماله ؟؟ وانا اقصد الذين يريدون تطوير مهاراتهم في برمجة VBA

اولا ستتعلم كيفية استخدام المصفوفات

ثانيا ستتعلم شيئ اسمه الوراثة في البرمجة

ثالث كيفية الاستفادة من الكلاس موديل و استخدامه مع الوراثة

 

FcteurRabie.png

 

ملاحظة

لم اعمل الجزء المتعلق باضافة و تعديل الاصناف وايضا الجزء المتعلق بالعملاء

امرهم بسيط يمكن لاي عضو اضافة العملية من نفسه

لا اطيل عليكم واترككم لتجربة البرنامج

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

تحياتي للجميع

 

FcteurRabie.rar

  • Like 10
رابط هذا التعليق
شارك

بسم الله ما شاء الله

روعة أخي الحبيب شوقي كما عودتنا دائماً ..

ينقصنا وجودك بيننا .. مفتقدينك والله

عوداً حميداً وإن شاء الله لا تغيب عننا

رابط هذا التعليق
شارك

اخى واستاذنا شوقى

طبعا وبدون شك

انك استاذ كبير

ولديك الكثير والكثير

ونحن دائما ما ننتظر منك المزيد

ولكن العتاب سمه الاحباب

اعتب عليك

حيث انن كنت افضل

ان تطرح الموضوع مع الشرح

الوافى لكيفيه تنفيذ ذلك

تقبل تحياتى

رابط هذا التعليق
شارك

عمل اكثر من رائع تسلم ايدك استاذ شوقي 

واضم صوتي مع احد الاعضاء يا ريت يتم شرح للموضوع بشكل مفصل 

 

اقبل تحياتي واحترامي

رابط هذا التعليق
شارك

الاستاذ الفاضل الكبير شوقى ربيع

كل عام وحضرتك والاسرة الكريمة بخير وصحة والستر ولجميع اعضاء المنتدى

طبعاً لا تعليق على جمال الفورم وروعته واسمح لى ان اقترح بعد الاضافات للتيسير على مستخدميه

اضافة مسميات على عمليات الفورم بمعنى زرار حفظ الفاتورة يكتب عليه حفظ الفاتورة ـ تعديل الفاتورة - استدعاء فاتورة والتعديل عليها وهكذا

ثانياً ان تظهر الاسماء العملاء والاصناف عن طريق قائمة منسدلة للاختيار منها بدل الكتابة

ثالثاً اضافة امكانية عرض الفواتير المنحصرة بين فترة معينة يقوم بتحديدها المستخدم وكذلك عرض فواتير عميل معين يتم اختياره وكذلك حصر الفواتير التى تحتوى على صنف معين

رابعاً لا تنسانا فى شرحك لكود الفورم

تقبل منى كل الحب التقدير لشخصكم الكريم وكل عام وانتم بخير وصحة :fff: :fff: :fff:

رابط هذا التعليق
شارك

بسم الله ما شاء الله

روعة أخي الحبيب شوقي كما عودتنا دائماً ..

ينقصنا وجودك بيننا .. مفتقدينك والله

عوداً حميداً وإن شاء الله لا تغيب عننا

جزاك الله خير اخي ياسر

تقبل مني وافر الاحترام والتقدير

رابط هذا التعليق
شارك

اخى واستاذنا شوقى

طبعا وبدون شك

انك استاذ كبير

ولديك الكثير والكثير

ونحن دائما ما ننتظر منك المزيد

ولكن العتاب سمه الاحباب

اعتب عليك

حيث انن كنت افضل

ان تطرح الموضوع مع الشرح

الوافى لكيفيه تنفيذ ذلك

تقبل تحياتى

شكرا جزيلا على عباراتك الجميلة اخي ابراهيم

الموضوع يحتاج الى اكثر من شرح لانه يعتمد على عدت اساليب وكل جزء محتاج لدروس خاصة

انما طرحة الموضوع لتكون هناك فكرة للاعضاء عن التقنيات المتقدمة في برمجة vba

تحياتي لك

رابط هذا التعليق
شارك

عمل اكثر من رائع تسلم ايدك استاذ شوقي 

واضم صوتي مع احد الاعضاء يا ريت يتم شرح للموضوع بشكل مفصل 

 

اقبل تحياتي واحترامي

شكرا لمرورك العطر اخي طلعت

كما ذكرة الموضوع محتاج الى اكثر من شرح

تحياتي لك

رابط هذا التعليق
شارك

الاستاذ الفاضل الكبير شوقى ربيع

كل عام وحضرتك والاسرة الكريمة بخير وصحة والستر ولجميع اعضاء المنتدى

طبعاً لا تعليق على جمال الفورم وروعته واسمح لى ان اقترح بعد الاضافات للتيسير على مستخدميه

اضافة مسميات على عمليات الفورم بمعنى زرار حفظ الفاتورة يكتب عليه حفظ الفاتورة ـ تعديل الفاتورة - استدعاء فاتورة والتعديل عليها وهكذا

ثانياً ان تظهر الاسماء العملاء والاصناف عن طريق قائمة منسدلة للاختيار منها بدل الكتابة

ثالثاً اضافة امكانية عرض الفواتير المنحصرة بين فترة معينة يقوم بتحديدها المستخدم وكذلك عرض فواتير عميل معين يتم اختياره وكذلك حصر الفواتير التى تحتوى على صنف معين

رابعاً لا تنسانا فى شرحك لكود الفورم

تقبل منى كل الحب التقدير لشخصكم الكريم وكل عام وانتم بخير وصحة :fff: :fff: :fff:

اشكر اهتمامك اخي عادل

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

فلو تتمعن مع الاكواد ستجد انها مختزلة الى درجة كبيرة جدا فهذه الطريقة تغنينا عن اعادت كتابة الاف الاسطر من الاكواد

اما بخصوص شرح الاكواد

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

تحياتي لك

رابط هذا التعليق
شارك

ملاحظة

يوجد اختصارين لاضافة اسطر في اليست و للحذف

Alt+A لاضافة سطر جديد

Alt+D لحذف السطر المفعل

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

تحياتي للجميع

رابط هذا التعليق
شارك

باااااااااااااااااارك الله فيك اخي شوقي  

 

والغيام  مهما كان  غير مسموووووووووح  ( يكفي  دقيقة    تطل على الموقع  وتطمنا انك بخير  وبصحة وسلامة )   ولو مره   كل ثلاثة ايام  اقل شي 

 

 

انت رائع ومميز  

 

نسال الله لك التوفيق والسداد

رابط هذا التعليق
شارك

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


اخى واستاذنا شوقى طبعا وبدون شك

انك استاذ كبير

ولديك الكثير والكثير

ونحن دائما ما ننتظر منك المزيد

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

تم تعديل بواسطه ابا اسماعيل
رابط هذا التعليق
شارك

 

باااااااااااااااااارك الله فيك اخي شوقي  

 

والغيام  مهما كان  غير مسموووووووووح  ( يكفي  دقيقة    تطل على الموقع  وتطمنا انك بخير  وبصحة وسلامة )   ولو مره   كل ثلاثة ايام  اقل شي 

 

 

انت رائع ومميز  

 

نسال الله لك التوفيق والسداد

 

شكرا جزيلا اخي ابوسليمان على مرورك الطيب وعبراتك الجميلة

تحياتي لك

رابط هذا التعليق
شارك

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

اخى واستاذنا شوقى طبعا وبدون شك

انك استاذ كبير

ولديك الكثير والكثير

ونحن دائما ما ننتظر منك المزيد

لو  من ممكن عمل تعديل

 لاضافة سطر جديد تلقائي عند اختيار الصنف بي يطهار سطر

شكرا جزيلا اخي ابا اسمعيل لعباراتك الجميلة

لاضافة سطر جديد تلقائيا فقط اضف هذا الكود

If IDRw = RwDt Then Call AddCont

في الكلاس موديل المسمى ClsFct

اخر الكود Private Sub MesComboBox_Change()

فيصبح الكود على الشكل

Private Sub MesComboBox_Change()
    
    If Len(MesComboBox.Name) = 8 Then RwDt = Left(MesComboBox.Name, 1)
    If Len(MesComboBox.Name) = 9 Then RwDt = Left(MesComboBox.Name, 2)
    If Len(MesComboBox.Name) = 10 Then RwDt = Left(MesComboBox.Name, 3)
    
Call Shrch(MesComboBox.Text, MesComboBox.Name)
Call SumTotal
If IDRw = RwDt Then Call AddCont
End Sub

تحياتي لك

رابط هذا التعليق
شارك

استاذى الحبيب

شوقى ربيع

يعجز اللسان عن التعبير بإنبهارى بهذا العمل فأنا أحسست انى امام اوراكل وليس اكسيل

جزاكم الله خيرا وازدكم علما ونفع بك وفى انتظار ابداعات اخرى 

(أن شاءء الله بفند كل سطر وكل كلمة وكل حرف لاستفيد من هذا الملف الموسوعه فى عالم البرمجه الاكسليه ) 

تقبل منى وافرا احترام والتقدير

رابط هذا التعليق
شارك

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

اخى واستاذنا شوقى شكرا جزيلا على الكود لاضافة سطر جديد تلقائيا

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

تم تعديل بواسطه ابا اسماعيل
رابط هذا التعليق
شارك

اخى شوقى ربيع

كلمة روعة كلمة صغيرة يا كبيييييييييييييييير

روعههههههههههههههههههههههههه ككل ابداعاتك وكتاباتك الله

بارك الله فيك

  • Like 1
رابط هذا التعليق
شارك

 

استاذى الحبيب

شوقى ربيع

يعجز اللسان عن التعبير بإنبهارى بهذا العمل فأنا أحسست انى امام اوراكل وليس اكسيل

جزاكم الله خيرا وازدكم علما ونفع بك وفى انتظار ابداعات اخرى 

(أن شاءء الله بفند كل سطر وكل كلمة وكل حرف لاستفيد من هذا الملف الموسوعه فى عالم البرمجه الاكسليه ) 

تقبل منى وافرا احترام والتقدير

 

اخي الصقر حفضكم الله

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

تحياتي لك

رابط هذا التعليق
شارك

اخى شوقى ربيع

كلمة روعة كلمة صغيرة يا كبيييييييييييييييير

روعههههههههههههههههههههههههه ككل ابداعاتك وكتاباتك الله

بارك الله فيك

جازاك الله خيرا اخي سعد وشكرا جزيلا لكلماتك الجميلة

تياتي لك

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information