اذهب الي المحتوي
أوفيسنا

مطلوب عمليات حسابية بالنقر المزدوج على الخلية


إذهب إلى أفضل إجابة Solved by أبوعبد الله,

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

بسم الله الرحمن الرحيم

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

مبرووك عليكم الشهر الفضيل - جعلنا الله و اياكم من صوامه و قوامه

المطلوب :

لدي شيت فيها جدول المرتبات والمطلوب عند النقر المزدوج على أحد خلايا جدول المرتب ان يقوم بعمليات رياضية ( ضرب / طرح / جمع / قسمه ) لعدة خلايا في نفس الصف الذي تم النقر المزدوج عليه ثم يضع النتيجة في خليه محدده

الملف المرفق

مثال 1

اذا تم النقر المزدوج على الخلية D2 يقوم الكود بعمل التالي

يجمع قيمة الخلية D2 مع الخلية E2 ثم يقوم بضرب الخلية D2 في الخلية F2 ثم يطرح ناتج الضرب من المجموع ثم يضع ناتج العملية في الخلية C8



مثال 2

اذا تم النقر المزدوج على الخلية C3 يقوم الكود بعمل التالي

يجمع قيمة الخلية C3 مع الخلية E3 ثم يقوم بضرب الخلية C3 في الخلية F3 ثم يطرح ناتج الضرب من المجموع ثم يضع ناتج العملية في الخلية C8

شاكرا لكم و مقدرا تعبكم


Book1.rar

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

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

جرب هذا الكودد أخي



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Target.Address(0, 0) = "D2" Then

Range("c8").Value = Application.Evaluate("=(D2 * f2) - (D2 + E2)")

ElseIf Target.Address(0, 0) = "C3" Then

Range("c8").Value = Application.Evaluate("=(c3*f3)-(C3+E3)")

End If

End Sub

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

  • أفضل إجابة

أخي العزيز

إلى جانب ما تفضل به أخي العزيز يحيى حسين هذا حل آخر لإثراء الموضوع أرجو أن يناسب طلبك وقد تم تعميم الفكرة على نطاق العمود B أيضاً.

تقبل تحياتي

أبو عبدالله

عملية حسابية مع نقرة ماوس مزدوجة.rar

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

ممتاز أخانا يحيى هذا الكود

باستخدام evaluate

لحساب الناتج بدون ظهور المعادلة

اخي الحبيب كيماس

الفضل لله ثم لك

لقد نسيتها و انت من ذكرني بها في موضوع تحويل المعادلات الى قيم

دمت في حفظ الله

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

السلام عليكم

بارك الله فيكم اخي ابو حسين واخي ابو عبدالله واخي ابو عمر

ولتعدد الحلول ونفس مبدأ كود اخي ابو عبدالله يمكن استخدام الكود التالي حسبي فهمي للموضوع

If Not Intersect(Target, [B2:d4]) Is Nothing Then [c8] = _

(Target + Cells(Target.Row, "e")) - (Target * Cells(Target.Row, "f"))

مزدوج.rar

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

أخي العزيز

إلى جانب ما تفضل به أخي العزيز يحيى حسين هذا حل آخر لإثراء الموضوع أرجو أن يناسب طلبك وقد تم تعميم الفكرة على نطاق العمود B أيضاً.

تقبل تحياتي

أبو عبدالله

بارك الله بالجميع و كتب لهم الأجر في هذا الشهر الفضيل

جربت كود الأخ ابو عبدالله و رأيته مطابق لما أردت 100 % فجزاه الله خيرا

كود الأخ الحسامي يتميز بصغر الكود مما سيساعد على تطبيقه على خلايا كثيرة دفعه واحده فجزاه الله خيرا

أكرر شكري للجميع

===

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information