commandos1975 قام بنشر أغسطس 24, 2019 مشاركة قام بنشر أغسطس 24, 2019 كود يقوم بتغير الدرجه اذا توافر شرطان في الملف المرفق aa.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 24, 2019 مشاركة قام بنشر أغسطس 24, 2019 انسخ هذه المعادلة الى الخلية G4 واسحب نزولاً =IF(AND(E4=$E$2,C4>=$C$2),30,E4) اذا لم تعمل معك المعادلة استبدل الفاصلة بفاصلة منقوطة لتبدو هكذا =IF(AND(E4=$E$2;C4>=$C$2);30;E4) رابط هذا التعليق شارك More sharing options...
commandos1975 قام بنشر أغسطس 24, 2019 الكاتب مشاركة قام بنشر أغسطس 24, 2019 (معدل) الاخ الفاضل تعير الدرجة مكانها في نفس العمود بماكرو تم تعديل أغسطس 24, 2019 بواسطه commandos1975 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 24, 2019 مشاركة قام بنشر أغسطس 24, 2019 هذا الكود يقوم بذلك Option Explicit Sub calcul() Dim lr% With Sheets("ورقة1") lr = Cells(Rows.Count, "E").End(3).Row .Range("H4:H" & lr).Formula = _ "=IF(AND(E4=$E$2,C4>=$C$2),30,E4)" .Range("H4:H" & lr).Copy .Range("E4").PasteSpecial (xlPasteValues) Application.CutCopyMode = False .Range("H4:H" & lr).Clear .Range("E4").Select End With End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.