إبراهيم ابوليله قام بنشر ديسمبر 1, 2014 مشاركة قام بنشر ديسمبر 1, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على اشرف خلق الله سيدنا محمد صلى الله عليه وسلم اخوانى الافاضل تم سابقا عمل نموذج فاتوره بدون فورم على الرابط الاتى http://www.officena.net/ib/index.php?showtopic=50183&hl= وبناء على طلب بعض الاخوه الافاضل فى شرح كيفيه عمل ذلك وعزرا على التأخير فى عمل ذلك وفى تلبية رغباتهم اليوم سوف نبدأ هذا المشروع الكبير واوجه عناية الاخوه الافاضل ان الموضوع ان شاء الله يكون فى غاية البساطه بحيث يتسنى لم لديه الخبره فى ذلك ان يقوم بنفسه بتصميم برامجه التى يريدها اتمنى من الله ان يوفقنى فى الشرح لاننى لا اجيد هذا كثيرا تقبلوا تحياتى 2 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر ديسمبر 1, 2014 مشاركة قام بنشر ديسمبر 1, 2014 بارك الله فيك و بالتوفيق دائما رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 1, 2014 الكاتب مشاركة قام بنشر ديسمبر 1, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله وذلك نظرا لضيق الوقت تقبلوا تحياتى رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر ديسمبر 1, 2014 مشاركة قام بنشر ديسمبر 1, 2014 ا / ابراهيم سر على بركة الله رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر ديسمبر 1, 2014 مشاركة قام بنشر ديسمبر 1, 2014 موضوع جميل و راااائع وفقك الله تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
ليلى الهلالي قام بنشر ديسمبر 1, 2014 مشاركة قام بنشر ديسمبر 1, 2014 بارك الله فيك أستاذي وجعلها في ميزان حسناتك. بسم الله وتوكل على الله. رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 1, 2014 مشاركة قام بنشر ديسمبر 1, 2014 بارك الله فيك وجعله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر ديسمبر 2, 2014 مشاركة قام بنشر ديسمبر 2, 2014 بارك الله فيك اخي الفااااااااااضل وننتظر مزيد من الابداع رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 بارك الله فيك و بالتوفيق دائما اخى جلال اشكرك على متابعة الموضوع ان شاء الله يكون الموضوع جيد تقبل تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 ا / ابراهيم سر على بركة الله اخى صلاح اشكرك على المتابعه بارك الله فيك تقبل تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 موضوع جميل و راااائع وفقك الله تقبل خالص تحياتي اخى واستاذنا حماده عمر لقد اسعدنى بالفعل مرورك انت واحد من الكثيرين الذين لهم الفضل علينا فى تعلم لغه البرمجه بارك الله فيك وزادك من فضله وعلمه تقبل تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 بارك الله فيك أستاذي وجعلها في ميزان حسناتك. بسم الله وتوكل على الله. الاخت الفاضله ان شاء الل يتم البدأ قريبا تقبلى تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 بارك الله فيك وجعله فى ميزان حسناتك اشكرك اخى على المتابعه واتمنى لك التوفيق تقبل تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 بارك الله فيك اخي الفااااااااااضل وننتظر مزيد من الابداع اشكرك اخى على المتابعه بارك الله فيك تقبل تحياتى رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 2, 2014 مشاركة قام بنشر ديسمبر 2, 2014 السلام عليكم ورحمة الله وبركاته جزاك الله خيرا اخي العزيز ابراهيم توكل على الله ولكم الاجر والثواب جعل الله عملكم هذا واعمالكم السابقة واللاحقة في موازين حسناتكم وفقكم الله لما فيه خير الاسلام والمسلمين والانسانية جمعاء دمتم في حفظ الله ورعايته رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 السلام عليكم ورحمة الله وبركاته جزاك الله خيرا اخي العزيز ابراهيم توكل على الله ولكم الاجر والثواب جعل الله عملكم هذا واعمالكم السابقة واللاحقة في موازين حسناتكم وفقكم الله لما فيه خير الاسلام والمسلمين والانسانية جمعاء دمتم في حفظ الله ورعايته اخى ابو محمد اشكرك على هذه الكلمات الجميله بارك الله وفيك وتقبل الله منك ومنا الدعاء تقبل تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 2, 2014 الكاتب مشاركة قام بنشر ديسمبر 2, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم لقد قدمت سابقا نموذج فاتوره على الاكسيل بدون فورم وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج وتلبية لرغباتهم نتناول طريقه عمل النموذج ونظرا لضيق الوقت ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله .......................................................................... الاخوه الافاضل نبدأ اليوم فى تناول الدرس الاول وهنا نود ان نشير الى ان الدرس الاول يحتوى على ثلاثه بنود سوف يتم تناولها كل على حده وبذلك يكون محتوى الدرس الاول كالأتى الدرس الاول اولا--تصميم الفاتوره ثانيا--انشاء شيت به الاكواد المساعده ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله -------------------------------------------------------- الدرس الاول--( أ ) اولا--تصميم الفاتوره هنا سوف نتاول كيفيه انشاء شكل الفاتوره وهنا لابد ان يكون لدينا فكره او تصور حول الشكل الذى ستكون عليه الفاتوره من حيث بنودها وهنا رأيت ان الفاتوره سوف تحتوى على الاتى رقم الفاتوره----------اسم العميل--------كود العميل عنوان العميل----رقم تليفون العميل تاريخ الفاتوره-------تاريخ استحقاق الفاتوره------------------مسلسل الفاتوره اسم الصنف----كود الصنف-----الوحده----الكميه----السعر----القيمه----ملاحظات هذه كانت الرؤيه لبنود الفاتوره ---يمكنك التغير فى هذه البنود سواء بالتغير او الاضافه او الحزف على حسب ما تراه ثم نبدأ بوضع التصور الذى سيكون عليه الشكل النهائى للفاتوره عن طريق ترتيب بنودها على حسب ما يتسنى لنا وهنا قد رأيت ان تكون على الشكل الاتى 1-INVO-PHOT الان اريد منك ان تقوم بمحاولة تصميم نفس الشكل الموجود امامك فى الصوره استعدادا للدخول فى الدرس التالى تقبلوا تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 3, 2014 الكاتب مشاركة قام بنشر ديسمبر 3, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم لقد قدمت سابقا نموذج فاتوره على الاكسيل بدون فورم وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج وتلبية لرغباتهم نتناول طريقه عمل النموذج ونظرا لضيق الوقت ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله .......................................................................... الاخوه الافاضل نبدأ اليوم فى تناول الدرس الاول وهنا نود ان نشير الى ان الدرس الاول يحتوى على ثلاثه بنود سوف يتم تناولها كل على حده وبذلك يكون محتوى الدرس الاول كالأتى الدرس الاول اولا--تصميم الفاتوره ثانيا--انشاء شيت به الاكواد المساعده ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله -------------------------------------------------------- وقد تناولنا سابقا اولا--تصميم الفاتوره الدرس الأول ( ب ) ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله هنا سوف نقوم بانشاء شيت جديد ونسميه INVOICE DATA فى هذا الشيت سوف يتم تجميع جميع بيانات كل فاتوره يتم تسجيلها وذلك لسهولة الرجوع اليها عند الحاجه اليها سواء من اجل الطباعه او من اجل التعديل أو الحزف ولقد رأيت ان يكون شكل الشيت كالاتى 2-INVO-PHOT الان قم بتنفيذ الشكل الذى تراه فى الصوره لديك استعدادا للدرس القادم تقبلوا تحياتى 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 3, 2014 الكاتب مشاركة قام بنشر ديسمبر 3, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم لقد قدمت سابقا نموذج فاتوره على الاكسيل بدون فورم وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج وتلبية لرغباتهم نتناول طريقه عمل النموذج ونظرا لضيق الوقت ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله .......................................................................... الاخوه الافاضل نبدأ اليوم فى تناول الدرس الاول وهنا نود ان نشير الى ان الدرس الاول يحتوى على ثلاثه بنود سوف يتم تناولها كل على حده وبذلك يكون محتوى الدرس الاول كالأتى الدرس الاول اولا--تصميم الفاتوره ثانيا--انشاء شيت به الاكواد المساعده ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله -------------------------------------------------------- وقد تناولنا سابقا اولا--تصميم الفاتوره ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله الدرس الاول--( ت ) ثانيا--انشاء شيت به الاكواد المساعده الان نقوم بانشاء شيت جديد نسميه codes فى هذا الشيت سوف يتم عمل قائمه باسماء العملاء--وقائمه بالاصناف--وقائمه بالوحدات وقائمه بالاسعار--وذلك تسهيلا لسرعة احضار البيانات الان نقوم بكتابة اسماء رؤوس الاعمده على حسب ما يتسنى لنا والان نلقى نظره على شكل الشيت بعد ادخال بيانات رؤوس الاعمده 3-INVO-PHOT الان قم بتنفيذ الشكل الذى تراه فى الصوره لديك استعدادا للدرس القادم تقبلوا تحياتى 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 4, 2014 الكاتب مشاركة قام بنشر ديسمبر 4, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم لقد قدمت سابقا نموذج فاتوره على الاكسيل بدون فورم وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج وتلبية لرغباتهم نتناول طريقه عمل النموذج ونظرا لضيق الوقت ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله .......................................................................... الاخوه الافاضل الحمد لله فقد انتهينا من شرح الدرس الاول وهو عباره عن ثلاثة دروس تمهيديه وهى اولا--تصميم الفاتوره ثانيا--انشاء شيت به الاكواد المساعده ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله --------------------------------------------------- الان نبدأ فى شرح الدرس الثانى ونود ان نشير الى ان محتوى الدرس الثانى يشمل الاتى الان وبعد ان انتهينا من انشاء الفاتوره وانشاء الشيتات التى سوف نتعامل معها نبدأ بوضع الاكود الخاصه بالفاتوره وبالنظر الى الفاتوره سنجد اننا نحتاج فى البدايه نحتاج الى مجموعه من الاكواد الاول---كود يقوم بعمل تسلسل لرقم الفاتوره الثانى ---كود يقوم بعمل تسلسل لبيانات الفاتوره الثالث---كود يقوم باحضار بيانات العميل عند كتابة الكود الخاص بالعميل الرابع---كود يقوم باحضار بيانات الصنف عند كتابة الكود الخاص بالصنف الخامس---كود يقوم بترحيل بيانات الفاتوره الى شيت invoice date السادس---كود يقوم باحضار بيانات الفاتوره عند كتابة رقم الفاتوره السادس---كود يقوم بالتعديل على الفاتوره المسجله من قبل السابع---كود يقوم بحزف فاتوره مسجله من قبل الثامن---كود يقوم بطباعه فاتوره مسجله من قبل تقبلوا تحياتى رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر ديسمبر 4, 2014 مشاركة قام بنشر ديسمبر 4, 2014 استاذ / ابراهيم ابو ليلةبارك الله فيك رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 5, 2014 الكاتب مشاركة قام بنشر ديسمبر 5, 2014 اخى جلال اشكرك على متابعة الموضوع تقبل تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر ديسمبر 5, 2014 الكاتب مشاركة قام بنشر ديسمبر 5, 2014 بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم لقد قدمت سابقا نموذج فاتوره على الاكسيل بدون فورم وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج وتلبية لرغباتهم نتناول طريقه عمل النموذج ونظرا لضيق الوقت ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله .......................................................................... الاخوه الافاضل الحمد لله فقد انتهينا من شرح الدرس الاول وهو عباره عن ثلاثة دروس تمهيديه وهى اولا--تصميم الفاتوره ثانيا--انشاء شيت به الاكواد المساعده ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله --------------------------------------------------- الان نبدأ فى شرح الدرس الثانى الدرس الثانى ( أ ) الكود الاول--كود يقوم بعمل تسلسل لرقم الفاتوره بالتاكيد اننا نحتاج لمثل هذا الكود توفيرا للوقت الضائع فى ادخال الرقم بأيدينا وظيفة الكود انه بعد الانتهاء من الفاتوره وادخال بياناتها يقوم الكود تلقائيا بوضع رقم جديد للفاتوره وهذا الكود سوف يكون مرتبط بالبيانات المسجله فى شيت 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 2 رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ابراهيم جزاكم الله خيرا بهذه الدروس سوف يرتقي منتدانا الى الصفوة الاولى في المنتديات التعليمية في الوطن العربي حقا انه منتدى تعليمي رائع وفيه اساتذه كبار حفظهم الله جميعا غايتهم الوحيدة توصيل المعلومة وادراكها من قبل جميع الاعضاء وهذا هو المسار الصحيح وفقكم الله وزادكم من فضله علما وخيرا كثيرا رابط هذا التعليق شارك More sharing options...
ابا اسماعيل قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 لسلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ابراهيم جزاكم الله خيرا بهذه الدروس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.