تحويل المعادلات إلى كود

[محمد عبدالسلام]

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

لطلب اريد تحويل المعادلات إلى كود

وارجو ان يكون كود   يعمل بكفاءة عالية

جزاكم الله خير وبارك الله فيكم واثابكم الله الجنه ان شاء الله

=H10*F10

=SUM(I10:I60)

=H62+H61-H63

 

 

تم تعديل يوليو 13, 2016 بواسطه محمد عبدالسلام

[أبو حنــــين]

اخي محمد السلام عليكم

هذه هي الاكواد مع الاخذ بعين الاعتبار  Range("A5")  حيث تكتب مكانها اين تريد ظهور الناتج

'=H10*F10
Range("A5") = Val(Range("H10").Value) * Val(Range("F10").Value)

'**************************************************************


'=H62+H61-H63
Range("A5") = (Val(Range("H62").Value) + Val(Range("H61").Value)) - Val(Range("H63").Value)


'********************************************************************


'=SUM(I10:I60)
Range("A5") = Application.WorksheetFunction.Sum(Range("I10:I60"))

 

[محمد عبدالسلام]

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

جزاكم الله خير اخي أبو حنــــين

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

 

http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=114619

 

 

 

[أبو حنــــين]

السلام عليكم

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

7الفاتورة.rar

[ابو عبدالبارى]

اخى الكريم محمد عبدالسلام

الرسالة مفادها انك كتبت الأكواد خارج الأجراء اكتب الأكواد قبل end sub

 

[محمد عبدالسلام]

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

جزاك الله خير  اخي الكريم أبو حنــــين وارجو المعذرة في تعبك معي  وبارك الله فيك اخي ابو عبدالبارى على الاهتمامك ممكن لوسمحت تعديل الكود ليوضع في الورقة invoice وليس في يوزرفورم  ليعمل بشكل جيد وتلقائي  """""""" جزاكم الله خير

تم تعديل يوليو 14, 2016 بواسطه محمد عبدالسلام

[البحر الميت]

بارك الله لك واعانك شكرا

 

[محمد عبدالسلام]

طلب تعديل الكود ليوضع في الورقة invoice