تبديل نص أو بيان بآخر - أرجو المساعدة

[أبو يوسف النجار]

في الملف المرفق كيف أبدل الصف 1 / 1 تصبح  2 / 1   و 1 / 2 تصبح 2 / 2 

و 2 / 1 تصبح 3 / 1 و 2 / 2 تصبح 3 / 2  - أي الصف الأول يصبح الثاني والثالث

رابع والخامس سادس  وهكذا حتى يتم زيادة سنة لكل المراحل -  أرجو الإفادة

البيانات.rar

[أبو حنــــين]

السلام عليكم

هل تقصد بهذه الطريقة

 

البيانات.rar

[أبو يوسف النجار]

10 ساعات مضت, أخوكم في الله said:

السلام عليكم

هل تقصد بهذه الطريقة

 

البيانات.rar

بارك الله فيك أخى في الله ولكن أريد الرقم الذي على اليمين هو الذي يتغير ويزيد 1

[أبو حنــــين]

'    غير هذا السطر
    .Cells(i, 5) = Left(.Cells(i, 5), 1) + 1 & Right(.Cells(i, 5), 2)
    
    
'    بهذا السطر
    .Cells(i, 5) = Left(.Cells(i, 5), 2) & Right(.Cells(i, 5), 1) + 1

 

تم تعديل أبريل 18, 2016 بواسطه أخوكم في الله

[أبو يوسف النجار]

9 ساعات مضت, أخوكم في الله said:

'    غير هذا السطر
    .Cells(i, 5) = Left(.Cells(i, 5), 1) + 1 & Right(.Cells(i, 5), 2)
    
    
'    بهذا السطر
    .Cells(i, 5) = Left(.Cells(i, 5), 2) & Right(.Cells(i, 5), 1) + 1

 

تمت التجربة وناجحة جدا - بسم الله ما شاء الله - جزاكم الله خيرا - بارك الله فيك ولك كل خير

[نوووووووور]

اخى العزيز الفاضل هل يمكن التعديل على الكود ليكون الناجح يتم تغيير صفه والراسب يبقى كما هو ؟

[أبو محمد المنار]

بطريقة معادلات الاكسل العادية بدون اكواد او برمجة

البيانات manar.rar