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

[فيصل الحربي]

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

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

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

المطلوب :

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

الملف المرفق

مثال 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

[عبد الفتاح كيرة]

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

باستخدام evaluate

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

[أبوعبد الله]

أخي العزيز

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

تقبل تحياتي

أبو عبدالله

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

[يحيى حسين]

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

باستخدام evaluate

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

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

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

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

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

[الحسامي]

السلام عليكم

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

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

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

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

مزدوج.rar

تم تعديل أغسطس 2, 2011 بواسطه الحسامي

[فيصل الحربي]

أخي العزيز

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

تقبل تحياتي

أبو عبدالله

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

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

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

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

===

تم تعديل أغسطس 3, 2011 بواسطه فيصل الحربي