محمود بن السماوي

شكرا لاستاذنا القدير ابو الحسن على تفاعله مع الاستفسار الذي طرحته لقد قمت بحل الموضوع بهذا الكود عند حدت التبديل في شيت الاكسل وادى الغرض المطلوب الى حد كبير Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Me.Range("E1").Formula = "=SUM(A1:D1)" Then Me.Range("E1").Value = "=SUM(A1:D1)" Else Me.Range("E1").Value = "" End If End Sub

للاسف استاذنا العزيز ابو الحسن هذه الصيغة AND(ISFORMULA(E1),EVALUATE(E1)="=SUM($A$1:$D$1)") تعمل فقط مع شيتات جوجل google sheets ولا تعمل مع Office 2016

استاذنا الكريم اعذرني أن شغلتك بس حبيت اوضح لك ان من خلال محاولتي استخدام التحقق من صحة البيانات يمكننا استبدال ISFORMULA(E1) بالصيغة التالية AND($E$1=SUM($A$1:$D$1)) وهنا سنحصر القيم المدخلة في الخلية E1 لتقبل فقط الدالة (A1:D1)SUM وتقبل أيضا صيغة الجمع A1+B1+C1+D1 وترفض كل الدوال والصيغ الأخرى فهل من طريقة لجعل الخلية E1 ترفض صيغة الجمع وتقبل فقط دآلة SUM خالص تحياتي لك

حفظك الله استاذنا لقد جربت ISFORMULA(E1)= من قبل لكنها لم تؤدي الغرض المطلوب وهو أن أجبر المستخدم على إدخال الدالة SUM في الخلية E1 لأن عندما نجعل قيم الخلية E1 من نوع ISFORMULA سيكون بإمكان المستخدم إدخال اي دالة رياضية وكتابة اي صيغة رياضية كالجمع والطرح والقسمة والضرب في الخلية E1 خالص شكري لك على تعاونك ما قصرت يعطيك الف عافية

شكرا لك استاذنا الكريم ابو الحسن على تفاعلك وسرعة ردك الكود يعمل بشكل جيد لكن لا اريد أن يعيد ضبط الخلية E1 إلى الدالة SUM اذا لم تكن القيمة المدخلة في E1 هي الدالة SUM اريد في حال قام المستخدم بإدخال قيم في الخلية E1 أن لا يقبل غير الدالة SUM وغير ذلك تبقى الخلية E1 فارغة ثانيا استاذنا الكريم هل يمكننا استخدام خاصية التحقق من صحة البيانات بدلا عن الكود ؟ مع خالص الشكر والاحترام

السلام عليكم ورحمة الله وبركاته ارجو منكم مساعدتي في الاستفسار التالي كيف يمكنني أن احدد قيمة لخلية معينة في شيت الاكسل على أن تكون تلك القيمة دالة رياضية واذا تم إدخال قيمة غير الدالة لا تقبل الخلية تلك القيمة؟ مثلا في ملف الاكسل عندي ورقة عمل اسمها Sheet1 واريد أن تكون قيمة الخلية E1 الدالة (A1:D1)SUM واذا تم إدخال قيمة عددية أو نص أو صيغة رياضية أو دالة رياضية غير دالة SUM في الخلية E1 يتم رفض تلك القيمة مع خالص شكري لكم جميعا