تجاوز التسلسل حل لمشكلة أعاني منها

[khalidmoh]

عندي ملف اكسيل به سيريال 1-2-3 -.......

أريد عندما أخفي (أو أحذف )سطر معين يظل السيريال على ما هو عليه 

أي مثلا عندما أخفي السطر السابع (أو أحذفه )فإن الترتيب يبقى للسيريال هو نفسه 

أي ينتقل رقم 6 ألى السطر الثامن و لا يختلف التسلسل و يظل 1-2-3-4-5-6-7 -....

و إذا أرجعت إظهاره ( أو أضفت سطرا جديدا مكانه ) يرجع كما هو الحال عليه التسلسل و لا يختلف مما لا يضطرني إلى ترتيب التسلسل مرة أخرى في حال التعديل على الشيت و خصوصا في الملفات الكثيرة الصفوف .

ملاحظة : أرفقت مثالاً بسيطا ، يوضح ما أريد عمله 

 

PROBLEM.rar

[عبدالسلام ابوالعوافي]

ضع في الخلية  A2 الصيغة الاتية واسحب لاسفل

=AGGREGATE(3;7;$A$1:A1)

 

تم تعديل مايو 30, 2016 بواسطه عبدالسلام ابوالعوافي

[khalidmoh]

جزاك الله خيرا على الرد السريع 

للأسف هذه الدالة تعمل على 2010 و أنا عندي 2007 

سأنزل 2010 الآن و سأجربها فورا 

شكرا لك

[khalidmoh]

جزاك الله خيرا يا أخي 

تم الأمر بنجاح على الملف الصغير 

و سأطبقها على ملفاتي 

أدعو الله أن يبارك لك ما تبقى من شعبان و يبلغك رمضان بصحة و عافية 

[سليم حاصبيا]

جرب هذه المغادلة في الخلية A2 و اسحب نزولاً (تعمل على 2007)

=IF(B2<>"",SUBTOTAL(103,$B$2:B2),"")

 

تم تعديل مايو 30, 2016 بواسطه سليم حاصبيا

[khalidmoh]

شكرا لك أخي سليم ، أريد إضافة أخرى لو سمحت

في حال أردت أن لا يحسب الخلية الفارغة من التسلسل بالإضافة للصف المخفي 

مثال مرفق بسيط  : في حال كان لم يكن لأحمد تسلسل فنريد أن يقفز التسلسل منه ويتابع بشكل عادي 1 2 3 

أي يكون KHALED   1

AHMAD لاشي 

LAMEA 2

FOAD  3

و في حال أخفيت LAMEA

يكون التسلسل  KHALED   1 و يكون  FOAD  2 و ليس 3 كما هو حاصل الأن

PROBLEM.rar

[سليم حاصبيا]

المعادلة تقوم بهذا الشيء

=IF(B2<>"",SUBTOTAL(103,$B$2:B2),"") 

 

تم تعديل يونيو 5, 2016 بواسطه سليم حاصبيا

[عادل حنفي]

السلام عليكم

اخي

وبعد اذن الاخوة المشاركين

اولا تم تنفيذ المطلوب بالكود  

ثانيا لابد وان يكون شرط التسلسل عامود اخر غير عامود المسلسل كعامود الاسم مثلا

ففي حالة عدم وجود اسم او الصف تم اخفاؤه فلن يتم عمل مسلسل له

جرب الملف واتمني ان يفيدك في غملك

تحياتي

PROBLEM.rar

[سليم حاصبيا]

بعد اذن اخي عادل

جرب هذا الكود

Sub Numerate()
Dim myrg, cel As Range, k, lr As Integer

lr = Cells(Rows.Count, 2).End(3).Row
Set myrg = Range("b2:b" & lr).SpecialCells(2, 23).SpecialCells(12)

Range("a2:a" & lr).ClearContents
k = 1
    For Each cel In myrg
        cel.Offset(0, -1) = k
        k = k + 1
    Next

End Sub

 

[سليم حاصبيا]

يمكنك استعمال هذا الملف

وهذا الماكرو التابع له (اسرع من الاول)

Sub salim()
Dim lr As Integer

lr = Cells(Rows.Count, 2).End(3).Row
Range("a2:a" & lr).ClearContents
  Set myrg = Range("b2:b" & lr).SpecialCells(2, 23).SpecialCells(12).Offset(0, -1)
  myrg.Cells(1) = 1
  myrg.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _
        Step:=1, Stop:=myrg.Count
        
End Sub

 

PROBLEM salim.rar

تم تعديل يونيو 5, 2016 بواسطه سليم حاصبيا

[khalidmoh]

جزاكم الله خيرا 

أعطيتموني خيارات عديدة سأعمل على دراستها و تطبيقها على عملي 

كل عام و أنتم بخير 

شكرا مجددا