اريد حلا عاجل جدا لهذه لمعادلة IF في هذا الملف

[اناابوحمزه]

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

اخواني اريد من يساعدني بشكل سريع وياريت اليوم او الان حيث ان العمليه سهل لمن سهلها الله عليه المطلوب في الملف المرفق وشكرا

2008.zip

[عادل حنفي]

السلام عليكم

اخي

هناك خطأ ففي معادلة الخليه ِA26 ، F28

و لمجرد معرفة مايراد ان تحققهما هاتان الخليتان

سيزول الخطأ الموجود

حيث في f28 يوجد!REF# فالسؤال لماذا حدث ذلك هل خطأ من عندك ام ماذا؟

و لمجرد حذف الــ !REF# يتم الضبط شيئا ما

اما الخليه A26 فبالنظر اليها اجد انه يجب مراجعتها وعند تعديلها من طرفي اجد ان هناك شيئ مكرر

و هذا حسب فهمي السريع

2008.zip

[اناابوحمزه]

اخي العزيز المطلوب هو حل الخليه c24 فقط بنفس الشرط الموجود في التعليق وشكرا

[اناابوحمزه]

يا اخواني عباقرة الاكسل اين انتم السؤال بسيط عليكم

خليه فيه صفر وخليه اقل من الصفر

المطلوب عمل معادلة if اذا كانت الخليه الاولى صفر والخليه الثانيه اصغر من الصفر ضع في الخليه الثالثه قيمة الخليه الولى ( هذا اذا تحقق الشرط ) واذا لم يتحقق الشرط ضع صفرا

[عادل حنفي]

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

2008.rar

[اناابوحمزه]

اخي العزيز ahh_ahh2008

اشكرك شكرا جزيلا على تفاعلك معي و اسأل الله العلي القدير ان يثيبك على ذلك .

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

2008_2.zip

[عادل حنفي]

السلام عليكم

اخي انسخ هذا الكود واعمل ميول جديد و الصقه فيه

و هو لدالة ifyes و هي من عمل الاخ العزيز ابو تامر شفاه الله

Function IFYes(ParamArray Arg_A_B()) As Variant
  Dim Max As Integer
  Dim index As Integer
  
  On Error Resume Next
  
  Max = UBound(Arg_A_B)
  For index = 0 To Max Step 2
    If Arg_A_B(index) = True Then
      IFYes = Arg_A_B(index + 1)
      Exit Function
    End If
  Next index
  If (Max + 1) Mod 2 = 1 Then IFYes = Arg_A_B(Max)
End Function

و اغلق و افتح الملف مره اخري

و اخبرني بالنتيجه

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

2008_2.zip

تم تعديل يونيو 9, 2008 بواسطه aah_aah2008