شرح معادلة نقل الراسبو الناحج لشيت مستقل

[خالد دسوقى]

أخى المتبولى .... كتابة الماكرو ليس بالأمر الصعب ولكن لابد من أن يكون لديك خلفية عن القيجوال بيسيك

غدآ يإذن الله تعالى سأطرح " الشيت الجامع " وهو غير محمى

فى صفحة الطباعة وعلى طباعة نتيجة الدور الثانى ( إضعط بيمين الماوس ) ثم إختر AssignMaro ثم إضغط Edit

ممكن للتبسيط على سبيل المثال
=a1
=a2
=a3


If Range("CP" & b3) = a1 Then

If Range("CP" & b3) = a2 Then

If Range("CP" & b3) = a3 Then