اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

=H10*F10

=SUM(I10:I60)

=H62+H61-H63

 

 

تم تعديل بواسطه محمد عبدالسلام
رابط هذا التعليق
شارك

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

هذه هي الاكواد مع الاخذ بعين الاعتبار  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

 

 

 

11.PNG

رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه محمد عبدالسلام
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information