khalidmoh قام بنشر مايو 30, 2016 مشاركة قام بنشر مايو 30, 2016 عندي ملف اكسيل به سيريال 1-2-3 -....... أريد عندما أخفي (أو أحذف )سطر معين يظل السيريال على ما هو عليه أي مثلا عندما أخفي السطر السابع (أو أحذفه )فإن الترتيب يبقى للسيريال هو نفسه أي ينتقل رقم 6 ألى السطر الثامن و لا يختلف التسلسل و يظل 1-2-3-4-5-6-7 -.... و إذا أرجعت إظهاره ( أو أضفت سطرا جديدا مكانه ) يرجع كما هو الحال عليه التسلسل و لا يختلف مما لا يضطرني إلى ترتيب التسلسل مرة أخرى في حال التعديل على الشيت و خصوصا في الملفات الكثيرة الصفوف . ملاحظة : أرفقت مثالاً بسيطا ، يوضح ما أريد عمله PROBLEM.rar رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر مايو 30, 2016 مشاركة قام بنشر مايو 30, 2016 (معدل) ضع في الخلية A2 الصيغة الاتية واسحب لاسفل =AGGREGATE(3;7;$A$1:A1) تم تعديل مايو 30, 2016 بواسطه عبدالسلام ابوالعوافي 2 رابط هذا التعليق شارك More sharing options...
khalidmoh قام بنشر مايو 30, 2016 الكاتب مشاركة قام بنشر مايو 30, 2016 جزاك الله خيرا على الرد السريع للأسف هذه الدالة تعمل على 2010 و أنا عندي 2007 سأنزل 2010 الآن و سأجربها فورا شكرا لك 1 رابط هذا التعليق شارك More sharing options...
khalidmoh قام بنشر مايو 30, 2016 الكاتب مشاركة قام بنشر مايو 30, 2016 جزاك الله خيرا يا أخي تم الأمر بنجاح على الملف الصغير و سأطبقها على ملفاتي أدعو الله أن يبارك لك ما تبقى من شعبان و يبلغك رمضان بصحة و عافية 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 30, 2016 مشاركة قام بنشر مايو 30, 2016 (معدل) جرب هذه المغادلة في الخلية A2 و اسحب نزولاً (تعمل على 2007) =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"") تم تعديل مايو 30, 2016 بواسطه سليم حاصبيا 3 رابط هذا التعليق شارك More sharing options...
khalidmoh قام بنشر يونيو 5, 2016 الكاتب مشاركة قام بنشر يونيو 5, 2016 شكرا لك أخي سليم ، أريد إضافة أخرى لو سمحت في حال أردت أن لا يحسب الخلية الفارغة من التسلسل بالإضافة للصف المخفي مثال مرفق بسيط : في حال كان لم يكن لأحمد تسلسل فنريد أن يقفز التسلسل منه ويتابع بشكل عادي 1 2 3 أي يكون KHALED 1 AHMAD لاشي LAMEA 2 FOAD 3 و في حال أخفيت LAMEA يكون التسلسل KHALED 1 و يكون FOAD 2 و ليس 3 كما هو حاصل الأن PROBLEM.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 5, 2016 مشاركة قام بنشر يونيو 5, 2016 (معدل) المعادلة تقوم بهذا الشيء =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"") تم تعديل يونيو 5, 2016 بواسطه سليم حاصبيا رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 5, 2016 مشاركة قام بنشر يونيو 5, 2016 السلام عليكم اخي وبعد اذن الاخوة المشاركين اولا تم تنفيذ المطلوب بالكود ثانيا لابد وان يكون شرط التسلسل عامود اخر غير عامود المسلسل كعامود الاسم مثلا ففي حالة عدم وجود اسم او الصف تم اخفاؤه فلن يتم عمل مسلسل له جرب الملف واتمني ان يفيدك في غملك تحياتي PROBLEM.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 5, 2016 مشاركة قام بنشر يونيو 5, 2016 بعد اذن اخي عادل جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 5, 2016 مشاركة قام بنشر يونيو 5, 2016 (معدل) يمكنك استعمال هذا الملف وهذا الماكرو التابع له (اسرع من الاول) 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 بواسطه سليم حاصبيا 1 رابط هذا التعليق شارك More sharing options...
khalidmoh قام بنشر يونيو 6, 2016 الكاتب مشاركة قام بنشر يونيو 6, 2016 جزاكم الله خيرا أعطيتموني خيارات عديدة سأعمل على دراستها و تطبيقها على عملي كل عام و أنتم بخير شكرا مجددا رابط هذا التعليق شارك 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.