اظهار صيغة الخلية + الجمع حسب لون الخلية

[ابو ذكري]

في الملف المرفق طلبين برجاء من الاخوة المساعدة

الاول هو معادلة الجمع حسب لون الخلية ( بطريقة اتخاذ خلية كدليل للرجوع الى لونها في عملية الجمع او بطريقة معرفة رقم اللون والجمع حسب رقم اللون )

الثاني هو ( اظهار صيغة المعادلة في الخلية بدلا من ناتج الخلية ) اظهار =sum(G19:G25) بدلا من النتيجة وهي 27

وتفضلوا بقبول التحية والاحترام

الجمع بالالوان.rar

[رجب جاويش]

تفضل أخى

بالنسبة للطلب الأول

الكود موجود فى حدث الصفحة يعمل على جمع الخلايا حسب لونها

ويعمل بمجرد كتابة أو تغيير أى رقم فى المدى D5 :D23

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cl As Range, cll As Range

Dim x As Integer, xx As Integer

'======================================================

If Not Intersect(Target, [D5:D23]) Is Nothing Then

[G5:G8].ClearContents

For Each cl In [G5:G8]

    For Each cll In [D5:D23]

	    x = cll.Interior.ColorIndex

	    xx = cl.Interior.ColorIndex

	    If x = xx Then

		    cl.Value = cl.Value + cll.Value

	    End If

    Next

Next

End If

End Sub

أما بالنسبة للطلب الثانى هذه دالة معرفة تستخرج صيغة المعادلة بدلا من الناتج

Function RG_sum(cl As Range)

RG_val = Mid$(cl.Formula, 2)

RG_sum = RG_val

End Function

وصيغة استخدامها

=RG_sum(J19)

الجمع بالالوان.rar

[محمود رواس]

الاستاذ الفاضل رجب جاويش

حاولت اضافه الكود لكن يظهر لي خطا كما هو موضح في المرفق لذى ارجوا منك شرح طريقه اضافه الكود وانا اسف جدا ارجوا ان تتحملني حيث انني في بداياتي .

وشكراً ،،،،

Book1.rar

[ابو ذكري]

سيدي الفاضل شكرا لسرعة الرد ولكن بالنسبة للطلب الثاني هناك اختصار في لوحة المفاتيح للتبديل بين الصيغة والنتيجة ولكن لا اعرف هذه المفاتيح فبرجاء من يعرف تزويدنا بالمعلومة

واشكرك جزيل الشكر على سرعة الرد مرة اخرى

[الـعيدروس]

السلام عليكم

لإظهار الصيغة

تضيف قبل علامة " = " علامة " ' " التي هيا زر حرف ط

بالحروف الانكليزيه

هكذا

'=SUM(G19:G25)

[الـعيدروس]

السلام عليكم

هذه طريقة تنفذ الطريقتين بإختصار زر معين

هذا الكود في حدث Thisworkbook

Private Sub Workbook_Open()

Application.OnKey "{F3}", "Ali"

End Sub

وهذا الكود في مودويل

Dim R As Boolean

Public Sub Ali()

A = ActiveCell.Formula

B = "'": C = ""

R = Not R

If Not B = C Then E = IIf(R, B, C)

ActiveCell.Value = E & A

End Sub

تفعل الماكرو بزر "F3"

الجمع بالالوان_Ali.rar

[رجب جاويش]

أخى الفاضل / محمود رواس

الكود يوضع فعلا فى حدث الصفحة

وهو يعمل تلقائيا عند اضافة أو تغيير أى رقم فى المدى D5 : D23

[ابو ذكري]

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

اشكر الجميع التعاون والردود

ولكن كان المطلوب الثاني هو الاهم عندي وقد وجدت الطريقة الحمد لله وللافادة اطرحها عليكم

لاظهار صيغة المعادلة في خلية والتبديل بين الصيغة والنتيجة ( على كل ورقة العمل ) فقط بالضغط على ctrl + ذ

هذا والله اعلم

وتفضلوا بقبول الحترام