طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة
السلام عليكم
اساتذة المنتدي وخبراؤه الكبار
الاخوة الافاضل
(((( تابع / الدرس الثاني ))))
اولا احب ان قدم كل الشكر والعرفان للخلوق الكريم الراائع الخبير / عبد الله باقشير ... جزاه الله خيرا ... وزاد له في علمه وبارك له فيه
افادني بهذا الكود التالي ومن شدة كرمه وجمال اخلاقة وحرصة علي افادة الجميع بكل معلومة ولكنه اراد ان اقدمه انا لترتيب الموضوع علي طريقتي ...
وهو بالطبع اقدر ومشاركته واضافته للموضوع بلا شك اضافة وشرف للموضوع ولصاحب الموضوع
اسألكم الدعاء له بظهر الغيب
======================================
مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة
وسنتعرف في هذا الدرس علي العمليات الحسابية والتفقيط داخل فورم الفاتورة وطريقة وضع اكوادها
ولكن هذه المرة وفي هذا الملحلق باستخدام (( الطريقة الباقشيرية الخبورية الرااائعة ))
والتي تختصر الكثير من الكود المستخدم سابقا وطبعا في منتهي الدقة ...
ولكن يجب الآخذ في الاعتبار انها علي اساس تسمية التكستات كما سبق شرحة في الدرس الاول
===============================
واليكم الكود بدون الشرح والشرح في الملف المرفق في محرر الاكواد وكما تعودنا تم شرح الكود سطر سطر
ارجو من الله ان اكون وفقت في شرح الكود فقد تم شرحه علي عجل حيث اردت ان يصل اليكم بمجرد وصوله لي من القدير الكبير
وان اكون عند حسن ظن استاذي العملاق الخبير / عبد الله باقشير
'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