اهداء الى المنتدى--شرح كيفية عمل فاتوره على الكسيل بدون فورم

[إبراهيم ابوليله]

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

والصلاة والسلام على اشرف خلق الله

سيدنا محمد صلى الله عليه وسلم

 

اخوانى الافاضل

تم سابقا عمل نموذج فاتوره بدون فورم

على الرابط الاتى

http://www.officena.net/ib/index.php?showtopic=50183&hl=

 

وبناء على طلب بعض الاخوه الافاضل

فى شرح كيفيه عمل ذلك

 وعزرا على التأخير فى عمل ذلك وفى تلبية رغباتهم

اليوم سوف نبدأ هذا المشروع الكبير

واوجه عناية الاخوه الافاضل ان الموضوع

ان شاء الله يكون فى غاية البساطه

 بحيث يتسنى لم لديه الخبره فى ذلك

ان يقوم بنفسه بتصميم برامجه التى يريدها

 

اتمنى من الله ان يوفقنى فى الشرح

لاننى لا اجيد هذا كثيرا

 

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

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

بارك الله فيك 
و بالتوفيق دائما

[إبراهيم ابوليله]

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

والصلاة والسلام على اشرف المرسلين

سيدنا محمد صلى الله عليه وسلم

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

وذلك نظرا لضيق الوقت

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

[صلاح الصغير]

ا / ابراهيم

سر على بركة الله

[حمادة عمر]

موضوع جميل و راااائع

وفقك الله

تقبل خالص تحياتي

[ليلى الهلالي]

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

[ابراهيم الحداد]

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

[ا بو سليمان]

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

[إبراهيم ابوليله]

بارك الله فيك 

و بالتوفيق دائما

اخى جلال

اشكرك على متابعة الموضوع

ان شاء الله يكون الموضوع جيد

تقبل تحياتى

[إبراهيم ابوليله]

ا / ابراهيم

سر على بركة الله

اخى صلاح

اشكرك على المتابعه

بارك الله فيك

تقبل تحياتى

[إبراهيم ابوليله]

موضوع جميل و راااائع

وفقك الله

تقبل خالص تحياتي

اخى واستاذنا حماده عمر

لقد اسعدنى بالفعل مرورك

انت واحد من الكثيرين الذين لهم الفضل

علينا فى تعلم لغه البرمجه

بارك الله فيك وزادك من فضله وعلمه

تقبل تحياتى

[إبراهيم ابوليله]

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

الاخت الفاضله

ان شاء الل يتم البدأ قريبا

تقبلى تحياتى

[إبراهيم ابوليله]

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

اشكرك اخى على المتابعه

واتمنى لك التوفيق

تقبل تحياتى

[إبراهيم ابوليله]

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

اشكرك اخى على المتابعه

بارك الله فيك

تقبل تحياتى

[أبو محمد عباس]

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

جزاك الله خيرا اخي العزيز ابراهيم

توكل على الله ولكم الاجر والثواب

جعل الله عملكم هذا واعمالكم السابقة واللاحقة في موازين حسناتكم

وفقكم الله لما فيه خير الاسلام والمسلمين والانسانية جمعاء

دمتم في حفظ الله ورعايته

[إبراهيم ابوليله]

 

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

جزاك الله خيرا اخي العزيز ابراهيم

توكل على الله ولكم الاجر والثواب

جعل الله عملكم هذا واعمالكم السابقة واللاحقة في موازين حسناتكم

وفقكم الله لما فيه خير الاسلام والمسلمين والانسانية جمعاء

دمتم في حفظ الله ورعايته

 

اخى ابو محمد

اشكرك على هذه الكلمات الجميله

بارك الله وفيك

وتقبل الله منك ومنا الدعاء

تقبل تحياتى

[إبراهيم ابوليله]

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

والصلاة والسلام على اشرف المرسلين

سيدنا محمد صلى الله عليه وسلم

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

وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج

وتلبية لرغباتهم

نتناول طريقه عمل النموذج

ونظرا لضيق الوقت

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

..........................................................................

الاخوه الافاضل

نبدأ اليوم فى تناول الدرس الاول

وهنا نود ان نشير الى ان الدرس الاول يحتوى على ثلاثه بنود

سوف يتم تناولها كل على حده

وبذلك يكون محتوى الدرس الاول كالأتى

الدرس الاول

اولا--تصميم الفاتوره

ثانيا--انشاء شيت به الاكواد المساعده

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

--------------------------------------------------------

الدرس الاول--( أ )

اولا--تصميم الفاتوره

هنا سوف نتاول كيفيه انشاء شكل الفاتوره وهنا لابد ان يكون لدينا فكره او تصور حول الشكل الذى ستكون عليه الفاتوره من حيث بنودها وهنا رأيت ان الفاتوره سوف تحتوى على الاتى رقم الفاتوره----------اسم العميل--------كود العميل عنوان العميل----رقم تليفون العميل تاريخ الفاتوره-------تاريخ استحقاق الفاتوره------------------مسلسل الفاتوره اسم الصنف----كود الصنف-----الوحده----الكميه----السعر----القيمه----ملاحظات هذه كانت الرؤيه لبنود الفاتوره ---يمكنك التغير فى هذه البنود سواء بالتغير  او الاضافه او الحزف على حسب ما تراه  ثم نبدأ بوضع التصور الذى سيكون عليه الشكل النهائى للفاتوره عن طريق ترتيب بنودها على حسب ما يتسنى لنا  وهنا قد رأيت ان تكون على الشكل الاتى 1-INVO-PHOT

 

الان اريد منك ان تقوم بمحاولة تصميم نفس الشكل

الموجود امامك فى الصوره استعدادا للدخول

فى الدرس التالى

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

[إبراهيم ابوليله]

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

والصلاة والسلام على اشرف المرسلين

سيدنا محمد صلى الله عليه وسلم

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

وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج

وتلبية لرغباتهم

نتناول طريقه عمل النموذج

ونظرا لضيق الوقت

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

..........................................................................

الاخوه الافاضل

نبدأ اليوم فى تناول الدرس الاول

وهنا نود ان نشير الى ان الدرس الاول يحتوى على ثلاثه بنود

سوف يتم تناولها كل على حده

وبذلك يكون محتوى الدرس الاول كالأتى

الدرس الاول

اولا--تصميم الفاتوره

ثانيا--انشاء شيت به الاكواد المساعده

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

--------------------------------------------------------

وقد تناولنا سابقا اولا--تصميم الفاتوره

 

الدرس الأول ( ب )

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

هنا سوف نقوم بانشاء شيت جديد ونسميه INVOICE DATA

فى هذا الشيت سوف يتم تجميع جميع بيانات كل فاتوره

يتم تسجيلها وذلك لسهولة الرجوع اليها

عند الحاجه اليها سواء من اجل الطباعه او من

اجل التعديل أو الحزف

ولقد رأيت ان يكون شكل الشيت كالاتى

 

 

2-INVO-PHOT

الان قم بتنفيذ

الشكل الذى تراه فى الصوره لديك

استعدادا للدرس القادم

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

[إبراهيم ابوليله]

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

والصلاة والسلام على اشرف المرسلين

سيدنا محمد صلى الله عليه وسلم

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

وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج

وتلبية لرغباتهم

نتناول طريقه عمل النموذج

ونظرا لضيق الوقت

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

..........................................................................

الاخوه الافاضل

نبدأ اليوم فى تناول الدرس الاول

وهنا نود ان نشير الى ان الدرس الاول يحتوى على ثلاثه بنود

سوف يتم تناولها كل على حده

وبذلك يكون محتوى الدرس الاول كالأتى

 

الدرس الاول

اولا--تصميم الفاتوره

ثانيا--انشاء شيت به الاكواد المساعده

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

--------------------------------------------------------

وقد تناولنا سابقا

اولا--تصميم الفاتوره

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

الدرس الاول--( ت )

ثانيا--انشاء شيت به الاكواد المساعده

الان نقوم بانشاء شيت جديد نسميه codes

فى هذا الشيت سوف يتم عمل قائمه باسماء العملاء--وقائمه بالاصناف--وقائمه بالوحدات

وقائمه بالاسعار--وذلك تسهيلا لسرعة احضار البيانات

الان نقوم بكتابة اسماء رؤوس الاعمده على حسب ما يتسنى لنا

والان نلقى نظره على شكل الشيت بعد ادخال بيانات رؤوس الاعمده

3-INVO-PHOT

الان قم بتنفيذ

الشكل الذى تراه فى الصوره لديك

استعدادا للدرس القادم

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

[إبراهيم ابوليله]

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

والصلاة والسلام على اشرف المرسلين

سيدنا محمد صلى الله عليه وسلم

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

وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج

وتلبية لرغباتهم

نتناول طريقه عمل النموذج

ونظرا لضيق الوقت

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

..........................................................................

الاخوه الافاضل

الحمد لله فقد انتهينا من شرح الدرس

الاول وهو عباره عن ثلاثة دروس تمهيديه

وهى

اولا--تصميم الفاتوره

ثانيا--انشاء شيت به الاكواد المساعده

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

---------------------------------------------------

الان نبدأ فى شرح الدرس الثانى

 

ونود ان نشير الى ان محتوى الدرس الثانى يشمل الاتى

 

الان وبعد ان انتهينا من انشاء الفاتوره وانشاء الشيتات التى سوف نتعامل معها

نبدأ بوضع الاكود الخاصه بالفاتوره

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

الاول---كود يقوم بعمل تسلسل لرقم الفاتوره

الثانى ---كود يقوم بعمل تسلسل لبيانات الفاتوره

الثالث---كود يقوم باحضار بيانات العميل عند كتابة الكود الخاص بالعميل

الرابع---كود يقوم باحضار بيانات الصنف عند كتابة الكود الخاص بالصنف

الخامس---كود يقوم بترحيل بيانات الفاتوره الى شيت invoice date

السادس---كود يقوم باحضار بيانات الفاتوره عند كتابة رقم الفاتوره 

السادس---كود يقوم بالتعديل على الفاتوره المسجله من قبل    

السابع---كود يقوم بحزف فاتوره مسجله من قبل    

الثامن---كود يقوم بطباعه فاتوره مسجله من قبل 

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

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

استاذ / ابراهيم ابو ليلة
بارك الله فيك 
 

[إبراهيم ابوليله]

اخى جلال

اشكرك على متابعة الموضوع

تقبل تحياتى

[إبراهيم ابوليله]

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

والصلاة والسلام على اشرف المرسلين

سيدنا محمد صلى الله عليه وسلم

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

وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج

وتلبية لرغباتهم

نتناول طريقه عمل النموذج

ونظرا لضيق الوقت

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

..........................................................................

الاخوه الافاضل

الحمد لله فقد انتهينا من شرح الدرس

الاول وهو عباره عن ثلاثة دروس تمهيديه

وهى

اولا--تصميم الفاتوره

ثانيا--انشاء شيت به الاكواد المساعده

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

---------------------------------------------------

الان نبدأ فى شرح الدرس الثانى

الدرس الثانى ( أ )  الكود الاول--كود يقوم بعمل تسلسل لرقم الفاتوره

بالتاكيد اننا نحتاج لمثل هذا الكود توفيرا للوقت الضائع فى ادخال الرقم بأيدينا

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

وهذا الكود سوف يكون مرتبط بالبيانات المسجله فى شيت INVOICE DATA

وبالاخص فى العمود C والخاص برقم الفاتوره حيث ان عمل الكود يكون كالاتى

انه فى حالى عدم وجود بيانات فى العمود c يتم اعطاء الخليه  الرقم 1

اما فى حالة وجود بيانات يتم اخذ اكبر رقم موجود ثم يتم اضافة 1 اليه

الان نتعرف على كيفيه كتابة الكود وطريقه عمل الكود

نقوم بانشاء موديل جديد وكتابة الكود داخلها كالاتى

وهنا نجد ان الشكل النهائى للكود يكون كالأتى

Sub INV_NO()
On Error Resume Next
Dim WS As Worksheet
Dim WS1 As Worksheet
Set WS = Worksheets("INVOICE")
Set WS1 = Worksheets("INVOICE DATA")
If WS.Range("I6").Value = "" Then
WS.Range("I6").Value = 1
Exit Sub
End If
If WS.Range("f6").Value <> "" Then
With WS1
WS.Range("I6").Value = Application.Max(WS1.[C6:C10800]) + 1
End With
End If
End Sub

واسمحو لى ايها الاخوه الافاضل

بمحاوله متواضعه منى لشرح اسطر الكود

Sub INV_NO()

كلمة sub ,وهى اختصار لكلمة Subroutine وتعنى تنفيذ مهمه محدده

هذه المهمه تم تسميتها ب INV_NO

Dim WS As Worksheet
Dim WS1 As Worksheet

هنا يتم الاعلان عن متغير اسميناه ب ws

,ومتغير اخر اسميناه ب ws1

وتم الاشاره الى كلا من المتغيرين على انهما

سيكونان عباره عن شيت اكسيل

Set WS = Worksheets("INVOICE")
Set WS1 = Worksheets("INVOICE DATA")

وهنا يتم تعريف المتغيرين وتحديد اسمهما

فنجد ان المتغير الاول ws تم نعريفه على انه الشيت المسمى ب invoice

ونجد ان المتغير الثانى ws1 تم نعريفه على انه الشيت المسمى ب invoice data

If WS.Range("f6").Value = "" Then

هنا ينم استخدام القاعده if داخل الكود

لتنفيذ شئ معين

وفى البداية نود ان نشير الى شئ معين

الا وهو كيفيه استخدام المتغير ws

فمثلا فى هذا السطر نشير الى الخليهf6فى شيت invoice

وبذلك يكون شكل الكود كألأتى

sheets("invoice").range("f6")

هكذا يتم الاشاره الى الخليه f6 فى شيت invoice

اما فى حالة استخدام الاختصار اى استخدام المتغير ws

تكون الاشاره كالأتى

ws.range("f6")

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

فى الخليه f6 فى الشيت ws اى شيت invoice

يتم تنفيذ الاتى

WS.Range("I6").Value = 1

وفى هذا السطر نجد انه سوف يتم تنفيذ أو

سوف يتم اعطاء الخليه f6

فى شيت ws اى فى شيت invoice

الرقم 1

Exit Sub
End If

كلمة Exit Sub

وظيفها انه تقوم بانهاء عمل الكود

فلا يتم تنفيذ شئ بعدها

اما كلمة End If

فهى تقوم بانهاء عمل الشرط if

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب ابراهيم جزاكم الله خيرا

بهذه الدروس سوف يرتقي منتدانا الى الصفوة الاولى في

المنتديات التعليمية في الوطن العربي حقا انه منتدى تعليمي رائع

وفيه اساتذه كبار حفظهم الله جميعا غايتهم الوحيدة توصيل المعلومة

وادراكها من قبل جميع الاعضاء  وهذا هو المسار الصحيح

وفقكم الله وزادكم من فضله علما وخيرا كثيرا

[ابا اسماعيل]

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

الاستاذ والاخ الحبيب ابراهيم جزاكم الله خيرا

بهذه الدروس