حمادة عمر

السلام عليكم الاخ الكريم / ابوعلى بارك الله فيك وجزاك الله خيرا

دائما مبدع استاذنا ومهندسنا العظيم استاذ / طارق محمود جزاك الله خيرا

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

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك وجعلك دائما عونا للجميع جزاك الله خيرا وتحياتي ( لفارس المنتدي النبيل ) الاستاذ القدير / ياسر الحافظ

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل (((( تابع / الدرس الثاني )))) اولا احب ان قدم كل الشكر والعرفان للخلوق الكريم الراائع الخبير / عبد الله باقشير ... جزاه الله خيرا ... وزاد له في علمه وبارك له فيه افادني بهذا الكود التالي ومن شدة كرمه وجمال اخلاقة وحرصة علي افادة الجميع بكل معلومة ولكنه اراد ان اقدمه انا لترتيب الموضوع علي طريقتي ... وهو بالطبع اقدر ومشاركته واضافته للموضوع بلا شك اضافة وشرف للموضوع ولصاحب الموضوع اسألكم الدعاء له بظهر الغيب ====================================== مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة وسنتعرف في هذا الدرس علي العمليات الحسابية والتفقيط داخل فورم الفاتورة وطريقة وضع اكوادها ولكن هذه المرة وفي هذا الملحلق باستخدام (( الطريقة الباقشيرية الخبورية الرااائعة )) والتي تختصر الكثير من الكود المستخدم سابقا وطبعا في منتهي الدقة ... ولكن يجب الآخذ في الاعتبار انها علي اساس تسمية التكستات كما سبق شرحة في الدرس الاول =============================== واليكم الكود بدون الشرح والشرح في الملف المرفق في محرر الاكواد وكما تعودنا تم شرح الكود سطر سطر ارجو من الله ان اكون وفقت في شرح الكود فقد تم شرحه علي عجل حيث اردت ان يصل اليكم بمجرد وصوله لي من القدير الكبير وان اكون عند حسن ظن استاذي العملاق الخبير / عبد الله باقشير 'UserForm_MouseMove يتم وضع الكود في حدث الفورم عند تحريك الماوس Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim r As Integer Dim iSum As Double For r = 1 To 5 Me.Controls(Cells(r, "E").Address(0, 0)) = Val(Me.Controls(Cells(r, "C").Address(0, 0))) * Val(Me.Controls(Cells(r, "D").Address(0, 0))) iSum = iSum + Val(Me.Controls(Cells(r, "E").Address(0, 0))) Next '=========== TextBox31.Value = iSum '=========== TextBox33.Value = Val(TextBox31) - Val(TextBox32) '=========== Label3 = NoToTxt(TextBox33.Value, "جنيهاً", "قرشاً") '================================================= End Sub ارجو أن وفقني الله في الشرح وان اكون عند حسن ظنكم اعتذر عن الاطاله ولكن يجب ارجاع الحق لاصحابة الحقيقيين جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها( باقشيرية )اكسيل .rar

السلام عليكم الاخ الحبيب / سعد عابد بارك الله فيك مرور كريم من اخ حبيب وكريم كريم في كلماتك وكريم في ردودك تقبل تحياتي وشكري علي ثناءك الاكثر من رااائع جزاك الله خيرا

السلام عليكم الاخ الكريم / رائد بارك الله فيك جزاك الله خيرا

السلام عليكم الاخ الكريم / salim zaid بارك الله فيك وارجو ان اكون قد وفقت في شرح الدروس السابقة جزاك الله خيرا

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

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك وجزيل شكري وامتناني لكلماتك الجميلة والمهم اخي الكريم هو تواجدك الدائم معنا كان الله في عونكم جزاك الله خيرا

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

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

السلام عليكم الاخ الحبيب / عمر أبو صهيب بارك الله فيك والله مرورك علي اي موضوع او رد لي يسعدني كثيرا جزاك الله خيرا

السلام عليكم الاستاذ الغالي / احمد فضيله بارك الله فيك مرورك يشرف الموضوع نفسه وأنت استاذ الذي علمتنا طريق الابداع فانتم تسيرون فيه دائما ونحن مازلنا في بدايته جزيل شكري لثناءك وكلماتك الرائعة ... انها شهادة جزاك الله خيرا

السلام عليكم الاخ الكريم / ابوعلى بارك الله فيك لقد تم عمل الكود بناء علي المرفق ولكني المعذرة وتعديلك في محله حيث كنت اظنه حرف i وبالنسبة للون البني المقصود قم بالدخول علي علي معاينة قبل الطباعة للصفحة واختار عرض عادي او من قائمة عرض .... عرض عادي واي تعديل معك دائما باذن الله جزاك الله خيرا

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

الاخ الكريم / حسام مصطفي بارك الله فيك جزاك الله خيرا

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

السلام عليكم الاخ الكريم / بعيد التفكير بارك الله فيك ولا داعي للاعتذار اخي الكريم المهم انك بخير .... كان الله في العون وان شاء الله سوف تستفيد من هذه الروابط جزاك الله خيرا

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

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك مرورك دائما يسعدني ويشرفني جزاك الله خيرا

الاخت الفاضلة / سما محمد بارك الله فيكي ويا للصدفة السعيدة في ان اسم ابنتي علي اسمك فهو شرف لنا شكرا جزيلا دعواتك وبارك لك وبارك عليك وعلي جميع اهلك والف مبرووك علي الترقية الي عضو * وعقبال الاعلي باذن الله جزاك الله خيرا

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

السلام عليكم الاستاذ العزيز / ياسر الحافظ ... فارس المنتدي النبيل بارك الله فيك طلباتك اوامر دائما استاذنا وان شاء الله سأقدم لك كل ما في وسعي مع علمي انكم اقدر علي ذلك فانت استاذ كبير بالفعل تحياتي لجميع الاهل ... واهل سوريا اجمعين جزاك الله خيرا

السلام عليكم الاخ الكريم / رائد بارك الله فيك تقبل تحياتي وشكري وامتناني لكلماتك الجميلة جزاك الله خيرا