ابو الهش قام بنشر أبريل 14, 2005 مشاركة قام بنشر أبريل 14, 2005 الاخوة الافاضل ممكن مشاركة اريد كود لاخفاء الصفوف الفارغة فى ورقة اكسل ( اخفاء وليس حذف ) ولكم جزيل الشكر اخوكم ابو الهش رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر أبريل 14, 2005 مشاركة قام بنشر أبريل 14, 2005 بسم الله الرحمن الرحيم جرب الكود التالي Rows("1:4").Select Selection.EntireRow.Hidden = True طبعا هذا الكود يخفي الصفوف من رقم 1 الى رقم 4 رابط هذا التعليق شارك More sharing options...
ابو الهش قام بنشر أبريل 15, 2005 الكاتب مشاركة قام بنشر أبريل 15, 2005 شكر للاخ العزيز على الرد ولكن هذا الكود يخفى الصفوف من 1:10 ولكن المطلوب يخفى الصفوف الفارغة من البياتات فى مجال اشكر اخوك ابو الهش رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر أبريل 15, 2005 مشاركة قام بنشر أبريل 15, 2005 (معدل) بسم الله الرحمن الرحيم عذرا لم افهم الموضوع جرب الكود التالي For A = 1 To 1000 TEST = Sheets("1").Cells(A, 1) If (TEST) = "" Then Rows(A).Hidden = True End If Next طبعا هذا الكود يقم بفحص 1000 سطر اذا اردت اكثر او اقل عليك تعديل الحد الاعلى للمتغير A ملاحظة اسم الورقة في المثال هو 1 غير اسم الورقة حسب اسم الورقة الموجودة عندك تم تعديل أبريل 15, 2005 بواسطه m.hindawi رابط هذا التعليق شارك More sharing options...
abo yasser قام بنشر يونيو 7, 2006 مشاركة قام بنشر يونيو 7, 2006 شكرا يااخى تحياتي رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يونيو 8, 2006 مشاركة قام بنشر يونيو 8, 2006 الله يفتح عليك رابط هذا التعليق شارك More sharing options...
lord قام بنشر سبتمبر 18, 2006 مشاركة قام بنشر سبتمبر 18, 2006 السلام عليكم ورحمة الله وبركاته سلامى للجميع اريد اخفاء جميع الصفوف الفارغة الموجودة فى جميع اوراق العمل للملف المفتوح وليس ورقة ورقة بمعنى اوضح اريد عمل زر لاخفاء الصفوف من الملف من a1:a1000 فى جميع اوراق الملف ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر سبتمبر 19, 2006 مشاركة قام بنشر سبتمبر 19, 2006 ايضا تعقيبا على المطلوب لو اردنا حذف السطر من جميع الصفحات فما هو الكود مع العلم بوجود صفحات مخفية ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر سبتمبر 19, 2006 مشاركة قام بنشر سبتمبر 19, 2006 (معدل) لإخفاء الصفوف الفارغة في الصفحة الحالية فقط .. استخدم الكود التالي: Sub Hide() Application.ScreenUpdating = False For A = 1 To 1000 BR = ActiveSheet.Cells(A, 1) If BR = "" Then Rows(A).Hidden = True End If Next Application.ScreenUpdating = True End Sub ولإخفاء الصفوف الفارغة في جميع الصفحات .. استخدم الكود التالي: Sub HideAll() Application.ScreenUpdating = False With ActiveWorkbook For Each Sh In .Sheets Sh.Select For A = 1 To 1000 BR = Sh.Cells(A, 1) If BR = "" Then Sh.Rows(A).Hidden = True End If Next Next End With Application.ScreenUpdating = True End Sub ________________________.rar تم تعديل سبتمبر 21, 2006 بواسطه علي السحيب رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر سبتمبر 19, 2006 مشاركة قام بنشر سبتمبر 19, 2006 الاخ ابا حسين يعطيك العافية ولكن لو اردت حذف السطر اما من الصفحة او من جميع الصفحات فما هو التغيير المطلوب ولك الشكر مقدما رابط هذا التعليق شارك More sharing options...
lord قام بنشر سبتمبر 19, 2006 مشاركة قام بنشر سبتمبر 19, 2006 السلام عليكم ورحمة الله وبركاتة تحية طيبة للجميع شكرا للاستاذ على السحيب وكل عام وانتم بخير رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر سبتمبر 20, 2006 مشاركة قام بنشر سبتمبر 20, 2006 الاخ ابا حسينيعطيك العافية ولكن لو اردت حذف السطر اما من الصفحة او من جميع الصفحات فما هو التغيير المطلوب ولك الشكر مقدما إذا أردت حذف الصف بدلاً من إخفاءة .. للصفحة الحالية فقط .. تقوم بإستبدال السطر التالي في الكود: Rows(A).Hidden = True بهذا السطر: Rows(A).Delete وفي جميع الصفحات .. تقوم بإستبدال السطر التالي في الكود: Sh.Rows(A).Hidden = True بهذا السطر: Sh.Rows(A).Delete كما هو واضح في المرفق، ______________________.rar رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر سبتمبر 20, 2006 مشاركة قام بنشر سبتمبر 20, 2006 الاخ ابا حسين حفظك الله بارك الله فيك وفي جهودك مع الشكر الجزيل رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر سبتمبر 20, 2006 مشاركة قام بنشر سبتمبر 20, 2006 الاخ ابا حسين لو اردت حذف سطر من صفحة ما بغض النظر هل هو فاضي او به بيانات بس اكون ضللت على السطر واردت حذفه من جميع الصفحات ممكن؟ رابط هذا التعليق شارك More sharing options...
lord قام بنشر سبتمبر 20, 2006 مشاركة قام بنشر سبتمبر 20, 2006 السلام عليكم ورحمة الله وبركاته تحياتى للجميع الكود بيعمل بكفاءة ولكن لى طلب عند الاستاذ على لايوجد شىء اسرع من ذلك لاننى عندى 20 ورقة عمل والكود بيستغرق معى اكثر من نصف ساعة حتى يخفى الصفوف الفارغة علما باننى سعيد جدا لتنفيذ المطلوب بكفاءة وشكرا رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر سبتمبر 21, 2006 مشاركة قام بنشر سبتمبر 21, 2006 (معدل) الاخ ابا حسين لو اردت حذف سطر من صفحة ما بغض النظر هل هو فاضي او به بيانات بس اكون ضللت على السطر واردت حذفه من جميع الصفحات ممكن؟ لحذف صف معين من الصفحة الحالية قم بإختيار أي خلية من ذلك الصف .. ثم قم بتشغيل الكود التالي: Sub Delete() Rows(ActiveCell.Row).Delete End Sub ولو أردنا حذف صف معين من جميع الصفحات الموجودة في الملف .. قم بإختيار أي خلية من ذلك الصف .. ثم قم بتشغيل الكود التالي: Sub DeleteAll() D = ActiveCell.Row With ActiveWorkbook For Each Sh In .Sheets Sh.Select Rows(D).Delete Next End With End Sub _____________________________________.rar تم تعديل سبتمبر 21, 2006 بواسطه علي السحيب رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر سبتمبر 21, 2006 مشاركة قام بنشر سبتمبر 21, 2006 السلام عليكم ورحمة الله وبركاتهتحياتى للجميع الكود بيعمل بكفاءة ولكن لى طلب عند الاستاذ على لايوجد شىء اسرع من ذلك لاننى عندى 20 ورقة عمل والكود بيستغرق معى اكثر من نصف ساعة حتى يخفى الصفوف الفارغة علما باننى سعيد جدا لتنفيذ المطلوب بكفاءة وشكرا الأخ Lord شكراً على ملاحظتك القيمة .. تم إجراء التعديل اللازم على المشاركة رقم 9 (الأكواد والمرفق) .. فما عليك سوى إعادة تحميل المرفق، رابط هذا التعليق شارك More sharing options...
lord قام بنشر سبتمبر 21, 2006 مشاركة قام بنشر سبتمبر 21, 2006 السلام عليكم ورحمة الله وبركاته ما شاء الله لاقوة الا بالله رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر سبتمبر 24, 2006 مشاركة قام بنشر سبتمبر 24, 2006 الاخ ابا حسين مشكور جدا وكل عام وانت بخير ورمضان كريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها