خلية لجمع قيم

اخى العزيز

يتم كتابة المعادلة الاتية فى الخلية G2 :

(SUM(A2:F2=

وهذا هو المرفق بعد التعديل عليه

ارجو ان يكون هو المطلوب

1.rar

شكرا اخي ليس هذا المطلوب

المطلوب تعريف القيم حيث ان a في اي خلية تعادل رقم 90

واذا كان داخل الخلية العنصر b يعادل الرقم 80

اي بدل ان اكتب 70 اكتب c ولكن في الخلية النهائية يظهر ناتج الجمع بشكل رقم

وهكذا ....

تحياتي

السلام عليكم ...

1. ستكون الصيغة طويلة

   =IF(OR(TRIM(A1)="A";TRIM(A1)="a"); 90; IF(OR(TRIM(A1)="B";TRIM(A1)="b");80;IF(OR(TRIM(A1)="C";TRIM(A1)="c");70;0)))
   + IF(OR(TRIM(B1)="A";TRIM(B1)="a"); 90; IF(OR(TRIM(B1)="B";TRIM(B1)="b");80;IF(OR(TRIM(B1)="C";TRIM(B1)="c");70;0)))
   + IF(OR(TRIM(C1)="A";TRIM(C1)="a"); 90; IF(OR(TRIM(C1)="B";TRIM(C1)="b");80;IF(OR(TRIM(C1)="C";TRIM(C1)="c");70;0)))
   + IF(OR(TRIM(D1)="A";TRIM(D1)="a"); 90; IF(OR(TRIM(D1)="B";TRIM(D1)="b");80;IF(OR(TRIM(D1)="C";TRIM(D1)="c");70;0)))
   + IF(OR(TRIM(E1)="A";TRIM(E1)="a"); 90; IF(OR(TRIM(E1)="B";TRIM(E1)="b");80;IF(OR(TRIM(E1)="C";TRIM(E1)="c");70;0)))
   + IF(OR(TRIM(F1)="A";TRIM(F1)="a"); 90; IF(OR(TRIM(F1)="B";TRIM(F1)="b");80;IF(OR(TRIM(F1)="C";TRIM(F1)="c");70;0)))

2. أو يمكن اختصارها بالــ VBA كمايلي :

   Public Function GetValOfCell(x As Range) As Variant
   
   If Trim(x.Value) = "a" Or Trim(x.Value) = "A" Then
   	GetValOfCell = 90
   ElseIf Trim(x.Value) = "b" Or Trim(x.Value) = "B" Then
   	GetValOfCell = 80
   ElseIf Trim(x.Value) = "c" Or Trim(x.Value) = "C" Then
   	GetValOfCell = 70
   Else
   	GetValOfCell = 0
   End If
   
   
   End Function

   ثم تكون الصيغة في الخلية

   =GetValOfCell(A1) + GetValOfCell(B1) + GetValOfCell(C1)+ GetValOfCell(D1) + GetValOfCell(E1) + GetValOfCell(F1)

Book1.rar

روووعة ما شاء الله عليك ياغالي

houssam11350_11350 كتب:

السلام عليكم ...

1. ستكون الصيغة طويلة

   =IF(OR(TRIM(A1)="A";TRIM(A1)="a"); 90; IF(OR(TRIM(A1)="B";TRIM(A1)="b");80;IF(OR(TRIM(A1)="C";TRIM(A1)="c");70;0)))
   + IF(OR(TRIM(B1)="A";TRIM(B1)="a"); 90; IF(OR(TRIM(B1)="B";TRIM(B1)="b");80;IF(OR(TRIM(B1)="C";TRIM(B1)="c");70;0)))
   + IF(OR(TRIM(C1)="A";TRIM(C1)="a"); 90; IF(OR(TRIM(C1)="B";TRIM(C1)="b");80;IF(OR(TRIM(C1)="C";TRIM(C1)="c");70;0)))
   + IF(OR(TRIM(D1)="A";TRIM(D1)="a"); 90; IF(OR(TRIM(D1)="B";TRIM(D1)="b");80;IF(OR(TRIM(D1)="C";TRIM(D1)="c");70;0)))
   + IF(OR(TRIM(E1)="A";TRIM(E1)="a"); 90; IF(OR(TRIM(E1)="B";TRIM(E1)="b");80;IF(OR(TRIM(E1)="C";TRIM(E1)="c");70;0)))
   + IF(OR(TRIM(F1)="A";TRIM(F1)="a"); 90; IF(OR(TRIM(F1)="B";TRIM(F1)="b");80;IF(OR(TRIM(F1)="C";TRIM(F1)="c");70;0)))

2. أو يمكن اختصارها بالــ VBA كمايلي :

   Public Function GetValOfCell(x As Range) As Variant
   
   If Trim(x.Value) = "a" Or Trim(x.Value) = "A" Then
   	GetValOfCell = 90
   ElseIf Trim(x.Value) = "b" Or Trim(x.Value) = "B" Then
   	GetValOfCell = 80
   ElseIf Trim(x.Value) = "c" Or Trim(x.Value) = "C" Then
   	GetValOfCell = 70
   Else
   	GetValOfCell = 0
   End If
   
   
   End Function

   ثم تكون الصيغة في الخلية

   =GetValOfCell(A1) + GetValOfCell(B1) + GetValOfCell(C1)+ GetValOfCell(D1) + GetValOfCell(E1) + GetValOfCell(F1)

السلام عليكم

اخي الكريم

اين اجد قيمة a يساوي 90 في ملف الاكسل المرفق

وهكذا لبقية الاحرف

وجزاكم الله خير

السلام عليكم ...

اقتباس

اين اجد قيمة a يساوي 90 في ملف الاكسل المرفق

وهكذا لبقية الاحرف

1. الأخ الذي طرح الموضوع يريد أن يضع ناتج جمع الخلايا من a1 و حتى f1 و يضع الناتج في g1 كما في الصورة التي ارفقها في أول مشاركة , لكن سيكون محتوى الخلايا هي أحرف A أو B أو C (على الأغلب درجات طلاب مثلا) .. بحيث أن القيمة المقابلة لــ A هي 90 و لــ B = 80 و لــ C=70 ..
2. الصيغة التي كتبتها تقوم بذلك ....حيث أن الدالة if تختبر هل القيمة هي a فتعيد لنا 90 و هكذا ..
3. للتجريب .. غير القيم المدخلة , في خلايا بحيث تضع القيم a أو b أو c وسترى الناتج ..
4. يجب تفعيل الماكرو marco حتى تعمل الصيغة التي كتبتها بالــ VBA ...

اتمنى أن أكون فهمت سؤالك بشكل صحيح ..