ايمن ابوأنس قام بنشر سبتمبر 3, 2005 قام بنشر سبتمبر 3, 2005 (معدل) السلام عليكم ورحمة الله وبركاته يوجد لدي ملف يتكون من 124 صفحة تقريبا وبه معلومات موزعة كما يلي : سطر يوجد به بيانات سطر فارغ من البيانات وهكذا حتى 124 صفحة المطلوب كيف يمكن الغاء جميع الاسطر الفارغة من الملف ؟؟ حاولت ان الغيها يدويا ولكن كانت عملية صعبة !! فهل يوجد حل وجزاكم الله كل خير . تم تعديل سبتمبر 3, 2005 بواسطه ايمن ابوأنس
ايمن ابوأنس قام بنشر سبتمبر 3, 2005 الكاتب قام بنشر سبتمبر 3, 2005 اخواني الاعزاء اذا في مجال للمساعدة لا تبخلوا علينا انا حاولت ان ابحث في الموقع عن سؤال شبيه بس ما زبطت معاي رجاء المساعدة لاني لازم الغي يدوي ما يزيز عن 3000 سطر وانا فعلا شغال فيها الان يدوي ولكن فعلا شغلة متعبة وبدها وقت وانا مطلوب مني مستعجل. شكرا للجميع
lombardia_77 قام بنشر سبتمبر 3, 2005 قام بنشر سبتمبر 3, 2005 السلام عليكم اخي العزيز , كم صف عندك في كل صفحة ؟؟؟ ان عدد الصفحات لايهم لأنك تستطيع ان تختار جميع الصفحات وتعمل عليها مرة واحدة سويةً السؤال الثاني : هل الاوراق متشابهة ؟ يعني مثلاً لو كان السطر الاول من الصفحة الاولى مليئاً بالمعلومات والسطر الثاني هو السطر الفارغ فهل هذا الحال مع جميع الصفحات ال 124 اذا كانت الصفحات متشابهة فقف على لسان تبويب اي صفحة واضغط بزر الفأرة الايمن واختر select all sheet ثم قم بعملية الحذف يدوياً لمرة واحدة وستحذف من جميع الصفحات اعلم ان هذه الطريقة يدوية ومتعبة لكنني لا اعرف غيرها فأعذرني اتمنى ان يساعدك الاخوة الكرام بكود فمن المؤكد ان هذا افضل تحياتي
ايمن ابوأنس قام بنشر سبتمبر 4, 2005 الكاتب قام بنشر سبتمبر 4, 2005 شكرا لك اخي الكريم على تجاوبك حسن الكلام ولكن اخي الكريم هذه ليست بحل سريع واتوقع ان يكون الحل عن طريق كود معين لانني عندما استخدم هذه الطريقة فيجب ان اختار ما يقارب 3000 سطر فارغ ثم اقوم بحذفها . وانا فعلا بدأت احذف الاسطر يدويا حينما لم اجد جواب لسؤالي - قلت بدل ما انا قاعد استنى خليني ابدأ الحذف - . وانني أأمل ان يساعدني احد الاخوان . شكرا لك جزيلا .
aboahmed قام بنشر سبتمبر 4, 2005 قام بنشر سبتمبر 4, 2005 بسم الله الرحمن الرحيم جرب الرابط التالي http://www.officena.net/ib/index.php?showtopic=7486&hl= او الرابط http://www.officena.net/ib/index.php?showtopic=8119&hl=
ايمن ابوأنس قام بنشر سبتمبر 4, 2005 الكاتب قام بنشر سبتمبر 4, 2005 (معدل) جزاك الله كل خير اخي aboahmed اتوقع ان الرابط الاول هو المطلوب ولكن بعد تطبيقة على الملف عندي اظهر العبارات التالية : Compile error Invalid outside procedure ولا يقوم طبعا بتنفيذ الامر علما ان الاوفيس عندي هي 2003 اخر طبعة شكرا لك كثيرا ولا زلت اعمل يدوي حتى الفرج باذن الله . تم تعديل سبتمبر 4, 2005 بواسطه ايمن ابوأنس
علي السحيب قام بنشر سبتمبر 4, 2005 قام بنشر سبتمبر 4, 2005 (معدل) السلام عليكم، جرب أخي الكود التالي والمطبق في الملف المرفق: Sub DeleteEmptyRows() LastRow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub أتمنى أن يكون هذا ما تريد، __________________.rar تم تعديل سبتمبر 4, 2005 بواسطه LoveCandle
ايمن ابوأنس قام بنشر سبتمبر 4, 2005 الكاتب قام بنشر سبتمبر 4, 2005 تسلم اخي الكريم LoveCandle فعلا هذا هو المطلوب شكرا جزيلا على التجاوب وكنت اعلم بل متيقن من المساعدة ولكن كان لابد من شوية صبر والحمد لله كان الصبر عندي موجود . الف شكر لكل من شارك وحاول المساعدة . (y)
lombardia_77 قام بنشر سبتمبر 4, 2005 قام بنشر سبتمبر 4, 2005 السلام عليكم نعم انا لا اعرف كتابة الاكواد لكنني توصلت الى حل صحيح ان الوقت متأخر ولكن لفائدة باقي الاخوة 1_ اختر جميع الصفحات التي تريد 2_ قف على اي خلية داخل المجال المستخدم ( يعني المكان الذي فيه البيانات ) 3_ من قائمة تحرير edit اختر الذهاب الى go to 4_ اضغط على الامر خاص special 5_ اختر الخلايا الفارغة blank 6_ ستحدد ( تظلل ) جميع الخلايا الفارغة 7_ انقر بزر الفأرة الايمن واختر delete 8_ اختر ازاحة الخلايا الى الاعلى shift cells up 9_ اخبرني بربك هل نجحت ام لا ؟؟؟ بالمناسبة هذا الحل سينجح فقط في حالة كانت الاوراق جميعها بنفس البنية بمعنى ان السطور المتروكة متروكة في جميع الاوراق تحياتي
ايمن ابوأنس قام بنشر سبتمبر 5, 2005 الكاتب قام بنشر سبتمبر 5, 2005 تسلم اخي lombardia_77 (y) فعلا هذه الطريقة ايضا ناجحة 100% وان كان هنالك شئ بسيط جدا لا يذكر وهو يجب اعادة الترتيب والتنسيق الى سابق عهده لانه يتأثر بالحذف . ولكن طريقة صحيحة وجديدة علي شخصيا تسلم كثير كثير وشكرا لمشاركتك وكمان مرة شكرا للجميع بدون استثناء أبوأنس :pp:
الردود الموصى بها